")}return s.replace(/ /g," ")}function decode(s){if(command.allow_multiline){s=s.replace(/
/g,"\n")}return s.replace(/\xa0/g," ")}function set_content_type(is_multiline,content){if(is_multiline){elem$.html(content)}else{elem$.text(content)}}var old_opts=options(),new_opts=old_opts;if(_.isObject(command)){var defaults;if(old_opts)defaults=$.extend({},old_opts);else defaults={on_change:function(){return true},allow_edit:true,inactive_text:elem$.text(),active_text:elem$.text(),allow_multiline:false,select:function(el){var range=document.createRange();range.selectNodeContents(el);return range}};new_opts=$.extend(defaults,command);elem$.data("__editable",new_opts)}else{if(command!=="destroy"&&!old_opts)throw new Error("expected already editable for command "+command);var set_option=function(key,value){old_opts=$.extend({},old_opts);new_opts[key]=value};switch(command){case"destroy":elem$.data("__editable",null);new_opts=null;break;case"option":if(!arguments[2])return old_opts;else if(!arguments[3])return old_opts[arguments[2]];else{set_option(arguments[2],arguments[3])}break;case"disable":set_option("allow_edit",false);break;case"enable":set_option("allow_edit",true);break}}var action=null;if((!old_opts||!old_opts.allow_edit)&&new_opts&&new_opts.allow_edit)action="melt";else if(old_opts&&old_opts.allow_edit&&(!new_opts||!new_opts.allow_edit))action="freeze";if(new_opts)set_content_type(command.allow_multiline,encode(options().__active?new_opts.active_text:new_opts.inactive_text));switch(action){case"freeze":elem$.removeAttr("contenteditable");elem$.off("keydown.editable");elem$.off("focus.editable");elem$.off("click.editable");elem$.off("blur.editable");break;case"melt":elem$.attr("contenteditable","true");elem$.on({"focus.editable":function(){if(!options().__active){options().__active=true;set_content_type(command.allow_multiline,encode(options().active_text));window.setTimeout(function(){selectRange(options().select(elem$[0]));elem$.off("blur.editable");elem$.on("blur.editable",function(){set_content_type(command.allow_multiline,encode(options().inactive_text));options().__active=false})},10)}},"click.editable":function(e){e.stopPropagation()},"keydown.editable":function(e){if(e.keyCode===$.ui.keyCode.ENTER){var txt=decode(elem$.text());function execute_if_valid_else_ignore(f){if(options().validate(txt)){options().__active=false;elem$.off("blur.editable");elem$.blur();f(txt,txt!=options().active_text);return true}else{return false}}if(options().ctrl_cmd&&(e.ctrlKey||e.metaKey)){e.preventDefault();return execute_if_valid_else_ignore(options().ctrl_cmd)}else if(!command.allow_multiline||e.ctrlKey||e.metaKey){e.preventDefault();return execute_if_valid_else_ignore(options().change)}}else if(e.keyCode===$.ui.keyCode.ESCAPE){elem$.blur()}return true},"input.editable":function(e){if(elem$.text().length===0)elem$.css("padding-right","1px");else elem$.css("padding-right","")}});break}return elem$};ui_utils.fake_hover=function fake_hover(node){var parent=node.parent;var index=$(".notebook-commands.appear",node.element).css("display")!=="none"?parent.children.indexOf(node):undefined;ui_utils.on_next_tick(function(){if(index>=0&&index
"+files[i]+""}RCloud.UI.help_frame.display_content(html)},editor:function(ctx,what,content,name){append_session_info("what: "+what+"\ncontents:"+content+"\nname: "+name+"\n")},"console.out":forward_to_context("out"),"console.msg":forward_to_context("msg"),"console.err":forward_to_context("err"),"img.url.update":handle_img.bind(null,"img.url.update"),"img.url.final":handle_img.bind(null,"img.url.final"),stdout:append_session_info,stderr:append_session_info,"html.out":forward_to_context("html_out"),"deferred.result":forward_to_context("deferred_result")};var on_data=function(v){v=v.value.json();console.log("OOB send arrived: ['"+v[0]+"']"+(oob_sends[v[0]]?"":" (unhandled)"));if(oob_sends[v[0]])oob_sends[v[0]].apply(null,v.slice(1))};var oob_messages={"console.in":forward_to_context("in",true)};var on_message=function(v,k){v=v.value.json();console.log("OOB message arrived: ['"+v[0]+"']"+(oob_messages[v[0]]?"":" (unhandled)"));if(oob_messages[v[0]]){v.push(k);oob_messages[v[0]].apply(null,v.slice(1))}else k("unhandled",null)};function could_not_initialize_error(err){var msg="Could not initialize session. The GitHub backend might be down or you might have an invalid authorization token. (You could try clearing your cookies, for example).";if(err)msg+="
Error: "+err.toString();return msg}function on_connect_anonymous_allowed(ocaps){var promise_c,promise_s;rcloud=RCloud.create(ocaps.rcloud);if(rcloud.authenticated){promise_c=rcloud.compute_init(rcloud.username(),rcloud.github_token());promise_s=rcloud.session_init(rcloud.username(),rcloud.github_token())}else{promise_c=rcloud.anonymous_compute_init();promise_s=rcloud.anonymous_session_init()}promise_c.catch(function(e){RCloud.UI.fatal_dialog(could_not_initialize_error(e),"Logout","/logout.R")});promise_s.catch(function(e){RCloud.UI.fatal_dialog(could_not_initialize_error(e),"Logout","/logout.R")});return Promise.all([promise_c,promise_s])}function on_connect_anonymous_disallowed(ocaps){rcloud=RCloud.create(ocaps.rcloud);if(!rcloud.authenticated){return Promise.reject(new Error("Authentication required"))}var res_c=rcloud.compute_init(rcloud.username(),rcloud.github_token());var res_s=rcloud.session_init(rcloud.username(),rcloud.github_token());return Promise.all([res_c,res_s])}function rclient_promise(allow_anonymous){return new Promise(function(resolve,reject){rclient=RClient.create({debug:false,mode:"IDE",host:location.href.replace(/^http/,"ws").replace(/#.*$/,""),on_connect:function(ocaps){resolve(ocaps)},on_data:on_data,on_oob_message:on_message,on_error:function(error){reject(error);return false}});rclient.allow_anonymous_=allow_anonymous}).then(function(ocaps){var promise=allow_anonymous?on_connect_anonymous_allowed(ocaps):on_connect_anonymous_disallowed(ocaps);return promise}).then(function(hello){if(!$("#output > .response").length)rclient.post_response(hello)}).catch(function(error){if(window.rclient)rclient.close();if(error.message==="Authentication required"){RCloud.UI.fatal_dialog("Your session has been logged out.","Reconnect",ui_utils.relogin_uri())}else{var msg=error.message||error.error||error;RCloud.UI.fatal_dialog(could_not_initialize_error(msg),"Logout","/logout.R")}throw error}).then(function(){rcloud.get_conf_value("exec.token.renewal.time").then(function(timeout){if(timeout){timeout=timeout*1e3;var replacer=function(){rcloud.replace_token($.cookies.get("execToken"),"rcloud.exec").then(function(new_token){$.cookies.set("execToken",new_token);setTimeout(replacer,timeout)})};setTimeout(replacer,timeout)}})}).then(function(){rcloud.display.set_device_pixel_ratio();rcloud.api.set_url(window.location.href);return rcloud.languages.get_list().then(function(lang_list){RCloud.language._set_available_languages(_.omit(lang_list,"r_type","r_attributes"))}).then(rcloud.plots.get_formats).then(function(formats){formats=_.without(formats,"r_attributes","r_type");var i=1e3;var im_formats={};formats.forEach(function(format){im_formats[format]={sort:i};i+=1e3});RCloud.UI.image_manager.formats.add(im_formats)}).then(function(){return rcloud.init_client_side_data()})})}RCloud.session={first_session_:true,listeners:[],reset:function(){if(this.first_session_){this.first_session_=false;return RCloud.UI.with_progress(function(){})}this.listeners.forEach(function(listener){listener.on_reset()});return RCloud.UI.with_progress(function(){var anonymous=rclient.allow_anonymous_;rclient.close();return rclient_promise(anonymous)})},init:function(allow_anonymous){this.first_session_=true;return rclient_promise(allow_anonymous)}}})();RCloud.language=function(){var languages_={CSS:{ace_mode:"ace/mode/css"},JavaScript:{ace_mode:"ace/mode/javascript"},Text:{ace_mode:"ace/mode/text",extension:"txt"},HTML:{ace_mode:"ace/mode/html"}};var langs_=[];return{is_a_markdown:function(language){return languages_[language]?languages_[language].is_a_markdown:false},ace_mode:function(language){return languages_[language]&&languages_[language].ace_mode||languages_.Text.ace_mode},extension:function(language){var ext=languages_[language]&&languages_[language].extension||"";if(_.isArray(ext))ext=ext[0];return ext},hljs_class:function(language){return languages_[language]&&languages_[language].hljs_class||null},_set_available_languages:function(langs){langs_=[];for(var lang in langs){langs_.push(lang);languages_[lang]=languages_[lang]||{};languages_[lang].is_a_markdown=langs[lang]["is.a.markdown"];languages_[lang].ace_mode=langs[lang]["ace.mode"];languages_[lang].hljs_class=langs[lang]["hljs.class"];languages_[lang].extension=langs[lang].extension}},available_languages:function(){return langs_}}}();(function(){function upload_opts(opts){if(_.isBoolean(opts)||_.isUndefined(opts))opts={force:!!opts};else if(!_.isObject(opts))throw new Error("didn't understand options "+opts);opts=$.extend({force:false},opts);if(!opts.files)opts.files=opts.$file?opts.$file[0].files:[];return opts}function text_or_binary_reader(){return Promise.promisify(function(file,callback){var fr=new FileReader;var bytes_read=0;fr.onload=function(e){callback(null,fr.result)};fr.onerror=function(e){callback(fr.error,null)};fr.readAsArrayBuffer(file.slice(0,file.size))})}RCloud.upload_assets=function(options,react){react=react||{};options=upload_opts(options);function upload_asset(filename,content){var replacing=shell.notebook.model.get_asset(filename);var promise_controller;if(replacing){if(react.replace)react.replace(filename);replacing.content(content);promise_controller=shell.notebook.controller.update_asset(replacing).return(replacing.controller)}else{if(react.add)react.add(filename);promise_controller=shell.notebook.controller.append_asset(content,filename).then(function(){return shell.notebook.model.get_asset(filename).controller})}return promise_controller.then(function(controller){controller.select()})}return RCloud.utils.promise_sequence(options.files,function(file){if(file.size>75e4)return Promise.reject(new Error("File "+file.name+" rejected: maximum asset size is 750KB"));return text_or_binary_reader()(file).then(function(content){if(_.isString(content)&&Notebook.empty_for_github(content))throw new Error("empty");return upload_asset(file.name,content)})})};function binary_upload(upload_ocaps,react){return Promise.promisify(function(file,is_replace,callback){var fr=new FileReader;var chunk_size=1024*128;var f_size=file.size;var cur_pos=0;var bytes_read=0;if(react.start)react.start(file.name);fr.readAsArrayBuffer(file.slice(cur_pos,cur_pos+chunk_size));fr.onload=function(e){if(react.progress)react.progress(bytes_read,f_size);var promise;if(e.target.result.byteLength>0){var bytes=new Uint8Array(e.target.result);promise=upload_ocaps.writeAsync(bytes.buffer).then(function(){bytes_read+=e.target.result.byteLength;cur_pos+=chunk_size;fr.readAsArrayBuffer(file.slice(cur_pos,cur_pos+chunk_size))})}else{promise=upload_ocaps.closeAsync().then(function(){if(react.done)react.done(is_replace,file.name);callback(null,true)})}promise.catch(function(err){callback(err,null)})}})}RCloud.upload_files=function(options,react){var upload_ocaps=options.upload_ocaps||rcloud._ocaps.file_upload;react=react||{};options=upload_opts(options);var upload=binary_upload(upload_ocaps,react);function upload_file(path,file){var upload_name=path+"/"+file.name;return upload_ocaps.createAsync(upload_name,options.force).catch(function(err){if(react.confirm_replace&&/exists/.test(err.message)){return react.confirm_replace(file.name).then(function(confirm){return confirm?upload_ocaps.createAsync(upload_name,true).return("overwrite"):Promise.resolve(false)})}else throw err}).then(function(whether){return whether?upload(file,whether==="overwrite"):Promise.resolve(undefined)})}if(!(window.File&&window.FileReader&&window.FileList&&window.Blob))return Promise.reject(new Error("File API not supported by browser."));else{if(_.isUndefined(options.files)||!options.files.length)return Promise.reject(new Error("No files selected!"));else{return upload_ocaps.upload_pathAsync().then(function(path){return RCloud.utils.promise_sequence(options.files,upload_file.bind(null,path))})}}}})();RCloud.UI={};RCloud.UI.advanced_menu=function(){var menu_;var result={init:function(){menu_=RCloud.UI.menu.create();menu_.init();d3.rebind(result,menu_,"add","remove","check","uncheck","enable","create");RCloud.UI.menus.add({advanced_menu:{sort:5e3,type:"menu",title:"Advanced",modes:["view","edit"],menu:menu_}});menu_.add({open_in_github:{sort:1e3,text:"Open in GitHub",modes:["view","edit"],action:function(){window.open(shell.github_url(),"_blank")}},open_from_github:{sort:2e3,text:"Load Notebook by ID",modes:["edit"],action:function(){var result=prompt("Enter notebook ID or github URL:");if(result!==null)shell.open_from_github(result)}},show_source:{sort:9e3,text:"Show Source",checkbox:true,value:true,modes:["view"],action:function(value){if(value)shell.notebook.controller.show_r_source();else shell.notebook.controller.hide_r_source()}},publish_notebook:{sort:1e4,text:"Publish Notebook",checkbox:true,modes:["edit"],action:function(value){function publish_success(gistname,un){return function(val){if(!val)console.log("Failed to "+(un?"un":"")+"publish notebook "+gistname)}}if(value){rcloud.publish_notebook(editor.current().notebook).then(publish_success(editor.current().notebook,false))}else{rcloud.unpublish_notebook(editor.current().notebook).then(publish_success(editor.current().notebook,true))}}}})}};return result}();RCloud.UI.cell_commands=function(){var extension_;function create_command_set(area,div,cell_model,cell_view){var commands_=extension_.create(area,cell_model,cell_view);_.each(commands_,function(command){command.control.addClass("cell-control")});var flags_={};div.append.apply(div,_.pluck(commands_,"control"));return{controls:commands_,set_flag:function(flag,value){var checkf=function(f){var reverse;if(f.substr(0,1)=="!"){reverse=true;f=f.substr(1)}return reverse^flags_[f]};flags_[flag]=value;extension_.entries(area).forEach(function(cmd){if(!_.every(cmd.enable_flags,checkf))commands_[cmd.key].disable();else commands_[cmd.key].enable();if(!_.every(cmd.display_flags,checkf))commands_[cmd.key].control.hide();else commands_[cmd.key].control.show()})}}}var result={create_button:function(awesome,text,action){var control=ui_utils.fa_button(awesome,text);control.click(function(e){$(".tooltip").remove();if(!$(e.currentTarget).hasClass("button-disabled")){action(control)}});return{control:control,enable:function(){ui_utils.enable_fa_button(control)},disable:function(){ui_utils.disable_fa_button(control)}}},create_select:function(items,action){var control=$("");control.append.apply(control,items.map(function(item){return $("").text(item)}));control.change(function(){var val=control.val();action(val)});return{control:control,enable:function(){control.prop("disabled",false)},disable:function(){control.prop("disabled","disabled")},set:function(val){if(items.indexOf(val)<0)throw new Error("tried to select unknown value "+val);control.val(val)}}},create_static:function(html,wrap){var content=$("").html(html);var span=wrap?wrap(content):content;return{control:span,enable:function(){},disable:function(){},set:function(html){content.html(html);return this},get:function(){return content}}},create_icon:function(icon,color,wrap){var result=this.create_static("");result=_.extend(result,{icon:function(icon){result.get().find("i").attr("class",icon);return this},color:function(color){result.get().find("i").css("color",color);return this},title:function(title){result.get().find("i").attr("title",title);return this}});result.get().attr("class","state-icon left-indicator");result.icon(icon).color(color);return result},init:function(){extension_=RCloud.extension.create({defaults:{},sections:{above_between:{filter:function(command){return command.area==="above"||command.area==="between"}},cell:{filter:function(command){return command.area==="cell"}},prompt:{filter:function(command){return command.area==="prompt"}},left:{filter:function(command){return command.area==="left"}}}});var that=this;this.add({insert:{area:"above",sort:1e3,enable_flags:["modify"],create:function(cell_model){return that.create_button("icon-plus-sign","insert cell",function(){shell.insert_cell_before("",cell_model.language(),cell_model.id()).spread(function(_,controller){controller.edit_source(true)})})}},join:{area:"between",sort:2e3,enable_flags:["modify"],create:function(cell_model){return that.create_button("icon-link","join cells",function(){shell.join_prior_cell(cell_model)})}},language_cell:{area:"cell",sort:1e3,enable_flags:["modify"],create:function(cell_model,cell_view){var languages=RCloud.language.available_languages();if(languages.indexOf(cell_model.language())<0)languages.push(cell_model.language());return that.create_select(languages,function(language){cell_model.parent_model.controller.change_cell_language(cell_model,language);cell_view.clear_result()})}},run:{area:"cell",sort:2e3,create:function(cell_model,cell_view){return that.create_button("icon-play","run",function(){cell_view.execute_cell()})}},edit:{area:"cell",sort:3e3,enable_flags:["modify"],create:function(cell_model,cell_view){return that.create_button("icon-edit borderable","toggle edit mode",function(){cell_view.toggle_edit() -})}},results:{area:"cell",sort:3500,create:function(cell_model,cell_view){return that.create_button("icon-picture borderable","show/hide results",function(){cell_view.toggle_results()})}},command_gap:{area:"cell",sort:3500,create:function(cell_model){return that.create_static(" ")}},split:{area:"cell",sort:4e3,enable_flags:["modify","edit"],create:function(cell_model,cell_view){return that.create_button("icon-unlink","split cell",function(){var ace_widget=cell_view.ace_widget();if(ace_widget){var range=ace_widget.getSelection().getRange();var point1,point2;point1=ui_utils.character_offset_of_pos(ace_widget,range.start);if(!range.isEmpty())point2=ui_utils.character_offset_of_pos(ace_widget,range.end);shell.split_cell(cell_model,point1,point2)}})}},remove:{area:"cell",sort:5e3,enable_flags:["modify"],create:function(cell_model){return that.create_button("icon-trash","remove",function(){cell_model.parent_model.controller.remove_cell(cell_model)})}},grab_affordance:{area:"left",sort:1e3,display_flags:["modify"],create:function(cell_model){var svg="
";return that.create_static(svg,function(x){return $("").append(x)})}},left_gap:{area:"left",sort:1500,display_flags:["!modify"],create:function(cell_model){return that.create_static(" ")}},run_state:{area:"left",sort:2e3,create:function(cell_model){return that.create_icon("icon-circle-blank","#777")}},cell_number:{area:"left",sort:3e3,display_flags:["cell-numbers"],create:function(cell_model){return that.create_static(cell_model.id(),function(x){return $("").append("cell ",x)})}}});return this},add:function(commands){if(extension_)extension_.add(commands);return this},remove:function(command_name){if(extension_)extension_.remove(command_name);return this},decorate:function(area,div,cell_model,cell_view){var result=create_command_set(area,div,cell_model,cell_view);switch(area){case"above_between":_.extend(result,{betweenness:function(between){extension_.entries("above_between").forEach(function(cmd){if(cmd.area==="between"){if(between)result.controls[cmd.key].control.show();else result.controls[cmd.key].control.hide()}})}});break;default:}return result}};return result}();RCloud.UI.column=function(sel_column){var colwidth_;function classes(cw){return"col-md-"+cw+" col-sm-"+cw}var result={init:function(){var $sel=$(sel_column);if($sel.length===0)return;var classes=$sel.attr("class").split(/\s+/);classes.forEach(function(c){var cw=/^col-(?:md|sm)-(\d+)$/.exec(c);if(cw){cw=+cw[1];if(colwidth_===undefined)colwidth_=cw;else if(colwidth_!==cw)throw new Error("mismatched col-md- or col-sm- in column classes")}})},colwidth:function(val){if(!_.isUndefined(val)&&val!=colwidth_){$(sel_column).removeClass(classes(colwidth_)).addClass(classes(val));colwidth_=val}return colwidth_}};return result};RCloud.UI.collapsible_column=function(sel_column,sel_accordion,sel_collapser){var collapsed_=false;var result=RCloud.UI.column(sel_column);var parent_init=result.init.bind(result);function collapsibles(){return $(sel_accordion+" > .panel > div.panel-collapse:not(.out)")}function togglers(){return $(sel_accordion+" > .panel > div.panel-heading")}function set_collapse(target,collapse,persist){if(target.data("would-collapse")==collapse)return false;target.data("would-collapse",collapse);if(persist&&rcloud.config&&target.length){var opt="ui/"+target[0].id;rcloud.config.set_user_option(opt,collapse)}return true}function all_collapsed(){return $.makeArray(collapsibles()).every(function(el){return $(el).hasClass("out")||$(el).data("would-collapse")===true})}function sel_to_opt(sel){return sel.replace("#","ui/")}function opt_to_sel(opt){return opt.replace("ui/","#")}function reshadow(){$(sel_accordion+" .panel-shadow").each(function(v){var h=$(this).parent().find(".panel-body").outerHeight();if(h===0)h="100%";$(this).attr("height",h)})}_.extend(result,{init:function(){var that=this;parent_init();collapsibles().each(function(){$(this).data("would-collapse",!$(this).hasClass("in")&&!$(this).hasClass("out"))});togglers().click(function(){var target=$(this.dataset.target);that.collapse(target,target.hasClass("in"));return false});collapsibles().on("size-changed",function(){that.resize(true)});$(sel_collapser).click(function(){if(collapsed_)that.show(true);else that.hide(true)})},load_options:function(){var that=this;var sels=$.makeArray(collapsibles()).map(function(el){return"#"+el.id});sels.push(sel_accordion);var opts=sels.map(sel_to_opt);return rcloud.config.get_user_option(opts).then(function(settings){var hide_column;for(var k in settings){var id=opt_to_sel(k);if(id===sel_accordion)hide_column=settings[k];else if(typeof settings[k]==="boolean")set_collapse($(id),settings[k],false)}var save_setting=false;if(hide_column===undefined){hide_column=false;save_setting=true}if(hide_column)that.hide(save_setting);else that.show(save_setting)})},collapse:function(target,whether,persist){if(persist===undefined)persist=true;if(collapsed_){collapsibles().each(function(){if(this===target[0])set_collapse($(this),false,persist);else set_collapse($(this),true,persist)});this.show(true);return}var change=set_collapse(target,whether,persist);if(all_collapsed())this.hide(persist,!change);else this.show(persist,!change)},resize:function(skip_calc){if(!skip_calc){var cw=this.calcwidth();this.colwidth(cw)}RCloud.UI.middle_column.update();var heights={},padding={},cbles=collapsibles(),ncollapse=cbles.length;var greedy_one=null;cbles.each(function(){if(!$(this).hasClass("out")&&!$(this).data("would-collapse")){var spf=$(this).data("panel-sizer");var sp=spf?spf(this):RCloud.UI.collapsible_column.default_sizer(this);heights[this.id]=sp.height;padding[this.id]=sp.padding;if(!greedy_one&&$(this).attr("data-widgetheight")==="greedy")greedy_one=$(this)}});var available=$(sel_column).height();var total_headings=d3.sum($(sel_accordion+" .panel-heading").map(function(_,ph){return $(ph).outerHeight()}));available-=total_headings;for(var id in padding)available-=padding[id];var left=available,do_fit=false;for(id in heights)left-=heights[id];if(left>=0){if(greedy_one!==null){heights[greedy_one.get(0).id]+=left;do_fit=true}}else{left=available;var remaining=_.keys(heights),done=false,i;var split=left/remaining.length;while(remaining.length&&!done){done=true;for(i=0;iAw, shucks
");message_=$(''+message+"
");body.append(message_,default_button);if(href)body.append(ignore_button);body.append('');default_button.click(function(e){e.preventDefault();if(href)window.location=href;else fatal_dialog_.modal("hide")});ignore_button.click(function(){fatal_dialog_.modal("hide")});fatal_dialog_=$('').append($('').append($('').append($('').append(body))));$("body").append(fatal_dialog_);fatal_dialog_.on("shown.bs.modal",function(){default_button.focus()})}else message_.text(message);fatal_dialog_.modal({keyboard:false})}})();RCloud.UI.find_replace=function(){var find_dialog_=null,regex_,find_desc_,find_input_,replace_desc_,replace_input_,replace_stuff_,find_next_,find_last_,replace_next_,replace_all_,shown_=false,replace_mode_=false,find_cycle_=null,replace_cycle_=null,matches_=[],active_match_;function toggle_find_replace(replace){if(!find_dialog_){find_dialog_=$('');var find_form=$('');find_desc_=$('');find_input_=$('');find_next_=$('');find_last_=$('');var replace_break=$("");replace_desc_=$('');replace_input_=$('');replace_next_=$('');replace_all_=$('');replace_stuff_=replace_break.add(replace_desc_).add(replace_input_).add(replace_next_).add(replace_all_);var close=$('');find_form.append(find_desc_.append(find_input_),find_next_,find_last_,close,replace_break,replace_desc_.append(replace_input_),replace_next_,replace_all_);find_dialog_.append(find_form);$("#middle-column").prepend(find_dialog_);find_input_.on("input",function(e){e.preventDefault();e.stopPropagation();active_match_=undefined;build_regex(find_input_.val());highlight_all()});function find_next(reason){active_transition(reason||"deactivate");if(active_match_!==undefined)active_match_=(active_match_+1)%matches_.length;else active_match_=0;active_transition("activate")}find_next_.click(function(e){e.preventDefault();e.stopPropagation();find_next();return false});find_last_.click(function(e){e.preventDefault();e.stopPropagation();active_transition("deactivate");if(active_match_!==undefined)active_match_=(active_match_+matches_.length-1)%matches_.length;else active_match_=0;active_transition("activate");return false});replace_next_.click(function(e){e.preventDefault();e.stopPropagation();if(active_match_!==undefined){var cell=replace_current();if(cell){shell.notebook.controller.update_cell(cell).then(function(){find_next("replace")})}}else find_next();return false});replace_all_.click(function(e){e.preventDefault();e.stopPropagation();if(active_match_!==undefined){active_transition("deactivate");replace_rest()}else replace_all(find_input_.val(),replace_input_.val());return false});find_cycle_=["find-input","find-next","find-last"];replace_cycle_=["find-input","replace-input","find-next","find-last","replace-all"];function click_find_next(e){if(e.keyCode===$.ui.keyCode.ENTER){e.preventDefault();e.stopPropagation();find_next_.click();return false}return undefined}find_input_.keydown(click_find_next);replace_input_.keydown(click_find_next);find_form.keydown(function(e){switch(e.keyCode){case $.ui.keyCode.TAB:e.preventDefault();e.stopPropagation();var cycle=replace_mode_?replace_cycle_:find_cycle_;var i=cycle.indexOf(e.target.id)+cycle.length;if(e.shiftKey)--i;else++i;i=i%cycle.length;$("#"+cycle[i]).focus();return false;case $.ui.keyCode.ESCAPE:e.preventDefault();e.stopPropagation();hide_dialog();return false}return undefined});find_form.find("input").focus(function(){window.setTimeout(function(){this.select()}.bind(this),0)});close.click(function(){hide_dialog()})}find_dialog_.show();find_input_.focus();if(replace)replace_stuff_.show();else replace_stuff_.hide();build_regex(find_input_.val());highlight_all();shown_=true;replace_mode_=replace}function hide_dialog(){active_match_=undefined;build_regex(null);highlight_all();find_dialog_.hide();shown_=false}function escapeRegExp(string){return string.replace(/[.*+?^${}()|[\]\\]/g,"\\$&")}function build_regex(find){regex_=find&&find.length?new RegExp(escapeRegExp(find),"g"):null}function update_match_cell(match){var matches=matches_.filter(function(m){return m.filename===match.filename});shell.notebook.model.cells[match.index].notify_views(function(view){view.change_highlights(matches)})}function active_transition(transition){if(active_match_!==undefined){var match=matches_[active_match_];switch(transition){case"replace":match.kind="replaced";break;case"activate":match.kind=match.kind==="replaced"?"activereplaced":"active";break;case"deactivate":match.kind=match.kind==="activereplaced"?"replaced":"normal";break}update_match_cell(match)}}function highlight_cell(cell){var matches=[];if(regex_){var content=cell.content(),match;while(match=regex_.exec(content)){matches.push({begin:match.index,end:match.index+match[0].length,kind:matches.length===active_match_?"active":"normal"});if(match.index===regex_.lastIndex)++regex_.lastIndex}}cell.notify_views(function(view){view.change_highlights(matches)});return matches}function annotate_matches(matches,cell,n){return matches.map(function(match){return _.extend({index:n,filename:cell.filename()},match)})}function highlight_all(){matches_=[];shell.notebook.model.cells.forEach(function(cell,n){var matches=highlight_cell(cell);matches_.push.apply(matches_,annotate_matches(matches,cell,n))})}function replace_current(){function findIndex(a,f,i){if(i===undefined)i=0;for(;i
"));image_div_.append($image);var image_commands=$('');image_commands.append(save_button());image_commands.hide(); -$image.add(image_commands).hover(function(){image_commands.show()},function(){image_commands.hide()});image_div_.append(image_commands);$image.css({width:"100%",height:"100%"});update_dims(dims);image_div_.resizable({autoHide:true,stop:resize_stop});return container}img_=img_tag();div_=add_controls(img_);var result={div:function(){return div_},update:function(url,dims){img_.attr("src",url);update_dims(dims)}};return result}var result={update:function(url,dims,device,page){var id=device+"-"+page;var image;if(images_[id]){image=images_[id];image.update(url,dims)}else{image=create_image(id,url,dims,device,page);images_[id]=image}return image},formats:formats_};return result}()})();RCloud.UI.import_export=function(){function download_as_file(filename,content,mimetype){var file=new Blob([content],{type:mimetype});saveAs(file,filename)}return{init:function(){RCloud.UI.advanced_menu.add({import_notebooks:{sort:4e3,text:"Import External Notebooks",modes:["edit"],action:function(){function do_import(){var url=$("#import-source").val(),notebooks=$("#import-gists").val(),prefix=$("#import-prefix").val();notebooks=_.without(notebooks.split(/[\s,;]+/),"");rcloud.port_notebooks(url,notebooks,prefix).then(function(result){var succeeded=[],failed=[];for(var res in result){if(res==="r_type"||res==="r_attributes")continue;if(result[res].ok)succeeded.push(result[res].content);else failed.push(res)}succeeded.forEach(function(notebook){editor.star_notebook(true,{notebook:notebook}).then(function(){editor.set_notebook_visibility(notebook.id,true)})});if(failed.length)RCloud.UI.session_pane.post_error("Failed to import notebooks: "+failed.join(", "))});dialog.modal("hide")}function create_import_notebook_dialog(){var body=$('').append($(["
Import notebooks from another GitHub instance.
Currently import does not preserve history.
",'source repo api url: ','
notebooks:
prefix (e.g. folder/ to put notebooks in a folder): '].join("")));var cancel=$('Cancel').on("click",function(){$(dialog).modal("hide")});var go=$('Import').on("click",do_import);var footer=$('
','',"
"].join(""));var dialog=$('').append($('').append($('').append(header).append(body).append(footer)));$("body").append(dialog);dialog.on("show.bs.modal",function(){$("#import-gists").val("")}).on("shown.bs.modal",function(){$("#import-source").focus().select()});return dialog}var dialog=$("#import-notebooks-dialog");if(!dialog.length)dialog=create_import_notebook_dialog();dialog.modal({keyboard:true})}},export_notebook_gist:{sort:5e3,text:"Export Notebook to File",modes:["edit"],action:function(){return rcloud.get_notebook(shell.gistname(),shell.version(),null,true).then(function(notebook){notebook=Notebook.sanitize(notebook);var gisttext=JSON.stringify(notebook);download_as_file(notebook.description+".gist",gisttext,"text/json");return notebook})}},import_notebook_gist:{sort:6e3,text:"Import Notebook from File",modes:["edit"],action:function(){var that=this;function create_import_file_dialog(){var notebook=null;var notebook_status=null;var notebook_desc_content=null;var import_button=null;function do_upload(file){notebook_status.hide();notebook_desc.hide();var fr=new FileReader;fr.onloadend=function(e){notebook_status.show();try{notebook=JSON.parse(fr.result)}catch(x){notebook_status.text("Invalid notebook format: couldn't parse JSON");return}if(!notebook.description){notebook_status.text("Invalid notebook format: has no description");notebook=null;return}if(!notebook.files||_.isEmpty(notebook.files)){notebook_status.text("Invalid notebook format: has no files");notebook=null;return}notebook_status.text("");notebook_desc_content.val(notebook.description);notebook_desc.show();notebook=Notebook.sanitize(notebook);ui_utils.enable_bs_button(import_button)};fr.readAsText(file)}function do_import(){if(notebook){notebook.description=notebook_desc_content.val();rcloud.create_notebook(notebook).then(function(notebook){editor.star_notebook(true,{notebook:notebook}).then(function(){editor.set_notebook_visibility(notebook.id,true)})})}dialog.modal("hide")}var body=$('');var file_select=$('');file_select.click(function(){ui_utils.disable_bs_button(import_button)}).change(function(){do_upload(file_select[0].files[0])});notebook_status=$("");notebook_status.append(notebook_status);var notebook_desc=$("Notebook description: ");notebook_desc_content=$('').keypress(function(e){if(e.which===$.ui.keyCode.ENTER){do_import();return false}return true});notebook_desc.append(notebook_desc_content);body.append($("").append(file_select)).append($("").append(notebook_status.hide())).append($("").append(notebook_desc.hide()));var cancel=$('Cancel').on("click",function(){$(dialog).modal("hide")});import_button=$('Import').on("click",do_import);ui_utils.disable_bs_button(import_button);var footer=$('').append(cancel).append(import_button);var header=$(['Import Notebooks
","','',"
"].join(""));var dialog=$('').append($('').append($('').append(header).append(body).append(footer)));$("body").append(dialog);dialog.on("show.bs.modal",function(){$("#notebook-file-upload")[0].value=null;notebook_status.text("");notebook_status.hide();notebook_desc_content.val("");notebook_desc.hide()});dialog.data("reset",function(){notebook=null;ui_utils.disable_bs_button(import_button)});return dialog}var dialog=$("#import-notebook-file-dialog");if(!dialog.length)dialog=create_import_file_dialog();else dialog.data().reset();dialog.modal({keyboard:true})}},export_notebook_r:{sort:7e3,text:"Export Notebook as R Source File",modes:["edit"],action:function(){return rcloud.get_notebook(shell.gistname(),shell.version()).then(function(notebook){var strings=[];var parts=[];_.each(notebook.files,function(file){var filename=file.filename;if(/^part/.test(filename)){var number=parseInt(filename.slice(4).split(".")[0]);if(!isNaN(number)){if(file.language==="R")parts[number]="```{r}\n"+file.content+"\n```";else parts[number]=file.content}}});for(var i=0;iImport Notebook File
","');$("body").append(progress_dialog);progress_dialog.on("hide.bs.modal",function(){progress_counter=0;clear_cursor()})}progress_dialog.modal({keyboard:true})}function clear_curtain(){if(!curtains_on)return;curtains_on=false;progress_dialog.modal("hide")}function set_cursor(){_.delay(function(){document.body.style.cursor="wait"},0)}function clear_cursor(){_.delay(function(){document.body.style.cursor=""},0)}RCloud.UI.with_progress=function(promise_thunk,delay){if(_.isUndefined(delay))delay=2e3;set_cursor();function done(){progress_counter-=1;if(progress_counter===0){clear_cursor();clear_curtain()}}_.delay(function(){if(progress_counter>0&&allowed>0)set_curtain()},delay);progress_counter+=1;return Promise.resolve(done).then(promise_thunk).then(function(v){done();return v}).catch(function(error){done();throw error})};RCloud.UI.prevent_progress_modal=function(){if(allowed===1){if(progress_counter>0){clear_cursor();clear_curtain()}}allowed-=1};RCloud.UI.allow_progress_modal=function(){if(allowed===0){if(progress_counter>0){set_cursor();set_curtain()}}allowed+=1}})();RCloud.UI.right_panel=RCloud.UI.collapsible_column("#right-column","#accordion-right","#right-pane-collapser");RCloud.UI.run_button=function(){var run_button_=$("#run-notebook"),running_=false,stopping_=false,queue_=[],cancels_=[];function display(icon,title){$("i",run_button_).removeClass().addClass(icon);run_button_.attr("title",title)}function highlight(whether){run_button_.parent().find(".button-highlight").animate({opacity:whether?1:0},250)}function start_queue(){if(queue_.length===0){stopping_=false;running_=false;display("icon-play","Run All");highlight(false);return Promise.resolve(undefined)}else{running_=true;var first=queue_.shift();display("icon-stop","Stop");highlight(true);return first().then(function(){if(stopping_){stopping_=false;throw"stop"}cancels_.shift();return start_queue()})}}return{init:function(){var that=this;run_button_.click(function(){if(running_){that.stop()}else shell.run_notebook()});RCloud.session.listeners.push({on_reset:function(){that.on_stopped()}})},stop:function(){if(rcloud.has_compute_separation)rcloud.signal_to_compute(2);else stopping_=true},on_stopped:function(){cancels_.forEach(function(cancel){cancel()});queue_=[];cancels_=[];running_=false;display("icon-play","Run All");highlight(false)},enqueue:function(f,cancel){var that=this;queue_.push(f);
-cancels_.push(cancel||function(){});if(!running_){start_queue().catch(function(xep){if(xep==="stop"){cancels_.shift();that.on_stopped()}else{console.log(xep);that.on_stopped();if(!/^ERROR FROM R SERVER: 127/.test(xep))throw xep}})}}}}();RCloud.UI.scratchpad=function(){var binary_mode_;function make_asset_url(model){return window.location.protocol+"//"+window.location.host+"/notebook.R/"+model.parent_model.controller.current_gist().id+"/"+model.filename()}return{session:null,widget:null,exists:false,current_model:null,change_content:null,body:function(){return RCloud.UI.panel_loader.load_snippet("assets-snippet")},init:function(){var that=this;function setup_scratchpad(div){var inner_div=$("");var clear_div=$("");div.append(inner_div);div.append(clear_div);var ace_div=$('');ace_div.css({"background-color":"#f1f1f1"});inner_div.append(ace_div);ace.require("ace/ext/language_tools");var widget=ace.edit(ace_div[0]);var LangMode=ace.require("ace/mode/r").Mode;var session=widget.getSession();that.session=session;that.widget=widget;var doc=session.doc;session.on("change",function(){widget.resize()});widget.setOptions({enableBasicAutocompletion:true});session.setMode(new LangMode(false,doc,session));session.setUseWrapMode(true);widget.resize();ui_utils.on_next_tick(function(){session.getUndoManager().reset();widget.resize()});that.change_content=ui_utils.ignore_programmatic_changes(that.widget,function(){if(that.current_model)that.current_model.parent_model.on_dirty()});ui_utils.install_common_ace_key_bindings(widget,function(){return that.current_model.language()});$("#collapse-assets").on("shown.bs.collapse panel-resize",function(){widget.resize()})}function setup_asset_drop(){var showOverlay_;$(document).on("dragstart dragenter dragover",function(e){var dt=e.originalEvent.dataTransfer;if(!dt)return;if(dt.types!==null&&(dt.types.indexOf?dt.types.indexOf("Files")!=-1&&dt.types.indexOf("text/html")==-1:dt.types.contains("application/x-moz-file"))){if(!shell.notebook.model.read_only()){e.stopPropagation();e.preventDefault();$("#asset-drop-overlay").css({display:"block"});showOverlay_=true}else{e.stopPropagation();e.preventDefault()}}});$(document).on("drop dragleave",function(e){e.stopPropagation();e.preventDefault();showOverlay_=false;setTimeout(function(){if(!showOverlay_){$("#asset-drop-overlay").css({display:"none"})}},100)});$("#scratchpad-wrapper").bind({drop:function(e){e=e.originalEvent||e;var files=e.files||e.dataTransfer.files;var dt=e.dataTransfer;if(!shell.notebook.model.read_only()){RCloud.UI.upload_with_alerts(true,{files:files}).catch(function(){})}$("#asset-drop-overlay").css({display:"none"})},"dragenter dragover":function(e){var dt=e.originalEvent.dataTransfer;if(!shell.notebook.model.read_only())dt.dropEffect="copy"}})}var scratchpad_editor=$("#scratchpad-editor");if(scratchpad_editor.length){this.exists=true;setup_scratchpad(scratchpad_editor);setup_asset_drop()}$("#new-asset > a").click(function(){var filename=prompt("Choose a filename for your asset");if(!filename)return;if(Notebook.is_part_name(filename)){alert("Asset names cannot start with 'part[0-9]', sorry!");return}var found=shell.notebook.model.get_asset(filename);if(found)found.controller.select();else{var comment_text=function(text,ext){switch(ext){case"css":return"/* "+text+" */\n";case"js":return"// "+text+"\n";case"html":return"\n";default:return"# "+text+"\n"}};var ext=filename.indexOf(".")!=-1?filename.match(/\.(.*)/)[1]:"";shell.notebook.controller.append_asset(comment_text("New file "+filename,ext),filename).spread(function(_,controller){controller.select();ui_utils.ace_set_pos(RCloud.UI.scratchpad.widget,2,1)})}})},panel_sizer:function(el){return{padding:RCloud.UI.collapsible_column.default_padder(el),height:9e3}},set_model:function(asset_model){var that=this;if(!this.exists)return;if(this.current_model&&!binary_mode_){this.current_model.cursor_position(this.widget.getCursorPosition());if(this.current_model.content(this.widget.getValue())){this.current_model.parent_model.controller.update_asset(this.current_model)}}this.current_model=asset_model;if(!this.current_model){$("#scratchpad-binary").hide();$("#scratchpad-editor").show();that.change_content("");that.widget.resize();that.widget.setReadOnly(true);$("#scratchpad-editor > *").hide();$("#asset-link").hide();return}this.update_asset_url();$("#asset-link").show();var content=this.current_model.content();if(Notebook.is_binary_content(content)){binary_mode_=true;$("#scratchpad-editor").hide();var sbin=$("#scratchpad-binary");if(/\.pdf$/i.test(this.current_model.filename()))sbin.html("
PDF preview not supported
");else sbin.html('');sbin.show()}else{binary_mode_=false;that.widget.setReadOnly(false);$("#scratchpad-binary").hide();$("#scratchpad-editor").show();$("#scratchpad-editor > *").show();this.change_content(content);var model_cursor=asset_model.cursor_position();if(model_cursor){ui_utils.ace_set_pos(this.widget,model_cursor)}else{ui_utils.ace_set_pos(this.widget,0,0)}ui_utils.on_next_tick(function(){that.session.getUndoManager().reset()});that.language_updated();that.widget.resize();that.widget.focus()}},update_model:function(){return this.current_model&&!binary_mode_?this.current_model.content(this.widget.getSession().getValue()):null},content_updated:function(){var changed=false;changed=this.current_model.content();binary_mode_=Notebook.is_binary_content(changed);if(changed&&!binary_mode_){var range=this.widget.getSelection().getRange();this.change_content(changed);this.widget.getSelection().setSelectionRange(range)}return changed},language_updated:function(){if(!binary_mode_){var lang=this.current_model.language();var LangMode=ace.require(RCloud.language.ace_mode(lang)).Mode;this.session.setMode(new LangMode(false,this.session.doc,this.session))}},set_readonly:function(readonly){if(!shell.is_view_mode()){if(this.widget&&!binary_mode_)ui_utils.set_ace_readonly(this.widget,readonly);if(readonly)$("#new-asset").hide();else $("#new-asset").show()}},update_asset_url:function(){if(this.current_model)$("#asset-link").attr("href",make_asset_url(this.current_model))},clear:function(){if(!this.exists)return;this.change_content("");this.session.getUndoManager().reset();this.widget.resize()}}}();RCloud.UI.search=function(){var page_size_=10;var search_err_msg=['The search engine in RCloud uses Lucene for advanced search features.',"It appears you may have used one of the special characters in Lucene syntax incorrectly. ",'Please see this link to learn about Lucene syntax. ','
Or, if you mean to search for the character itself, escape it using a backslash, e.g. "foo\\:"
'];function go_to_page(page_num,incr_by){var start=parseInt(page_num)*parseInt(incr_by);var end=parseInt(start)+parseInt(incr_by);var qry=$("#input-text-search").val();var sortby=$("#sort-by option:selected").val();var orderby=$("#order-by option:selected").val();$("#input-text-search").blur();if(!($("#input-text-search").val()===""))RCloud.UI.search.exec(qry,sortby,orderby,start,end,true)}function sortby(){return $("#sort-by option:selected").val()}function orderby(){return $("#order-by option:selected").val()}function all_sources(){return $("#all-sources").is(":checked")}function order_from_sort(){var orderby;switch(sortby()){case"starcount":case"updated_at":orderby="desc";break;case"user":case"description":orderby="asc";break}$("#order-by").val(orderby)}return{body:function(){return RCloud.UI.panel_loader.load_snippet("search-snippet")},init:function(){if(!rcloud.search)$("#search-wrapper").text("Search engine not enabled on server");else{$("#search-form").submit(function(e){searchproc();return false});rcloud.get_gist_sources().then(function(sources){if(_.isString(sources))sources=[sources];if(sources.length<2){$("#all-sources").parent().hide()}else{$("#all-sources").change(function(e){var val=all_sources();rcloud.config.set_user_option("search-all-sources",val)})}});$("#sort-by").change(function(){rcloud.config.set_user_option("search-sort-by",sortby());order_from_sort();rcloud.config.set_user_option("search-order-by",orderby());searchproc()});$("#order-by").change(function(){rcloud.config.set_user_option("search-order-by",orderby());searchproc()});var searchproc=function(){var start=0;var qry=$("#input-text-search").val();$("#input-text-search").focus();if(!($("#input-text-search").val()==="")){RCloud.UI.search.exec(qry,sortby(),orderby(),start,page_size_)}else{$("#paging").html("");$("#search-results").html("");$("#search-summary").html("")}}}},load:function(){return rcloud.config.get_user_option(["search-all-sources","search-results-per-page","search-sort-by","search-order-by"]).then(function(opts){$("#all-sources").prop("checked",opts["search-all-sources"]);if(opts["search-results-per-page"])page_size_=opts["search-results-per-page"];if(!opts["search-sort-by"])opts["search-sort-by"]="starcount";$("#sort-by").val(opts["search-sort-by"]);if(opts["search-order-by"])$("#order-by").val(opts["search-order-by"]);else order_from_sort()})},panel_sizer:function(el){var padding=RCloud.UI.collapsible_column.default_padder(el);var height=24+$("#search-summary").height()+$("#search-results").height()+$("#search-results-pagination").height();height+=40;return{height:height,padding:padding}},toggle:function(id,togid){$("#"+togid+"").text(function(_,txt){var ret="";if(txt.indexOf("Show me more...")>-1){ret="Show me less...";$("#"+id+"").css("height","auto")}else{ret="Show me more...";$("#"+id+"").css("height","150px")}return ret});return false},exec:function(query,sortby,orderby,start,noofrows,pgclick){function summary(html,color){$("#search-summary").css("color",color||"black");$("#search-summary").show().html($("").append(html))}function err_msg(html,color){$("#search-summary").css("display","none");$("#search-results").css("color",color||"black");$("#search-results-row").show().animate({scrollTop:$(document).height()},"slow");$("#search-results").show().html($("").append(html))}function create_list_of_search_results(d){var i;var custom_msg="";if(d===null||d==="null"||d===""){summary("No Results Found")}else if(d[0]==="error"){d[1]=d[1].replace(/\n/g,"");if($("#paging").html!="")$("#paging").html("");if(d[1].indexOf("org.apache.solr.search.SyntaxError")>-1)custom_msg=search_err_msg.join("");err_msg(custom_msg+"ERROR:\n"+d[1],"darkred")}else{if(typeof d==="string"){d=JSON.parse("["+d+"]")}for(i=0;i
"+content[l]+"").replace(/\|-\|/g,"
");inner_table=inner_table.replace(/line_no/g,"|");inner_table="
| "+'"+d[i].user+" / "+d[i].notebook+""+image_string+" modified at "+d[i].updated_at+" | |
"+parts_table+" | |
File "+filename+" exists.
");var overwrite=bootstrap_utils.button({"class":"btn-danger"}).click(overwrite_click).text("Overwrite");p.append(overwrite);var alert_box=result_alert(p);$("button.close",alert_box).click(function(){callback(new Error("Overwrite cancelled"),null)})})}}options=upload_ui_opts(options||{});if(options.$result_panel.length)RCloud.UI.right_panel.collapse(options.$result_panel,false);var file_error_handler=function(err){var message=err.message;var p,done=true;if(message==="empty"){p=$("File is empty.
")}else if(message==="Overwrite cancelled"){p=$("").append(message)}else if(message==="badname"){p=$("
Filename not allowed.
")}else{p=$("(unexpected) "+message+"
");console.log(message,err.stack)}result_alert(p);throw err};var promise=to_notebook?RCloud.upload_assets(options,asset_react(options)):RCloud.upload_files(options,file_react(options));return promise.catch(function(err){return file_error_handler(err,options)}).then(function(){if(options.$progress.length)window.setTimeout(function(){options.$progress.hide()},5e3)})}return upload_files}();RCloud.UI.upload_frame={body:function(){return RCloud.UI.panel_loader.load_snippet("file-upload-snippet")},init:function(){$("#file").change(function(){$("#progress-bar").css("width","0%")});$("#upload-submit").click(function(){if($("#file")[0].files.length===0)return;var to_notebook=$("#upload-to-notebook").is(":checked");RCloud.UI.upload_with_alerts(to_notebook).catch(function(){})});RCloud.session.listeners.push({on_reset:function(){$(".progress").hide();$("#file-upload-results").empty()}})},panel_sizer:function(el){var padding=RCloud.UI.collapsible_column.default_padder(el);var height=24+$("#file-upload-controls").height()+$("#file-upload-results").height();return{height:height,padding:padding}}};RCloud.UI.notebook_protection_logger={timeout:0,log:function(val){var that=this;$(".logging-panel").removeClass("red").removeClass("white").addClass("green");$(".logging-panel span").text(val);window.clearTimeout(this.timeout);this.timeout=setTimeout(function(){$(".logging-panel").removeClass("red").removeClass("green").addClass("white");$(".logging-panel span").html(" ")},2e4)},warn:function(val){var that=this;$(".logging-panel").removeClass("green").removeClass("white").addClass("red");$(".logging-panel span").text(val);window.clearTimeout(this.timeout);this.timeout=setTimeout(function(){$(".logging-panel").removeClass("red").removeClass("green").addClass("white");$(".logging-panel span").html(" ")},2e4)},clear:function(){$(".logging-panel").removeClass("red").removeClass("green").addClass("white");$(".logging-panel span").html(" ")}};RCloud.UI.notebook_protection=function(){this.defaultCryptogroup=null;this.defaultNotebook=null;this.userId=null;this.userLogin=null;this.appScope=null;this.appInited=false;return{init:function(state){if(!this.appInited){this.appInited=true;this.buildDom();var that=this;require(["angular","./../../js/ui/notebook_protection_app","angular-selectize"],function(angular,app,selectize){"use strict";angular.element(document).ready(function(){_.delay(function(){angular.bootstrap($("#protection-app")[0],["NotebookProtectionApp"]);angular.resumeBootstrap()},100);_.delay(function(){that.appScope=angular.element(document.getElementById("protection-app")).scope();that.launch(state);$("#notebook-protection-dialog").modal({keyboard:false})},200)})})}else{this.launch(state);$("#notebook-protection-dialog").modal({keyboard:false})}},launch:function(state){if(state==="both-tabs-enabled"){$("#protection-app #tab2").removeClass("active");$("#protection-app #tab1").removeClass("disabled").addClass("active");$("#protection-app #tab1 a").attr("href","#notebook-tab").attr("data-toggle","tab");$("#protection-app #tab2 a").tab("show");$("#protection-app #tab1 a").tab("show");this.appScope.initBoth()}else if(state==="group-tab-enabled"){$("#protection-app #tab1").removeClass("active").addClass("disabled");$("#protection-app #tab1 a").attr("href","#").removeAttr("data-toggle");$("#protection-app #tab2 a").tab("show");this.appScope.initGroups()}},buildDom:function(){var body=$('');body.append(RCloud.UI.panel_loader.load_snippet("notebook-protection-modal"));var header=$(['','',"
"].join(""));var dialog=$('').append($('').append($('').append(header).append(body)));$("body").append(dialog)},close:function(){this.appScope.cancel()}}}();
\ No newline at end of file
+RClient={create:function(opts){opts=_.defaults(opts,{debug:false});function on_connect(){if(!rserve.ocap_mode){RCloud.UI.session_pane.post_error(ui_utils.disconnection_error("Expected an object-capability Rserve. Shutting Down!"));shutdown();return}var session_mode=opts.mode?opts.mode:"client";rserve.ocap([token,execToken],session_mode,function(err,ocaps){if(err)on_error(err[0],err[1]);else{ocaps=Promise.promisifyAll(ocaps);if(ocaps===null){on_error("Login failed. Shutting down!")}else if(RCloud.is_exception(ocaps)){on_error(ocaps)}else{result.running=true;opts.on_connect&&opts.on_connect.call(result,ocaps)}}})}function shutdown(){if(!clean){$("#input-div").hide()}if(!rserve.closed)rserve.close()}function on_error(msg,status_code){if(opts.debug){debugger}if(opts.on_error&&opts.on_error(msg,status_code))return;RCloud.UI.session_pane.post_error(ui_utils.disconnection_error(msg));shutdown()}function on_close(msg){if(opts.debug){debugger}if(!clean){RCloud.UI.fatal_dialog("Your session has been logged out.","Reconnect",ui_utils.relogin_uri());shutdown()}}var token=$.cookies.get().token;var execToken=$.cookies.get().execToken;var rserve=Rserve.create({host:opts.host,on_connect:on_connect,on_error:on_error,on_close:on_close,on_data:opts.on_data,on_oob_message:opts.on_oob_message});var result;var clean=false;result={_rserve:rserve,host:opts.host,running:false,post_response:function(msg){var d=$("").html(msg);$("#output").append(d)},post_rejection:function(e){RCloud.UI.session_pane.post_error(e.message);throw e},close:function(){clean=true;shutdown()}};return result}};RCloud={};RCloud.is_exception=function(v){return _.isObject(v)&&v.r_attributes&&v.r_attributes["class"]==="OCAP-eval-error"};RCloud.exception_message=function(v){if(!RCloud.is_exception(v))throw new Error("Not an R exception value");return v["error"]};RCloud.promisify_paths=function(){function rcloud_handler(command,promise_fn){function success(result){if(result&&RCloud.is_exception(result)){var tb=result["traceback"]?result["traceback"]:"";if(tb.join)tb=tb.join("\n");throw new Error(command+": "+result.error+"R trace:\n"+tb)}return result}return function(){return promise_fn.apply(this,arguments).then(success)}}function process_paths(ocaps,paths,replace){function get(path){var v=ocaps;for(var i=0;iNotebook Permissions / Group Management
","")}return s.replace(/ /g," ")}function decode(s){if(command.allow_multiline){s=s.replace(/
/g,"\n")}return s.replace(/\xa0/g," ")}function set_content_type(is_multiline,content){if(is_multiline){elem$.html(content)}else{elem$.text(content)}}var old_opts=options(),new_opts=old_opts;if(_.isObject(command)){var defaults;if(old_opts)defaults=$.extend({},old_opts);else defaults={on_change:function(){return true},allow_edit:true,inactive_text:elem$.text(),active_text:elem$.text(),allow_multiline:false,select:function(el){var range=document.createRange();range.selectNodeContents(el);return range}};new_opts=$.extend(defaults,command);elem$.data("__editable",new_opts)}else{if(command!=="destroy"&&!old_opts)throw new Error("expected already editable for command "+command);var set_option=function(key,value){old_opts=$.extend({},old_opts);new_opts[key]=value};switch(command){case"destroy":elem$.data("__editable",null);new_opts=null;break;case"option":if(!arguments[2])return old_opts;else if(!arguments[3])return old_opts[arguments[2]];else{set_option(arguments[2],arguments[3])}break;case"disable":set_option("allow_edit",false);break;case"enable":set_option("allow_edit",true);break}}var action=null;if((!old_opts||!old_opts.allow_edit)&&new_opts&&new_opts.allow_edit)action="melt";else if(old_opts&&old_opts.allow_edit&&(!new_opts||!new_opts.allow_edit))action="freeze";if(new_opts)set_content_type(command.allow_multiline,encode(options().__active?new_opts.active_text:new_opts.inactive_text));switch(action){case"freeze":elem$.removeAttr("contenteditable");elem$.off("keydown.editable");elem$.off("focus.editable");elem$.off("click.editable");elem$.off("blur.editable");break;case"melt":elem$.attr("contenteditable","true");elem$.on({"focus.editable":function(){if(!options().__active){options().__active=true;set_content_type(command.allow_multiline,encode(options().active_text));window.setTimeout(function(){selectRange(options().select(elem$[0]));elem$.off("blur.editable");elem$.on("blur.editable",function(){set_content_type(command.allow_multiline,encode(options().inactive_text));options().__active=false})},10)}},"click.editable":function(e){e.stopPropagation()},"keydown.editable":function(e){if(e.keyCode===$.ui.keyCode.ENTER){var txt=decode(elem$.text());function execute_if_valid_else_ignore(f){if(options().validate(txt)){options().__active=false;elem$.off("blur.editable");elem$.blur();f(txt,txt!=options().active_text);return true}else{return false}}if(options().ctrl_cmd&&(e.ctrlKey||e.metaKey)){e.preventDefault();return execute_if_valid_else_ignore(options().ctrl_cmd)}else if(!command.allow_multiline||e.ctrlKey||e.metaKey){e.preventDefault();return execute_if_valid_else_ignore(options().change)}}else if(e.keyCode===$.ui.keyCode.ESCAPE){elem$.blur()}return true},"input.editable":function(e){if(elem$.text().length===0)elem$.css("padding-right","1px");else elem$.css("padding-right","")}});break}return elem$};ui_utils.fake_hover=function fake_hover(node){var parent=node.parent;var index=$(".notebook-commands.appear",node.element).css("display")!=="none"?parent.children.indexOf(node):undefined;ui_utils.on_next_tick(function(){if(index>=0&&index
"+files[i]+""}RCloud.UI.help_frame.display_content(html)},editor:function(ctx,what,content,name){append_session_info("what: "+what+"\ncontents:"+content+"\nname: "+name+"\n")},"console.out":forward_to_context("out"),"console.msg":forward_to_context("msg"),"console.err":forward_to_context("err"),"img.url.update":handle_img.bind(null,"img.url.update"),"img.url.final":handle_img.bind(null,"img.url.final"),stdout:append_session_info,stderr:append_session_info,"html.out":forward_to_context("html_out"),"deferred.result":forward_to_context("deferred_result")};var on_data=function(v){v=v.value.json();console.log("OOB send arrived: ['"+v[0]+"']"+(oob_sends[v[0]]?"":" (unhandled)"));if(oob_sends[v[0]])oob_sends[v[0]].apply(null,v.slice(1))};var oob_messages={"console.in":forward_to_context("in",true)};var on_message=function(v,k){v=v.value.json();console.log("OOB message arrived: ['"+v[0]+"']"+(oob_messages[v[0]]?"":" (unhandled)"));if(oob_messages[v[0]]){v.push(k);oob_messages[v[0]].apply(null,v.slice(1))}else k("unhandled",null)};function could_not_initialize_error(err){var msg="Could not initialize session. The GitHub backend might be down or you might have an invalid authorization token. (You could try clearing your cookies, for example).";if(err)msg+="
Error: "+err.toString();return msg}function on_connect_anonymous_allowed(ocaps,session_type){var promise_c,promise_s;rcloud=RCloud.create(ocaps.rcloud);if(rcloud.authenticated){promise_c=rcloud.compute_init(session_type,rcloud.username(),rcloud.github_token());promise_s=rcloud.session_init(session_type,rcloud.username(),rcloud.github_token())}else{promise_c=rcloud.anonymous_compute_init(session_type);promise_s=rcloud.anonymous_session_init(session_type)}promise_c.catch(function(e){RCloud.UI.fatal_dialog(could_not_initialize_error(e),"Logout","/logout.R")});promise_s.catch(function(e){RCloud.UI.fatal_dialog(could_not_initialize_error(e),"Logout","/logout.R")});return Promise.all([promise_c,promise_s])}function on_connect_anonymous_disallowed(ocaps,session_type){rcloud=RCloud.create(ocaps.rcloud);if(!rcloud.authenticated){return Promise.reject(new Error("Authentication required"))}var res_c=rcloud.compute_init(session_type,rcloud.username(),rcloud.github_token());var res_s=rcloud.session_init(session_type,rcloud.username(),rcloud.github_token());return Promise.all([res_c,res_s])}function rclient_promise(allow_anonymous,session_type){return new Promise(function(resolve,reject){rclient=RClient.create({debug:false,mode:"IDE",host:location.href.replace(/^http/,"ws").replace(/#.*$/,""),on_connect:function(ocaps){resolve(ocaps)},on_data:on_data,on_oob_message:on_message,on_error:function(error){reject(error);return false}});rclient.allow_anonymous_=allow_anonymous}).then(function(ocaps){var promise=allow_anonymous?on_connect_anonymous_allowed(ocaps,session_type):on_connect_anonymous_disallowed(ocaps,session_type);return promise}).then(function(hello){if(!$("#output > .response").length)rclient.post_response(hello)}).catch(function(error){if(window.rclient)rclient.close();if(error.message==="Authentication required"){RCloud.UI.fatal_dialog("Your session has been logged out.","Reconnect",ui_utils.relogin_uri())}else{var msg=error.message||error.error||error;RCloud.UI.fatal_dialog(could_not_initialize_error(msg),"Logout","/logout.R")}throw error}).then(function(){rcloud.get_conf_value("exec.token.renewal.time").then(function(timeout){if(timeout){timeout=timeout*1e3;var replacer=function(){rcloud.replace_token($.cookies.get("execToken"),"rcloud.exec").then(function(new_token){$.cookies.set("execToken",new_token);setTimeout(replacer,timeout)})};setTimeout(replacer,timeout)}})}).then(function(){rcloud.display.set_device_pixel_ratio();rcloud.api.set_url(window.location.href);return rcloud.languages.get_list().then(function(lang_list){RCloud.language._set_available_languages(_.omit(lang_list,"r_type","r_attributes"))}).then(rcloud.plots.get_formats).then(function(formats){formats=_.without(formats,"r_attributes","r_type");var i=1e3;var im_formats={};formats.forEach(function(format){im_formats[format]={sort:i};i+=1e3});RCloud.UI.image_manager.formats.add(im_formats)}).then(function(){return rcloud.init_client_side_data()})})}RCloud.session={first_session_:true,listeners:[],reset:function(){if(this.first_session_){this.first_session_=false;return RCloud.UI.with_progress(function(){})}this.listeners.forEach(function(listener){listener.on_reset()});return RCloud.UI.with_progress(function(){var anonymous=rclient.allow_anonymous_;rclient.close();return rclient_promise(anonymous)})},init:function(allow_anonymous,session_type){this.first_session_=true;return rclient_promise(allow_anonymous,session_type)}}})();RCloud.language=function(){var languages_={CSS:{ace_mode:"ace/mode/css"},JavaScript:{ace_mode:"ace/mode/javascript"},Text:{ace_mode:"ace/mode/text",extension:"txt"},HTML:{ace_mode:"ace/mode/html"}};var langs_=[];return{is_a_markdown:function(language){return languages_[language]?languages_[language].is_a_markdown:false},ace_mode:function(language){return languages_[language]&&languages_[language].ace_mode||languages_.Text.ace_mode},extension:function(language){var ext=languages_[language]&&languages_[language].extension||"";if(_.isArray(ext))ext=ext[0];return ext},hljs_class:function(language){return languages_[language]&&languages_[language].hljs_class||null},_set_available_languages:function(langs){langs_=[];for(var lang in langs){langs_.push(lang);languages_[lang]=languages_[lang]||{};languages_[lang].is_a_markdown=langs[lang]["is.a.markdown"];languages_[lang].ace_mode=langs[lang]["ace.mode"];languages_[lang].hljs_class=langs[lang]["hljs.class"];languages_[lang].extension=langs[lang].extension}},available_languages:function(){return langs_}}}();(function(){function upload_opts(opts){if(_.isBoolean(opts)||_.isUndefined(opts))opts={force:!!opts};else if(!_.isObject(opts))throw new Error("didn't understand options "+opts);opts=$.extend({force:false},opts);if(!opts.files)opts.files=opts.$file?opts.$file[0].files:[];return opts}function text_or_binary_reader(){return Promise.promisify(function(file,callback){var fr=new FileReader;var bytes_read=0;fr.onload=function(e){callback(null,fr.result)};fr.onerror=function(e){callback(fr.error,null)};fr.readAsArrayBuffer(file.slice(0,file.size))})}RCloud.upload_assets=function(options,react){react=react||{};options=upload_opts(options);function upload_asset(filename,content){var replacing=shell.notebook.model.get_asset(filename);var promise_controller;if(replacing){if(react.replace)react.replace(filename);replacing.content(content);promise_controller=shell.notebook.controller.update_asset(replacing).return(replacing.controller)}else{if(react.add)react.add(filename);promise_controller=shell.notebook.controller.append_asset(content,filename).then(function(){return shell.notebook.model.get_asset(filename).controller})}return promise_controller.then(function(controller){controller.select()})}return RCloud.utils.promise_sequence(options.files,function(file){if(file.size>75e4)return Promise.reject(new Error("File "+file.name+" rejected: maximum asset size is 750KB"));return text_or_binary_reader()(file).then(function(content){if(_.isString(content)&&Notebook.empty_for_github(content))throw new Error("empty");return upload_asset(file.name,content)})})};function binary_upload(upload_ocaps,react){return Promise.promisify(function(file,is_replace,callback){var fr=new FileReader;var chunk_size=1024*128;var f_size=file.size;var cur_pos=0;var bytes_read=0;if(react.start)react.start(file.name);fr.readAsArrayBuffer(file.slice(cur_pos,cur_pos+chunk_size));fr.onload=function(e){if(react.progress)react.progress(bytes_read,f_size);var promise;if(e.target.result.byteLength>0){var bytes=new Uint8Array(e.target.result);promise=upload_ocaps.writeAsync(bytes.buffer).then(function(){bytes_read+=e.target.result.byteLength;cur_pos+=chunk_size;fr.readAsArrayBuffer(file.slice(cur_pos,cur_pos+chunk_size))})}else{promise=upload_ocaps.closeAsync().then(function(){if(react.done)react.done(is_replace,file.name);callback(null,true)})}promise.catch(function(err){callback(err,null)})}})}RCloud.upload_files=function(options,react){var upload_ocaps=options.upload_ocaps||rcloud._ocaps.file_upload;react=react||{};options=upload_opts(options);var upload=binary_upload(upload_ocaps,react);function upload_file(path,file){var upload_name=path+"/"+file.name;return upload_ocaps.createAsync(upload_name,options.force).catch(function(err){if(react.confirm_replace&&/exists/.test(err.message)){return react.confirm_replace(file.name).then(function(confirm){return confirm?upload_ocaps.createAsync(upload_name,true).return("overwrite"):Promise.resolve(false)})}else throw err}).then(function(whether){return whether?upload(file,whether==="overwrite"):Promise.resolve(undefined)})}if(!(window.File&&window.FileReader&&window.FileList&&window.Blob))return Promise.reject(new Error("File API not supported by browser."));else{if(_.isUndefined(options.files)||!options.files.length)return Promise.reject(new Error("No files selected!"));else{return upload_ocaps.upload_pathAsync().then(function(path){return RCloud.utils.promise_sequence(options.files,upload_file.bind(null,path))})}}}})();RCloud.UI={};RCloud.UI.advanced_menu=function(){var menu_;var result={init:function(){menu_=RCloud.UI.menu.create();menu_.init();d3.rebind(result,menu_,"add","remove","check","uncheck","enable","create");RCloud.UI.menus.add({advanced_menu:{sort:5e3,type:"menu",title:"Advanced",modes:["view","edit"],menu:menu_}});menu_.add({open_in_github:{sort:1e3,text:"Open in GitHub",modes:["view","edit"],action:function(){window.open(shell.github_url(),"_blank")}},open_from_github:{sort:2e3,text:"Load Notebook by ID",modes:["edit"],action:function(){var result=prompt("Enter notebook ID or github URL:");if(result!==null)shell.open_from_github(result)}},show_source:{sort:9e3,text:"Show Source",checkbox:true,value:true,modes:["view"],action:function(value){if(value)shell.notebook.controller.show_r_source();else shell.notebook.controller.hide_r_source()}},publish_notebook:{sort:1e4,text:"Publish Notebook",checkbox:true,modes:["edit"],action:function(value){function publish_success(gistname,un){return function(val){if(!val)console.log("Failed to "+(un?"un":"")+"publish notebook "+gistname)}}if(value){rcloud.publish_notebook(editor.current().notebook).then(publish_success(editor.current().notebook,false))}else{rcloud.unpublish_notebook(editor.current().notebook).then(publish_success(editor.current().notebook,true))}}}})}};return result}();RCloud.UI.cell_commands=function(){var extension_;function create_command_set(area,div,cell_model,cell_view){var commands_=extension_.create(area,cell_model,cell_view);_.each(commands_,function(command){command.control.addClass("cell-control")});var flags_={};div.append.apply(div,_.pluck(commands_,"control"));return{controls:commands_,set_flag:function(flag,value){var checkf=function(f){var reverse;if(f.substr(0,1)=="!"){reverse=true;f=f.substr(1)}return reverse^flags_[f]};flags_[flag]=value;extension_.entries(area).forEach(function(cmd){if(!_.every(cmd.enable_flags,checkf))commands_[cmd.key].disable();else commands_[cmd.key].enable();if(!_.every(cmd.display_flags,checkf))commands_[cmd.key].control.hide();else commands_[cmd.key].control.show()})}}}var result={create_button:function(awesome,text,action){var control=ui_utils.fa_button(awesome,text);control.click(function(e){$(".tooltip").remove();if(!$(e.currentTarget).hasClass("button-disabled")){action(control)}});return{control:control,enable:function(){ui_utils.enable_fa_button(control)},disable:function(){ui_utils.disable_fa_button(control)}}},create_select:function(items,action){var control=$("");control.append.apply(control,items.map(function(item){return $("").text(item)}));control.change(function(){var val=control.val();action(val)});return{control:control,enable:function(){control.prop("disabled",false)},disable:function(){control.prop("disabled","disabled")},set:function(val){if(items.indexOf(val)<0)throw new Error("tried to select unknown value "+val);control.val(val)}}},create_static:function(html,wrap){var content=$("").html(html);var span=wrap?wrap(content):content;return{control:span,enable:function(){},disable:function(){},set:function(html){content.html(html);return this},get:function(){return content}}},create_icon:function(icon,color,wrap){var result=this.create_static("");result=_.extend(result,{icon:function(icon){result.get().find("i").attr("class",icon);return this},color:function(color){result.get().find("i").css("color",color);return this},title:function(title){result.get().find("i").attr("title",title);return this}});result.get().attr("class","state-icon left-indicator");result.icon(icon).color(color);return result},init:function(){extension_=RCloud.extension.create({defaults:{},sections:{above_between:{filter:function(command){return command.area==="above"||command.area==="between"}},cell:{filter:function(command){return command.area==="cell"}},prompt:{filter:function(command){return command.area==="prompt"}},left:{filter:function(command){return command.area==="left"}}}});var that=this;this.add({insert:{area:"above",sort:1e3,enable_flags:["modify"],create:function(cell_model){return that.create_button("icon-plus-sign","insert cell",function(){shell.insert_cell_before("",cell_model.language(),cell_model.id()).spread(function(_,controller){controller.edit_source(true)})})}},join:{area:"between",sort:2e3,enable_flags:["modify"],create:function(cell_model){return that.create_button("icon-link","join cells",function(){shell.join_prior_cell(cell_model)})}},language_cell:{area:"cell",sort:1e3,enable_flags:["modify"],create:function(cell_model,cell_view){var languages=RCloud.language.available_languages();if(languages.indexOf(cell_model.language())<0)languages.push(cell_model.language());return that.create_select(languages,function(language){cell_model.parent_model.controller.change_cell_language(cell_model,language); +cell_view.clear_result()})}},run:{area:"cell",sort:2e3,create:function(cell_model,cell_view){return that.create_button("icon-play","run",function(){cell_view.execute_cell()})}},edit:{area:"cell",sort:3e3,enable_flags:["modify"],create:function(cell_model,cell_view){return that.create_button("icon-edit borderable","toggle edit mode",function(){cell_view.toggle_edit()})}},results:{area:"cell",sort:3500,create:function(cell_model,cell_view){return that.create_button("icon-picture borderable","show/hide results",function(){cell_view.toggle_results()})}},command_gap:{area:"cell",sort:3500,create:function(cell_model){return that.create_static(" ")}},split:{area:"cell",sort:4e3,enable_flags:["modify","edit"],create:function(cell_model,cell_view){return that.create_button("icon-unlink","split cell",function(){var ace_widget=cell_view.ace_widget();if(ace_widget){var range=ace_widget.getSelection().getRange();var point1,point2;point1=ui_utils.character_offset_of_pos(ace_widget,range.start);if(!range.isEmpty())point2=ui_utils.character_offset_of_pos(ace_widget,range.end);shell.split_cell(cell_model,point1,point2)}})}},remove:{area:"cell",sort:5e3,enable_flags:["modify"],create:function(cell_model){return that.create_button("icon-trash","remove",function(){cell_model.parent_model.controller.remove_cell(cell_model)})}},grab_affordance:{area:"left",sort:1e3,display_flags:["modify"],create:function(cell_model){var svg="
";return that.create_static(svg,function(x){return $("").append(x)})}},left_gap:{area:"left",sort:1500,display_flags:["!modify"],create:function(cell_model){return that.create_static(" ")}},run_state:{area:"left",sort:2e3,create:function(cell_model){return that.create_icon("icon-circle-blank","#777")}},cell_number:{area:"left",sort:3e3,display_flags:["cell-numbers"],create:function(cell_model){return that.create_static(cell_model.id(),function(x){return $("").append("cell ",x)})}}});return this},add:function(commands){if(extension_)extension_.add(commands);return this},remove:function(command_name){if(extension_)extension_.remove(command_name);return this},decorate:function(area,div,cell_model,cell_view){var result=create_command_set(area,div,cell_model,cell_view);switch(area){case"above_between":_.extend(result,{betweenness:function(between){extension_.entries("above_between").forEach(function(cmd){if(cmd.area==="between"){if(between)result.controls[cmd.key].control.show();else result.controls[cmd.key].control.hide()}})}});break;default:}return result}};return result}();RCloud.UI.column=function(sel_column){var colwidth_;function classes(cw){return"col-md-"+cw+" col-sm-"+cw}var result={init:function(){var $sel=$(sel_column);if($sel.length===0)return;var classes=$sel.attr("class").split(/\s+/);classes.forEach(function(c){var cw=/^col-(?:md|sm)-(\d+)$/.exec(c);if(cw){cw=+cw[1];if(colwidth_===undefined)colwidth_=cw;else if(colwidth_!==cw)throw new Error("mismatched col-md- or col-sm- in column classes")}})},colwidth:function(val){if(!_.isUndefined(val)&&val!=colwidth_){$(sel_column).removeClass(classes(colwidth_)).addClass(classes(val));colwidth_=val}return colwidth_}};return result};RCloud.UI.collapsible_column=function(sel_column,sel_accordion,sel_collapser){var collapsed_=false;var result=RCloud.UI.column(sel_column);var parent_init=result.init.bind(result);function collapsibles(){return $(sel_accordion+" > .panel > div.panel-collapse:not(.out)")}function togglers(){return $(sel_accordion+" > .panel > div.panel-heading")}function set_collapse(target,collapse,persist){if(target.data("would-collapse")==collapse)return false;target.data("would-collapse",collapse);if(persist&&rcloud.config&&target.length){var opt="ui/"+target[0].id;rcloud.config.set_user_option(opt,collapse)}return true}function all_collapsed(){return $.makeArray(collapsibles()).every(function(el){return $(el).hasClass("out")||$(el).data("would-collapse")===true})}function sel_to_opt(sel){return sel.replace("#","ui/")}function opt_to_sel(opt){return opt.replace("ui/","#")}function reshadow(){$(sel_accordion+" .panel-shadow").each(function(v){var h=$(this).parent().find(".panel-body").outerHeight();if(h===0)h="100%";$(this).attr("height",h)})}_.extend(result,{init:function(){var that=this;parent_init();collapsibles().each(function(){$(this).data("would-collapse",!$(this).hasClass("in")&&!$(this).hasClass("out"))});togglers().click(function(){var target=$(this.dataset.target);that.collapse(target,target.hasClass("in"));return false});collapsibles().on("size-changed",function(){that.resize(true)});$(sel_collapser).click(function(){if(collapsed_)that.show(true);else that.hide(true)})},load_options:function(){var that=this;var sels=$.makeArray(collapsibles()).map(function(el){return"#"+el.id});sels.push(sel_accordion);var opts=sels.map(sel_to_opt);return rcloud.config.get_user_option(opts).then(function(settings){var hide_column;for(var k in settings){var id=opt_to_sel(k);if(id===sel_accordion)hide_column=settings[k];else if(typeof settings[k]==="boolean")set_collapse($(id),settings[k],false)}var save_setting=false;if(hide_column===undefined){hide_column=false;save_setting=true}if(hide_column)that.hide(save_setting);else that.show(save_setting)})},collapse:function(target,whether,persist){if(persist===undefined)persist=true;if(collapsed_){collapsibles().each(function(){if(this===target[0])set_collapse($(this),false,persist);else set_collapse($(this),true,persist)});this.show(true);return}var change=set_collapse(target,whether,persist);if(all_collapsed())this.hide(persist,!change);else this.show(persist,!change)},resize:function(skip_calc){if(!skip_calc){var cw=this.calcwidth();this.colwidth(cw)}RCloud.UI.middle_column.update();var heights={},padding={},cbles=collapsibles(),ncollapse=cbles.length;var greedy_one=null;cbles.each(function(){if(!$(this).hasClass("out")&&!$(this).data("would-collapse")){var spf=$(this).data("panel-sizer");var sp=spf?spf(this):RCloud.UI.collapsible_column.default_sizer(this);heights[this.id]=sp.height;padding[this.id]=sp.padding;if(!greedy_one&&$(this).attr("data-widgetheight")==="greedy")greedy_one=$(this)}});var available=$(sel_column).height();var total_headings=d3.sum($(sel_accordion+" .panel-heading").map(function(_,ph){return $(ph).outerHeight()}));available-=total_headings;for(var id in padding)available-=padding[id];var left=available,do_fit=false;for(id in heights)left-=heights[id];if(left>=0){if(greedy_one!==null){heights[greedy_one.get(0).id]+=left;do_fit=true}}else{left=available;var remaining=_.keys(heights),done=false,i;var split=left/remaining.length;while(remaining.length&&!done){done=true;for(i=0;iAw, shucks
");message_=$(''+message+"
");body.append(message_,default_button);if(href)body.append(ignore_button);body.append('');default_button.click(function(e){e.preventDefault();if(href)window.location=href;else fatal_dialog_.modal("hide")});ignore_button.click(function(){fatal_dialog_.modal("hide")});fatal_dialog_=$('').append($('').append($('').append($('').append(body))));$("body").append(fatal_dialog_);fatal_dialog_.on("shown.bs.modal",function(){default_button.focus()})}else message_.text(message);fatal_dialog_.modal({keyboard:false})}})();RCloud.UI.find_replace=function(){var find_dialog_=null,regex_,find_desc_,find_input_,replace_desc_,replace_input_,replace_stuff_,find_next_,find_last_,replace_next_,replace_all_,shown_=false,replace_mode_=false,find_cycle_=null,replace_cycle_=null,matches_=[],active_match_;function toggle_find_replace(replace){if(!find_dialog_){find_dialog_=$('');var find_form=$('');find_desc_=$('');find_input_=$('');find_next_=$('');find_last_=$('');var replace_break=$("");replace_desc_=$('');replace_input_=$('');replace_next_=$('');replace_all_=$('');replace_stuff_=replace_break.add(replace_desc_).add(replace_input_).add(replace_next_).add(replace_all_);var close=$('');find_form.append(find_desc_.append(find_input_),find_next_,find_last_,close,replace_break,replace_desc_.append(replace_input_),replace_next_,replace_all_);find_dialog_.append(find_form);$("#middle-column").prepend(find_dialog_);find_input_.on("input",function(e){e.preventDefault();e.stopPropagation();active_match_=undefined;build_regex(find_input_.val());highlight_all()});function find_next(reason){active_transition(reason||"deactivate");if(active_match_!==undefined)active_match_=(active_match_+1)%matches_.length;else active_match_=0;active_transition("activate")}find_next_.click(function(e){e.preventDefault();e.stopPropagation();find_next();return false});find_last_.click(function(e){e.preventDefault();e.stopPropagation();active_transition("deactivate");if(active_match_!==undefined)active_match_=(active_match_+matches_.length-1)%matches_.length;else active_match_=0;active_transition("activate");return false});replace_next_.click(function(e){e.preventDefault();e.stopPropagation();if(active_match_!==undefined){var cell=replace_current();if(cell){shell.notebook.controller.update_cell(cell).then(function(){find_next("replace")})}}else find_next();return false});replace_all_.click(function(e){e.preventDefault();e.stopPropagation();if(active_match_!==undefined){active_transition("deactivate");replace_rest()}else replace_all(find_input_.val(),replace_input_.val());return false});find_cycle_=["find-input","find-next","find-last"];replace_cycle_=["find-input","replace-input","find-next","find-last","replace-all"];function click_find_next(e){if(e.keyCode===$.ui.keyCode.ENTER){e.preventDefault();e.stopPropagation();find_next_.click();return false}return undefined}find_input_.keydown(click_find_next);replace_input_.keydown(click_find_next);find_form.keydown(function(e){switch(e.keyCode){case $.ui.keyCode.TAB:e.preventDefault();e.stopPropagation();var cycle=replace_mode_?replace_cycle_:find_cycle_;var i=cycle.indexOf(e.target.id)+cycle.length;if(e.shiftKey)--i;else++i;i=i%cycle.length;$("#"+cycle[i]).focus();return false;case $.ui.keyCode.ESCAPE:e.preventDefault();e.stopPropagation();hide_dialog();return false}return undefined});find_form.find("input").focus(function(){window.setTimeout(function(){this.select()}.bind(this),0)});close.click(function(){hide_dialog()})}find_dialog_.show();find_input_.focus();if(replace)replace_stuff_.show();else replace_stuff_.hide();build_regex(find_input_.val());highlight_all();shown_=true;replace_mode_=replace}function hide_dialog(){active_match_=undefined;build_regex(null);highlight_all();find_dialog_.hide();shown_=false}function escapeRegExp(string){return string.replace(/[.*+?^${}()|[\]\\]/g,"\\$&")}function build_regex(find){regex_=find&&find.length?new RegExp(escapeRegExp(find),"g"):null}function update_match_cell(match){var matches=matches_.filter(function(m){return m.filename===match.filename});shell.notebook.model.cells[match.index].notify_views(function(view){view.change_highlights(matches)})}function active_transition(transition){if(active_match_!==undefined){var match=matches_[active_match_];switch(transition){case"replace":match.kind="replaced";break;case"activate":match.kind=match.kind==="replaced"?"activereplaced":"active";break;case"deactivate":match.kind=match.kind==="activereplaced"?"replaced":"normal";break}update_match_cell(match)}}function highlight_cell(cell){var matches=[];if(regex_){var content=cell.content(),match;while(match=regex_.exec(content)){matches.push({begin:match.index,end:match.index+match[0].length,kind:matches.length===active_match_?"active":"normal"});if(match.index===regex_.lastIndex)++regex_.lastIndex}}cell.notify_views(function(view){view.change_highlights(matches)});return matches}function annotate_matches(matches,cell,n){return matches.map(function(match){return _.extend({index:n,filename:cell.filename()},match)})}function highlight_all(){matches_=[];shell.notebook.model.cells.forEach(function(cell,n){var matches=highlight_cell(cell);matches_.push.apply(matches_,annotate_matches(matches,cell,n))})}function replace_current(){function findIndex(a,f,i){if(i===undefined)i=0;for(;i
"));image_div_.append($image);var image_commands=$('');image_commands.append(save_button());image_commands.hide();$image.add(image_commands).hover(function(){image_commands.show()},function(){image_commands.hide()});image_div_.append(image_commands);$image.css({width:"100%",height:"100%"});update_dims(dims);image_div_.resizable({autoHide:true,stop:resize_stop});return container}img_=img_tag();div_=add_controls(img_);var result={div:function(){return div_},update:function(url,dims){img_.attr("src",url);update_dims(dims)}};return result}var result={update:function(url,dims,device,page){var id=device+"-"+page;var image;if(images_[id]){image=images_[id];image.update(url,dims)}else{image=create_image(id,url,dims,device,page);images_[id]=image}return image},formats:formats_};return result}()})();RCloud.UI.import_export=function(){function download_as_file(filename,content,mimetype){var file=new Blob([content],{type:mimetype});saveAs(file,filename)}return{init:function(){RCloud.UI.advanced_menu.add({import_notebooks:{sort:4e3,text:"Import External Notebooks",modes:["edit"],action:function(){function do_import(){var url=$("#import-source").val(),notebooks=$("#import-gists").val(),prefix=$("#import-prefix").val();notebooks=_.without(notebooks.split(/[\s,;]+/),"");rcloud.port_notebooks(url,notebooks,prefix).then(function(result){var succeeded=[],failed=[];for(var res in result){if(res==="r_type"||res==="r_attributes")continue;if(result[res].ok)succeeded.push(result[res].content);else failed.push(res)}succeeded.forEach(function(notebook){editor.star_notebook(true,{notebook:notebook}).then(function(){editor.set_notebook_visibility(notebook.id,true)})});if(failed.length)RCloud.UI.session_pane.post_error("Failed to import notebooks: "+failed.join(", "))});dialog.modal("hide")}function create_import_notebook_dialog(){var body=$('').append($(["
Import notebooks from another GitHub instance.
Currently import does not preserve history.
",'source repo api url: ','
notebooks:
prefix (e.g. folder/ to put notebooks in a folder): '].join("")));var cancel=$('Cancel').on("click",function(){$(dialog).modal("hide")});var go=$('Import').on("click",do_import);var footer=$('
','',"
"].join(""));var dialog=$('').append($('').append($('').append(header).append(body).append(footer)));$("body").append(dialog);dialog.on("show.bs.modal",function(){$("#import-gists").val("")}).on("shown.bs.modal",function(){$("#import-source").focus().select()});return dialog}var dialog=$("#import-notebooks-dialog");if(!dialog.length)dialog=create_import_notebook_dialog();dialog.modal({keyboard:true})}},export_notebook_gist:{sort:5e3,text:"Export Notebook to File",modes:["edit"],action:function(){return rcloud.get_notebook(shell.gistname(),shell.version(),null,true).then(function(notebook){notebook=Notebook.sanitize(notebook);var gisttext=JSON.stringify(notebook);download_as_file(notebook.description+".gist",gisttext,"text/json");return notebook})}},import_notebook_gist:{sort:6e3,text:"Import Notebook from File",modes:["edit"],action:function(){var that=this;function create_import_file_dialog(){var notebook=null;var notebook_status=null;var notebook_desc_content=null;var import_button=null;function do_upload(file){notebook_status.hide();notebook_desc.hide();var fr=new FileReader;fr.onloadend=function(e){notebook_status.show();try{notebook=JSON.parse(fr.result)}catch(x){notebook_status.text("Invalid notebook format: couldn't parse JSON");return}if(!notebook.description){notebook_status.text("Invalid notebook format: has no description");notebook=null;return}if(!notebook.files||_.isEmpty(notebook.files)){notebook_status.text("Invalid notebook format: has no files");notebook=null;return}notebook_status.text("");notebook_desc_content.val(notebook.description);notebook_desc.show();notebook=Notebook.sanitize(notebook);ui_utils.enable_bs_button(import_button)};fr.readAsText(file)}function do_import(){if(notebook){notebook.description=notebook_desc_content.val();rcloud.create_notebook(notebook).then(function(notebook){editor.star_notebook(true,{notebook:notebook}).then(function(){editor.set_notebook_visibility(notebook.id,true)})})}dialog.modal("hide")}var body=$('');var file_select=$('');file_select.click(function(){ui_utils.disable_bs_button(import_button)}).change(function(){do_upload(file_select[0].files[0])});notebook_status=$("");notebook_status.append(notebook_status);var notebook_desc=$("Notebook description: ");notebook_desc_content=$('').keypress(function(e){if(e.which===$.ui.keyCode.ENTER){do_import();return false}return true});notebook_desc.append(notebook_desc_content);body.append($("").append(file_select)).append($("").append(notebook_status.hide())).append($("").append(notebook_desc.hide()));var cancel=$('Cancel').on("click",function(){$(dialog).modal("hide")});import_button=$('Import').on("click",do_import);ui_utils.disable_bs_button(import_button);var footer=$('').append(cancel).append(import_button);var header=$(['Import Notebooks
","','',"
"].join(""));var dialog=$('').append($('').append($('').append(header).append(body).append(footer)));$("body").append(dialog);dialog.on("show.bs.modal",function(){$("#notebook-file-upload")[0].value=null;notebook_status.text("");notebook_status.hide();notebook_desc_content.val("");notebook_desc.hide()});dialog.data("reset",function(){notebook=null;ui_utils.disable_bs_button(import_button)});return dialog}var dialog=$("#import-notebook-file-dialog");if(!dialog.length)dialog=create_import_file_dialog();else dialog.data().reset();dialog.modal({keyboard:true})}},export_notebook_r:{sort:7e3,text:"Export Notebook as R Source File",modes:["edit"],action:function(){return rcloud.get_notebook(shell.gistname(),shell.version()).then(function(notebook){var strings=[];var parts=[];_.each(notebook.files,function(file){var filename=file.filename;if(/^part/.test(filename)){var number=parseInt(filename.slice(4).split(".")[0]);if(!isNaN(number)){if(file.language==="R")parts[number]="```{r}\n"+file.content+"\n```";else parts[number]=file.content}}});for(var i=0;iImport Notebook File
","');$("body").append(progress_dialog);progress_dialog.on("hide.bs.modal",function(){progress_counter=0;clear_cursor()})}progress_dialog.modal({keyboard:true})}function clear_curtain(){if(!curtains_on)return;curtains_on=false;progress_dialog.modal("hide")}function set_cursor(){_.delay(function(){document.body.style.cursor="wait"},0)}function clear_cursor(){_.delay(function(){document.body.style.cursor=""},0)}RCloud.UI.with_progress=function(promise_thunk,delay){if(_.isUndefined(delay))delay=2e3;set_cursor();function done(){progress_counter-=1;if(progress_counter===0){clear_cursor();clear_curtain()}}_.delay(function(){if(progress_counter>0&&allowed>0)set_curtain()},delay);progress_counter+=1;return Promise.resolve(done).then(promise_thunk).then(function(v){done();return v}).catch(function(error){done();throw error})};RCloud.UI.prevent_progress_modal=function(){if(allowed===1){if(progress_counter>0){clear_cursor();clear_curtain()}}allowed-=1};RCloud.UI.allow_progress_modal=function(){if(allowed===0){if(progress_counter>0){set_cursor();set_curtain()}}allowed+=1}})();RCloud.UI.right_panel=RCloud.UI.collapsible_column("#right-column","#accordion-right","#right-pane-collapser");RCloud.UI.run_button=function(){var run_button_=$("#run-notebook"),running_=false,stopping_=false,queue_=[],cancels_=[];function display(icon,title){$("i",run_button_).removeClass().addClass(icon);run_button_.attr("title",title)}function highlight(whether){run_button_.parent().find(".button-highlight").animate({opacity:whether?1:0},250)}function start_queue(){if(queue_.length===0){stopping_=false;running_=false;display("icon-play","Run All");highlight(false);return Promise.resolve(undefined)}else{running_=true;var first=queue_.shift();display("icon-stop","Stop");highlight(true);return first().then(function(){if(stopping_){stopping_=false;throw"stop"}cancels_.shift();return start_queue()})}}return{init:function(){var that=this;run_button_.click(function(){if(running_){that.stop()}else shell.run_notebook()});RCloud.session.listeners.push({on_reset:function(){that.on_stopped()
+}})},stop:function(){if(rcloud.has_compute_separation)rcloud.signal_to_compute(2);else stopping_=true},on_stopped:function(){cancels_.forEach(function(cancel){cancel()});queue_=[];cancels_=[];running_=false;display("icon-play","Run All");highlight(false)},enqueue:function(f,cancel){var that=this;queue_.push(f);cancels_.push(cancel||function(){});if(!running_){start_queue().catch(function(xep){if(xep==="stop"){cancels_.shift();that.on_stopped()}else{console.log(xep);that.on_stopped();if(!/^ERROR FROM R SERVER: 127/.test(xep))throw xep}})}}}}();RCloud.UI.scratchpad=function(){var binary_mode_;function make_asset_url(model){return window.location.protocol+"//"+window.location.host+"/notebook.R/"+model.parent_model.controller.current_gist().id+"/"+model.filename()}return{session:null,widget:null,exists:false,current_model:null,change_content:null,body:function(){return RCloud.UI.panel_loader.load_snippet("assets-snippet")},init:function(){var that=this;function setup_scratchpad(div){var inner_div=$("");var clear_div=$("");div.append(inner_div);div.append(clear_div);var ace_div=$('');ace_div.css({"background-color":"#f1f1f1"});inner_div.append(ace_div);ace.require("ace/ext/language_tools");var widget=ace.edit(ace_div[0]);var LangMode=ace.require("ace/mode/r").Mode;var session=widget.getSession();that.session=session;that.widget=widget;var doc=session.doc;session.on("change",function(){widget.resize()});widget.setOptions({enableBasicAutocompletion:true});session.setMode(new LangMode(false,doc,session));session.setUseWrapMode(true);widget.resize();ui_utils.on_next_tick(function(){session.getUndoManager().reset();widget.resize()});that.change_content=ui_utils.ignore_programmatic_changes(that.widget,function(){if(that.current_model)that.current_model.parent_model.on_dirty()});ui_utils.install_common_ace_key_bindings(widget,function(){return that.current_model.language()});$("#collapse-assets").on("shown.bs.collapse panel-resize",function(){widget.resize()})}function setup_asset_drop(){var showOverlay_;$(document).on("dragstart dragenter dragover",function(e){var dt=e.originalEvent.dataTransfer;if(!dt)return;if(dt.types!==null&&(dt.types.indexOf?dt.types.indexOf("Files")!=-1&&dt.types.indexOf("text/html")==-1:dt.types.contains("application/x-moz-file"))){if(!shell.notebook.model.read_only()){e.stopPropagation();e.preventDefault();$("#asset-drop-overlay").css({display:"block"});showOverlay_=true}else{e.stopPropagation();e.preventDefault()}}});$(document).on("drop dragleave",function(e){e.stopPropagation();e.preventDefault();showOverlay_=false;setTimeout(function(){if(!showOverlay_){$("#asset-drop-overlay").css({display:"none"})}},100)});$("#scratchpad-wrapper").bind({drop:function(e){e=e.originalEvent||e;var files=e.files||e.dataTransfer.files;var dt=e.dataTransfer;if(!shell.notebook.model.read_only()){RCloud.UI.upload_with_alerts(true,{files:files}).catch(function(){})}$("#asset-drop-overlay").css({display:"none"})},"dragenter dragover":function(e){var dt=e.originalEvent.dataTransfer;if(!shell.notebook.model.read_only())dt.dropEffect="copy"}})}var scratchpad_editor=$("#scratchpad-editor");if(scratchpad_editor.length){this.exists=true;setup_scratchpad(scratchpad_editor);setup_asset_drop()}$("#new-asset > a").click(function(){var filename=prompt("Choose a filename for your asset");if(!filename)return;if(Notebook.is_part_name(filename)){alert("Asset names cannot start with 'part[0-9]', sorry!");return}var found=shell.notebook.model.get_asset(filename);if(found)found.controller.select();else{var comment_text=function(text,ext){switch(ext){case"css":return"/* "+text+" */\n";case"js":return"// "+text+"\n";case"html":return"\n";default:return"# "+text+"\n"}};var ext=filename.indexOf(".")!=-1?filename.match(/\.(.*)/)[1]:"";shell.notebook.controller.append_asset(comment_text("New file "+filename,ext),filename).spread(function(_,controller){controller.select();ui_utils.ace_set_pos(RCloud.UI.scratchpad.widget,2,1)})}})},panel_sizer:function(el){return{padding:RCloud.UI.collapsible_column.default_padder(el),height:9e3}},set_model:function(asset_model){var that=this;if(!this.exists)return;if(this.current_model&&!binary_mode_){this.current_model.cursor_position(this.widget.getCursorPosition());if(this.current_model.content(this.widget.getValue())){this.current_model.parent_model.controller.update_asset(this.current_model)}}this.current_model=asset_model;if(!this.current_model){$("#scratchpad-binary").hide();$("#scratchpad-editor").show();that.change_content("");that.widget.resize();that.widget.setReadOnly(true);$("#scratchpad-editor > *").hide();$("#asset-link").hide();return}this.update_asset_url();$("#asset-link").show();var content=this.current_model.content();if(Notebook.is_binary_content(content)){binary_mode_=true;$("#scratchpad-editor").hide();var sbin=$("#scratchpad-binary");if(/\.pdf$/i.test(this.current_model.filename()))sbin.html("
PDF preview not supported
");else sbin.html('');sbin.show()}else{binary_mode_=false;that.widget.setReadOnly(false);$("#scratchpad-binary").hide();$("#scratchpad-editor").show();$("#scratchpad-editor > *").show();this.change_content(content);var model_cursor=asset_model.cursor_position();if(model_cursor){ui_utils.ace_set_pos(this.widget,model_cursor)}else{ui_utils.ace_set_pos(this.widget,0,0)}ui_utils.on_next_tick(function(){that.session.getUndoManager().reset()});that.language_updated();that.widget.resize();that.widget.focus()}},update_model:function(){return this.current_model&&!binary_mode_?this.current_model.content(this.widget.getSession().getValue()):null},content_updated:function(){var changed=false;changed=this.current_model.content();binary_mode_=Notebook.is_binary_content(changed);if(changed&&!binary_mode_){var range=this.widget.getSelection().getRange();this.change_content(changed);this.widget.getSelection().setSelectionRange(range)}return changed},language_updated:function(){if(!binary_mode_){var lang=this.current_model.language();var LangMode=ace.require(RCloud.language.ace_mode(lang)).Mode;this.session.setMode(new LangMode(false,this.session.doc,this.session))}},set_readonly:function(readonly){if(!shell.is_view_mode()){if(this.widget&&!binary_mode_)ui_utils.set_ace_readonly(this.widget,readonly);if(readonly)$("#new-asset").hide();else $("#new-asset").show()}},update_asset_url:function(){if(this.current_model)$("#asset-link").attr("href",make_asset_url(this.current_model))},clear:function(){if(!this.exists)return;this.change_content("");this.session.getUndoManager().reset();this.widget.resize()}}}();RCloud.UI.search=function(){var page_size_=10;var search_err_msg=['The search engine in RCloud uses Lucene for advanced search features.',"It appears you may have used one of the special characters in Lucene syntax incorrectly. ",'Please see this link to learn about Lucene syntax. ','
Or, if you mean to search for the character itself, escape it using a backslash, e.g. "foo\\:"
'];function go_to_page(page_num,incr_by){var start=parseInt(page_num)*parseInt(incr_by);var end=parseInt(start)+parseInt(incr_by);var qry=$("#input-text-search").val();var sortby=$("#sort-by option:selected").val();var orderby=$("#order-by option:selected").val();$("#input-text-search").blur();if(!($("#input-text-search").val()===""))RCloud.UI.search.exec(qry,sortby,orderby,start,end,true)}function sortby(){return $("#sort-by option:selected").val()}function orderby(){return $("#order-by option:selected").val()}function all_sources(){return $("#all-sources").is(":checked")}function order_from_sort(){var orderby;switch(sortby()){case"starcount":case"updated_at":orderby="desc";break;case"user":case"description":orderby="asc";break}$("#order-by").val(orderby)}return{body:function(){return RCloud.UI.panel_loader.load_snippet("search-snippet")},init:function(){if(!rcloud.search)$("#search-wrapper").text("Search engine not enabled on server");else{$("#search-form").submit(function(e){searchproc();return false});rcloud.get_gist_sources().then(function(sources){if(_.isString(sources))sources=[sources];if(sources.length<2){$("#all-sources").parent().hide()}else{$("#all-sources").change(function(e){var val=all_sources();rcloud.config.set_user_option("search-all-sources",val)})}});$("#sort-by").change(function(){rcloud.config.set_user_option("search-sort-by",sortby());order_from_sort();rcloud.config.set_user_option("search-order-by",orderby());searchproc()});$("#order-by").change(function(){rcloud.config.set_user_option("search-order-by",orderby());searchproc()});var searchproc=function(){var start=0;var qry=$("#input-text-search").val();$("#input-text-search").focus();if(!($("#input-text-search").val()==="")){RCloud.UI.search.exec(qry,sortby(),orderby(),start,page_size_)}else{$("#paging").html("");$("#search-results").html("");$("#search-summary").html("")}}}},load:function(){return rcloud.config.get_user_option(["search-all-sources","search-results-per-page","search-sort-by","search-order-by"]).then(function(opts){$("#all-sources").prop("checked",opts["search-all-sources"]);if(opts["search-results-per-page"])page_size_=opts["search-results-per-page"];if(!opts["search-sort-by"])opts["search-sort-by"]="starcount";$("#sort-by").val(opts["search-sort-by"]);if(opts["search-order-by"])$("#order-by").val(opts["search-order-by"]);else order_from_sort()})},panel_sizer:function(el){var padding=RCloud.UI.collapsible_column.default_padder(el);var height=24+$("#search-summary").height()+$("#search-results").height()+$("#search-results-pagination").height();height+=40;return{height:height,padding:padding}},toggle:function(id,togid){$("#"+togid+"").text(function(_,txt){var ret="";if(txt.indexOf("Show me more...")>-1){ret="Show me less...";$("#"+id+"").css("height","auto")}else{ret="Show me more...";$("#"+id+"").css("height","150px")}return ret});return false},exec:function(query,sortby,orderby,start,noofrows,pgclick){function summary(html,color){$("#search-summary").css("color",color||"black");$("#search-summary").show().html($("").append(html))}function err_msg(html,color){$("#search-summary").css("display","none");$("#search-results").css("color",color||"black");$("#search-results-row").show().animate({scrollTop:$(document).height()},"slow");$("#search-results").show().html($("").append(html))}function create_list_of_search_results(d){var i;var custom_msg="";if(d===null||d==="null"||d===""){summary("No Results Found")}else if(d[0]==="error"){d[1]=d[1].replace(/\n/g,"");if($("#paging").html!="")$("#paging").html("");if(d[1].indexOf("org.apache.solr.search.SyntaxError")>-1)custom_msg=search_err_msg.join("");err_msg(custom_msg+"ERROR:\n"+d[1],"darkred")}else{if(typeof d==="string"){d=JSON.parse("["+d+"]")}for(i=0;i
"+content[l]+"").replace(/\|-\|/g,"
");inner_table=inner_table.replace(/line_no/g,"|");inner_table="
| "+'"+d[i].user+" / "+d[i].notebook+""+image_string+" modified at "+d[i].updated_at+" | |
"+parts_table+" | |
File "+filename+" exists.
");var overwrite=bootstrap_utils.button({"class":"btn-danger"}).click(overwrite_click).text("Overwrite");p.append(overwrite);var alert_box=result_alert(p);$("button.close",alert_box).click(function(){callback(new Error("Overwrite cancelled"),null)})})}}options=upload_ui_opts(options||{});if(options.$result_panel.length)RCloud.UI.right_panel.collapse(options.$result_panel,false);var file_error_handler=function(err){var message=err.message;var p,done=true;if(message==="empty"){p=$("File is empty.
")}else if(message==="Overwrite cancelled"){p=$("").append(message)}else if(message==="badname"){p=$("
Filename not allowed.
")}else{p=$("(unexpected) "+message+"
");console.log(message,err.stack)}result_alert(p);throw err};var promise=to_notebook?RCloud.upload_assets(options,asset_react(options)):RCloud.upload_files(options,file_react(options));return promise.catch(function(err){return file_error_handler(err,options)}).then(function(){if(options.$progress.length)window.setTimeout(function(){options.$progress.hide()},5e3)})}return upload_files}();RCloud.UI.upload_frame={body:function(){return RCloud.UI.panel_loader.load_snippet("file-upload-snippet")},init:function(){$("#file").change(function(){$("#progress-bar").css("width","0%")});$("#upload-submit").click(function(){if($("#file")[0].files.length===0)return;var to_notebook=$("#upload-to-notebook").is(":checked");RCloud.UI.upload_with_alerts(to_notebook).catch(function(){})});RCloud.session.listeners.push({on_reset:function(){$(".progress").hide();$("#file-upload-results").empty()}})},panel_sizer:function(el){var padding=RCloud.UI.collapsible_column.default_padder(el);var height=24+$("#file-upload-controls").height()+$("#file-upload-results").height();return{height:height,padding:padding}}};RCloud.UI.notebook_protection_logger={timeout:0,log:function(val){var that=this;$(".logging-panel").removeClass("red").removeClass("white").addClass("green");$(".logging-panel span").text(val);window.clearTimeout(this.timeout);this.timeout=setTimeout(function(){$(".logging-panel").removeClass("red").removeClass("green").addClass("white");$(".logging-panel span").html(" ")},2e4)},warn:function(val){var that=this;$(".logging-panel").removeClass("green").removeClass("white").addClass("red");$(".logging-panel span").text(val);window.clearTimeout(this.timeout);this.timeout=setTimeout(function(){$(".logging-panel").removeClass("red").removeClass("green").addClass("white");$(".logging-panel span").html(" ")},2e4)},clear:function(){$(".logging-panel").removeClass("red").removeClass("green").addClass("white");$(".logging-panel span").html(" ")}};RCloud.UI.notebook_protection=function(){this.defaultCryptogroup=null;this.defaultNotebook=null;this.userId=null;this.userLogin=null;this.appScope=null;this.appInited=false;return{init:function(state){if(!this.appInited){this.appInited=true;this.buildDom();var that=this;require(["angular","./../../js/ui/notebook_protection_app","angular-selectize"],function(angular,app,selectize){"use strict";angular.element(document).ready(function(){_.delay(function(){angular.bootstrap($("#protection-app")[0],["NotebookProtectionApp"]);angular.resumeBootstrap()},100);_.delay(function(){that.appScope=angular.element(document.getElementById("protection-app")).scope();that.launch(state);$("#notebook-protection-dialog").modal({keyboard:false})},200)})})}else{this.launch(state);$("#notebook-protection-dialog").modal({keyboard:false})}},launch:function(state){if(state==="both-tabs-enabled"){$("#protection-app #tab2").removeClass("active");$("#protection-app #tab1").removeClass("disabled").addClass("active");$("#protection-app #tab1 a").attr("href","#notebook-tab").attr("data-toggle","tab");$("#protection-app #tab2 a").tab("show");$("#protection-app #tab1 a").tab("show");this.appScope.initBoth()}else if(state==="group-tab-enabled"){$("#protection-app #tab1").removeClass("active").addClass("disabled");$("#protection-app #tab1 a").attr("href","#").removeAttr("data-toggle");$("#protection-app #tab2 a").tab("show");this.appScope.initGroups()}},buildDom:function(){var body=$('');body.append(RCloud.UI.panel_loader.load_snippet("notebook-protection-modal"));var header=$(['','',"
"].join(""));var dialog=$('').append($('').append($('').append(header).append(body)));$("body").append(dialog)},close:function(){this.appScope.cancel()}}}();
\ No newline at end of file
diff --git a/htdocs/js/session.js b/htdocs/js/session.js
index 795c176186..eaa6015ff8 100644
--- a/htdocs/js/session.js
+++ b/htdocs/js/session.js
@@ -121,16 +121,16 @@ function could_not_initialize_error(err) {
return msg;
}
-function on_connect_anonymous_allowed(ocaps) {
+function on_connect_anonymous_allowed(ocaps, session_type) {
var promise_c, promise_s;
rcloud = RCloud.create(ocaps.rcloud);
if (rcloud.authenticated) {
- promise_c = rcloud.compute_init(rcloud.username(), rcloud.github_token());
- promise_s = rcloud.session_init(rcloud.username(), rcloud.github_token());
+ promise_c = rcloud.compute_init(session_type, rcloud.username(), rcloud.github_token());
+ promise_s = rcloud.session_init(session_type, rcloud.username(), rcloud.github_token());
} else {
- promise_c = rcloud.anonymous_compute_init();
- promise_s = rcloud.anonymous_session_init();
+ promise_c = rcloud.anonymous_compute_init(session_type);
+ promise_s = rcloud.anonymous_session_init(session_type);
}
promise_c.catch(function(e) {
@@ -147,19 +147,19 @@ function on_connect_anonymous_allowed(ocaps) {
return Promise.all([promise_c, promise_s]);
}
-function on_connect_anonymous_disallowed(ocaps) {
+function on_connect_anonymous_disallowed(ocaps, session_type) {
rcloud = RCloud.create(ocaps.rcloud);
if (!rcloud.authenticated) {
return Promise.reject(new Error("Authentication required"));
}
- var res_c = rcloud.compute_init(rcloud.username(), rcloud.github_token());
- var res_s = rcloud.session_init(rcloud.username(), rcloud.github_token());
+ var res_c = rcloud.compute_init(session_type, rcloud.username(), rcloud.github_token());
+ var res_s = rcloud.session_init(session_type, rcloud.username(), rcloud.github_token());
return Promise.all([res_c, res_s]);
}
-function rclient_promise(allow_anonymous) {
+function rclient_promise(allow_anonymous, session_type) {
return new Promise(function(resolve, reject) {
rclient = RClient.create({
debug: false,
@@ -178,8 +178,8 @@ function rclient_promise(allow_anonymous) {
rclient.allow_anonymous_ = allow_anonymous;
}).then(function(ocaps) {
var promise = allow_anonymous ?
- on_connect_anonymous_allowed(ocaps) :
- on_connect_anonymous_disallowed(ocaps);
+ on_connect_anonymous_allowed(ocaps, session_type) :
+ on_connect_anonymous_disallowed(ocaps, session_type);
return promise;
}).then(function(hello) {
if (!$("#output > .response").length)
@@ -244,9 +244,9 @@ RCloud.session = {
rclient.close();
return rclient_promise(anonymous);
});
- }, init: function(allow_anonymous) {
+ }, init: function(allow_anonymous, session_type) {
this.first_session_ = true;
- return rclient_promise(allow_anonymous);
+ return rclient_promise(allow_anonymous, session_type);
}
};
diff --git a/htdocs/mini.js b/htdocs/mini.js
index eefd7edfe8..246b55e88e 100644
--- a/htdocs/mini.js
+++ b/htdocs/mini.js
@@ -20,9 +20,9 @@ function main() {
rcloud = RCloud.create(ocaps.rcloud);
var promise;
if (rcloud.authenticated) {
- promise = rcloud.session_init(rcloud.username(), rcloud.github_token());
+ promise = rcloud.session_init([], rcloud.username(), rcloud.github_token());
} else {
- promise = rcloud.anonymous_session_init();
+ promise = rcloud.anonymous_session_init([]);
}
promise = promise.then(function(hello) {
rclient.post_response(hello);
diff --git a/htdocs/view.js b/htdocs/view.js
index 4cd3336a81..576aef80d5 100644
--- a/htdocs/view.js
+++ b/htdocs/view.js
@@ -8,7 +8,7 @@ function main() {
shell.is_view_mode(true);
RCloud.UI.session_pane.init(); // really should be error logger which detects if there is a pane
RCloud.UI.init();
- RCloud.session.init(true).then(function() {
+ RCloud.session.init(true, ['gui']).then(function() {
return Promise.all([
RCloud.UI.navbar.load(),
(rcloud.config ?
diff --git a/rcloud.packages/rcloud.enviewer/DESCRIPTION b/rcloud.packages/rcloud.enviewer/DESCRIPTION
index 624360e695..5963048710 100644
--- a/rcloud.packages/rcloud.enviewer/DESCRIPTION
+++ b/rcloud.packages/rcloud.enviewer/DESCRIPTION
@@ -6,3 +6,4 @@ Maintainer: Gordon Woodhull