")}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);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
'+status+"
");has_result_=false}var result_updated=_.debounce(function(){Notebook.Cell.postprocessors.entries("all").forEach(function(post){post.process(result_div_,result)})},100);function clear_result(){result_div_.empty();has_result_=false}function ace_stuff(div,content){ace.require("ace/ext/language_tools");var widget=ace.edit(div[0]);var session=widget.getSession();widget.setValue(content);ui_utils.ace_set_pos(widget,0,0);ui_utils.on_next_tick(function(){session.getUndoManager().reset()});var document=session.getDocument();widget.setOptions({enableBasicAutocompletion:true});widget.setTheme("ace/theme/chrome");session.setUseWrapMode(true);return{widget:widget,session:session,document:document}}function create_edit_widget(){if(ace_widget_)return;var aaa=ace_stuff(ace_div,cell_model.content());ace_widget_=aaa.widget;ace_session_=aaa.session;ace_document_=aaa.document;ace_session_.on("change",function(){set_widget_height();ace_widget_.resize()});ace_widget_.resize();ui_utils.install_common_ace_key_bindings(ace_widget_,function(){return language});ace_widget_.commands.addCommands([{name:"executeCell",bindKey:{win:"Alt-Return",mac:"Alt-Return",sender:"editor"},exec:function(ace_widget_,args,request){result.execute_cell()}}]);ace_widget_.commands.removeCommands(["find","replace"]);change_content_=ui_utils.ignore_programmatic_changes(ace_widget_,function(){result.state_changed("ready");cell_model.parent_model.on_dirty()});update_language()}function create_input_widget(){if(input_widget_)return;var aaa=ace_stuff(input_ace_div_,"");input_widget_=aaa.widget;ui_utils.customize_ace_gutter(input_widget_,function(i){return i===0?prompt_text_:""});input_widget_.commands.addCommands([{name:"enter",bindKey:"Return",exec:function(ace_widget,args,request){var input=ace_widget.getValue();result.add_result("code",prompt_text_+input+"\n");if(input_kont_)input_kont_(null,input);input_div_.hide();window.clearInterval(input_anim_);input_anim_=null}}]);RCloud.UI.prevent_progress_modal()}function find_code_elems(parent){return parent.find("pre code").filter(function(i,e){return e.classList.length>0})}function highlight_code(){find_code_elems(code_div_).each(function(i,e){hljs.highlightBlock(e)})}function highlight_classes(kind){return"find-highlight"+" "+kind}code_preprocessors_.push(function(code){var yuk=_.escape;var last=0,text=[];if(highlights_)highlights_.forEach(function(range){text.push(yuk(code.substring(last,range.begin)));text.push('',yuk(code.substring(range.begin,range.end)),"");last=range.end});text.push(yuk(code.substring(last)));return text.join("")},function(code){var line=1;code=code.replace(/^/gm,function(){return''+line++ +""});code+=" ";return code},function(code){if(code[code.length-1]==="\n")code+="\n";var lines=(code.match(/\n/g)||[]).length;if(lines"+files[i]+""}RCloud.UI.help_frame.display_content(html)},editor:function(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,"start.cell.output":function(context){curr_context_id_=context;if(output_contexts_[context]&&output_contexts_[context].start)output_contexts_[context].start()},"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){var params="";if(location.href.indexOf("?")>0)params=location.href.substr(location.href.indexOf("?"));return new Promise(function(resolve,reject){rclient=RClient.create({debug:false,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","/login.R"+params)}else{RCloud.UI.fatal_dialog(could_not_initialize_error(error),"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"}};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){return languages_[language]&&languages_[language].extension||""},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_reader(){return Promise.promisify(function(file,callback){var fr=new FileReader;fr.onload=function(e){callback(null,fr.result)};fr.onerror=function(e){callback(fr.error,null)};fr.readAsText(file)})}function promise_for(condition,action,value){if(!condition(value))return value;return action(value).then(promise_for.bind(null,condition,action))}function promise_sequence(collection,operator){return promise_for(function(i){return i
";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+"
",default_button,ignore_button,'');default_button.click(function(e){e.preventDefault();window.location=href});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()})}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()).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.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={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){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){that.change_content("");that.widget.resize();that.widget.setReadOnly(true);$("#scratchpad-editor > *").hide();$("#asset-link").hide();return}that.widget.setReadOnly(false);$("#scratchpad-editor > *").show();this.change_content(this.current_model.content());this.update_asset_url();$("#asset-link").show();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?this.current_model.content(this.widget.getSession().getValue()):null},content_updated:function(){var range=this.widget.getSelection().getRange();var changed=this.current_model.content();this.change_content(changed);this.widget.getSelection().setSelectionRange(range);return changed},language_updated:function(){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)ui_utils.set_ace_readonly(this.widget,readonly);if(readonly)$("#new-asset").hide();else $("#new-asset").show()}},update_asset_url:function(){function make_asset_url(model){return window.location.protocol+"//"+window.location.host+"/notebook.R/"+model.parent_model.controller.current_gist().id+"/"+model.filename()}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 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});$("#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-results-per-page","search-sort-by","search-order-by"]).then(function(opts){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+=30;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}}}; \ No newline at end of file +});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+"
",default_button,ignore_button,'');default_button.click(function(e){e.preventDefault();window.location=href});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()})}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()).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.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={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){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){that.change_content("");that.widget.resize();that.widget.setReadOnly(true);$("#scratchpad-editor > *").hide();$("#asset-link").hide();return}that.widget.setReadOnly(false);$("#scratchpad-editor > *").show();this.change_content(this.current_model.content());this.update_asset_url();$("#asset-link").show();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?this.current_model.content(this.widget.getSession().getValue()):null},content_updated:function(){var range=this.widget.getSelection().getRange();var changed=this.current_model.content();this.change_content(changed);this.widget.getSelection().setSelectionRange(range);return changed},language_updated:function(){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)ui_utils.set_ace_readonly(this.widget,readonly);if(readonly)$("#new-asset").hide();else $("#new-asset").show()}},update_asset_url:function(){function make_asset_url(model){return window.location.protocol+"//"+window.location.host+"/notebook.R/"+model.parent_model.controller.current_gist().id+"/"+model.filename()}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 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});$("#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-results-per-page","search-sort-by","search-order-by"]).then(function(opts){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+=30;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}}}; \ No newline at end of file diff --git a/htdocs/js/ui/image_manager.js b/htdocs/js/ui/image_manager.js index 738431b456..810069d8ae 100644 --- a/htdocs/js/ui/image_manager.js +++ b/htdocs/js/ui/image_manager.js @@ -58,6 +58,10 @@ RCloud.UI.image_manager = (function() { rcloud.plots.render(device, page, {dim: dims}) .then(function(data) { result.update(data.url, dims); + }) + .catch(function(err) { + if(!/Error in replayPlot/.test(err.message)) + throw err; }); } function save_button() {