prioritized.grouping/docs/shinylive/webr/webr.cjs

"use strict";var $s=Object.create;var ft=Object.defineProperty;var Gs=Object.getOwnPropertyDescriptor;var Ks=Object.getOwnPropertyNames;var Qs=Object.getPrototypeOf,Zs=Object.prototype.hasOwnProperty;var _=(r,e)=>()=>(e||r((e={exports:{}}).exports,e),e.exports),Ys=(r,e)=>{for(var t in e)ft(r,t,{get:e[t],enumerable:!0})},$r=(r,e,t,s)=>{if(e&&typeof e=="object"||typeof e=="function")for(let n of Ks(e))!Zs.call(r,n)&&n!==t&&ft(r,n,{get:()=>e[n],enumerable:!(s=Gs(e,n))||s.enumerable});return r};var ee=(r,e,t)=>(t=r!=null?$s(Qs(r)):{},$r(e||!r||!r.__esModule?ft(t,"default",{value:r,enumerable:!0}):t,r)),en=r=>$r(ft({},"__esModule",{value:!0}),r);var pr=(r,e,t)=>{if(!e.has(r))throw TypeError("Cannot "+t)};var i=(r,e,t)=>(pr(r,e,"read from private field"),t?t.call(r):e.get(r)),u=(r,e,t)=>{if(e.has(r))throw TypeError("Cannot add the same private member more than once");e instanceof WeakSet?e.add(r):e.set(r,t)},d=(r,e,t,s)=>(pr(r,e,"write to private field"),s?s.call(r,t):e.set(r,t),t),Gr=(r,e,t,s)=>({set _(n){d(r,e,n,t)},get _(){return i(r,e,s)}}),x=(r,e,t)=>(pr(r,e,"access private method"),t);var Oe=_(I=>{"use strict";Object.defineProperty(I,"__esModule",{value:!0});I.getUint64=I.getInt64=I.setInt64=I.setUint64=I.UINT32_MAX=void 0;I.UINT32_MAX=4294967295;function sn(r,e,t){let s=t/4294967296,n=t;r.setUint32(e,s),r.setUint32(e+4,n)}I.setUint64=sn;function nn(r,e,t){let s=Math.floor(t/4294967296),n=t;r.setUint32(e,s),r.setUint32(e+4,n)}I.setInt64=nn;function on(r,e){let t=r.getInt32(e),s=r.getUint32(e+4);return t*4294967296+s}I.getInt64=on;function an(r,e){let t=r.getUint32(e),s=r.getUint32(e+4);return t*4294967296+s}I.getUint64=an});var bt=_(S=>{"use strict";var hr,yr,fr;Object.defineProperty(S,"__esModule",{value:!0});S.utf8DecodeTD=S.TEXT_DECODER_THRESHOLD=S.utf8DecodeJs=S.utf8EncodeTE=S.TEXT_ENCODER_THRESHOLD=S.utf8EncodeJs=S.utf8Count=void 0;var Zr=Oe(),gt=(typeof process>"u"||((hr=process==null?void 0:process.env)===null||hr===void 0?void 0:hr.TEXT_ENCODING)!=="never")&&typeof TextEncoder<"u"&&typeof TextDecoder<"u";function ln(r){let e=r.length,t=0,s=0;for(;s<e;){let n=r.charCodeAt(s++);if(n&4294967168)if(!(n&4294965248))t+=2;else{if(n>=55296&&n<=56319&&s<e){let o=r.charCodeAt(s);(o&64512)===56320&&(++s,n=((n&1023)<<10)+(o&1023)+65536)}n&4294901760?t+=4:t+=3}else{t++;continue}}return t}S.utf8Count=ln;function cn(r,e,t){let s=r.length,n=t,o=0;for(;o<s;){let a=r.charCodeAt(o++);if(a&4294967168)if(!(a&4294965248))e[n++]=a>>6&31|192;else{if(a>=55296&&a<=56319&&o<s){let c=r.charCodeAt(o);(c&64512)===56320&&(++o,a=((a&1023)<<10)+(c&1023)+65536)}a&4294901760?(e[n++]=a>>18&7|240,e[n++]=a>>12&63|128,e[n++]=a>>6&63|128):(e[n++]=a>>12&15|224,e[n++]=a>>6&63|128)}else{e[n++]=a;continue}e[n++]=a&63|128}}S.utf8EncodeJs=cn;var Ae=gt?new TextEncoder:void 0;S.TEXT_ENCODER_THRESHOLD=gt?typeof process<"u"&&((yr=process==null?void 0:process.env)===null||yr===void 0?void 0:yr.TEXT_ENCODING)!=="force"?200:0:Zr.UINT32_MAX;function un(r,e,t){e.set(Ae.encode(r),t)}function pn(r,e,t){Ae.encodeInto(r,e.subarray(t))}S.utf8EncodeTE=Ae!=null&&Ae.encodeInto?pn:un;var dn=4096;function hn(r,e,t){let s=e,n=s+t,o=[],a="";for(;s<n;){let c=r[s++];if(!(c&128))o.push(c);else if((c&224)===192){let p=r[s++]&63;o.push((c&31)<<6|p)}else if((c&240)===224){let p=r[s++]&63,v=r[s++]&63;o.push((c&31)<<12|p<<6|v)}else if((c&248)===240){let p=r[s++]&63,v=r[s++]&63,Y=r[s++]&63,z=(c&7)<<18|p<<12|v<<6|Y;z>65535&&(z-=65536,o.push(z>>>10&1023|55296),z=56320|z&1023),o.push(z)}else o.push(c);o.length>=dn&&(a+=String.fromCharCode(...o),o.length=0)}return o.length>0&&(a+=String.fromCharCode(...o)),a}S.utf8DecodeJs=hn;var yn=gt?new TextDecoder:null;S.TEXT_DECODER_THRESHOLD=gt?typeof process<"u"&&((fr=process==null?void 0:process.env)===null||fr===void 0?void 0:fr.TEXT_DECODER)!=="force"?200:0:Zr.UINT32_MAX;function fn(r,e,t){let s=r.subarray(e,e+t);return yn.decode(s)}S.utf8DecodeTD=fn});var mr=_(wt=>{"use strict";Object.defineProperty(wt,"__esModule",{value:!0});wt.ExtData=void 0;var Rr=class{constructor(e,t){this.type=e,this.data=t}};wt.ExtData=Rr});var vt=_(xt=>{"use strict";Obje
`)});u(this,ar,e=>{if(m)throw new Error("Plotting with HTML canvas is not yet supported under Node");this.canvas.getContext("2d").drawImage(e,0,0)});u(this,lr,()=>{if(m)throw new Error("Plotting with HTML canvas is not yet supported under Node");this.canvas.getContext("2d").clearRect(0,0,this.canvas.width,this.canvas.height)});this.webR=new pt(t),m||(this.canvas=document.createElement("canvas"),this.canvas.setAttribute("width","1008"),this.canvas.setAttribute("height","1008")),d(this,it,e.stdout||i(this,nr)),d(this,at,e.stderr||i(this,or)),d(this,lt,e.prompt||i(this,ir)),d(this,ct,e.canvasImage||i(this,ar)),d(this,ut,e.canvasNewPage||i(this,lr)),this.webR.evalRVoid("options(device=webr::canvas)")}stdin(e){this.webR.writeConsole(e)}interrupt(){this.webR.interrupt()}run(){x(this,cr,Js).call(this)}};it=new WeakMap,at=new WeakMap,lt=new WeakMap,ct=new WeakMap,ut=new WeakMap,nr=new WeakMap,or=new WeakMap,ir=new WeakMap,ar=new WeakMap,lr=new WeakMap,cr=new WeakSet,Js=async function(){for(;;){let e=await this.webR.read();switch(e.type){case"stdout":i(this,it).call(this,e.data);break;case"stderr":i(this,at).call(this,e.data);break;case"prompt":i(this,lt).call(this,e.data);break;case"canvas":e.data.event==="canvasImage"?i(this,ct).call(this,e.data.image):e.data.event==="canvasNewPage"&&i(this,ut).call(this);break;case"closed":return;default:console.warn(`Unhandled output type for webR Console: ${e.type}.`)}}};var wo={FONTCONFIG_PATH:"/etc/fonts",R_HOME:"/usr/lib/R",R_ENABLE_JIT:"0"},zs={RArgs:[],REnv:wo,baseUrl:Ns,serviceWorkerUrl:"",repoUrl:Ls,homedir:"/home/web_user",interactive:!0,channelType:D.Automatic,createLazyFilesystem:!0},g,ht,ur,Xs,pt=class{constructor(e={}){u(this,ur);u(this,g,void 0);u(this,ht,void 0);this.FS={lookupPath:async e=>{let t={type:"lookupPath",data:{path:e}};return(await i(this,g).request(t)).obj},mkdir:async e=>{let t={type:"mkdir",data:{path:e}};return(await i(this,g).request(t)).obj},mount:async(e,t,s)=>{let n={type:"mount",data:{type:e,options:t,mountpoint:s}};await i(this,g).request(n)},readFile:async(e,t)=>{let s={type:"readFile",data:{path:e,flags:t}};return(await i(this,g).request(s)).obj},rmdir:async e=>{let t={type:"rmdir",data:{path:e}};await i(this,g).request(t)},writeFile:async(e,t,s)=>{let n={type:"writeFile",data:{path:e,data:t,flags:s}};await i(this,g).request(n)},unlink:async e=>{let t={type:"unlink",data:{path:e}};await i(this,g).request(t)},unmount:async e=>{let t={type:"unmount",data:{path:e}};await i(this,g).request(t)}};let t={...zs,...e,REnv:{...zs.REnv,...e.REnv}};d(this,g,Cs(t)),this.objs={},this.Shelter=xo(i(this,g)),d(this,ht,i(this,g).initialised.then(async()=>{this.globalShelter=await new this.Shelter,this.RObject=this.globalShelter.RObject,this.RLogical=this.globalShelter.RLogical,this.RInteger=this.globalShelter.RInteger,this.RDouble=this.globalShelter.RDouble,this.RComplex=this.globalShelter.RComplex,this.RCharacter=this.globalShelter.RCharacter,this.RRaw=this.globalShelter.RRaw,this.RList=this.globalShelter.RList,this.RPairlist=this.globalShelter.RPairlist,this.REnvironment=this.globalShelter.REnvironment,this.RSymbol=this.globalShelter.RSymbol,this.RString=this.globalShelter.RString,this.RCall=this.globalShelter.RCall,this.objs={baseEnv:await this.RObject.getPersistentObject("baseEnv"),globalEnv:await this.RObject.getPersistentObject("globalEnv"),null:await this.RObject.getPersistentObject("null"),true:await this.RObject.getPersistentObject("true"),false:await this.RObject.getPersistentObject("false"),na:await this.RObject.getPersistentObject("na")},x(this,ur,Xs).call(this)}))}async init(){return i(this,ht)}close(){i(this,g).close()}async read(){return await i(this,g).read()}async flush(){return await i(this,g).flush()}write(e){i(this,g).write(e)}writeConsole(e){this.write({type:"stdin",data:e+`
`})}interrupt(){i(this,g).interrupt()}async installPackages(e,t){let s=Object.assign({quiet:!1,mount:!0},t);for(let n of e){let o={type:"installPackage",data:{name:n,options:s}};await i(this,g).request(o)}}async destroy(e){await this.globalShelter.destroy(e)}async evalR(e,t){return this.globalShelter.evalR(e,t)}async evalRVoid(e,t){return this.evalRRaw(e,"void",t)}async evalRBoolean(e,t){return this.evalRRaw(e,"boolean",t)}async evalRNumber(e,t){return this.evalRRaw(e,"number",t)}async evalRString(e,t){return this.evalRRaw(e,"string",t)}async evalRRaw(e,t,s={}){let n=U(s,b,c=>c._payload),o={type:"evalRRaw",data:{code:e,options:n,outputType:t}},a=await i(this,g).request(o);switch(a.payloadType){case"raw":return a.obj;case"ptr":throw new q("Unexpected ptr payload type returned from evalRVoid")}}async invokeWasmFunction(e,...t){let s={type:"invokeWasmFunction",data:{ptr:e,args:t}};return(await i(this,g).request(s)).obj}};g=new WeakMap,ht=new WeakMap,ur=new WeakSet,Xs=async function(){for(;;){let e=await i(this,g).readSystem();switch(e.type){case"setTimeoutWasm":setTimeout((t,s)=>{this.invokeWasmFunction(t,...s)},e.data.delay,e.data.ptr,e.data.args);break;case"console.log":console.log(e.data);break;case"console.warn":console.warn(e.data);break;case"console.error":console.error(e.data);break;default:throw new A("Unknown system message type `"+e.type+"`")}}};var w,R,yt,dt=class{constructor(e){u(this,w,"");u(this,R,void 0);u(this,yt,!1);d(this,R,e)}async init(){if(i(this,yt))return;let e={type:"newShelter"},t=await i(this,R).request(e);d(this,w,t.obj),this.RObject=O(i(this,R),i(this,w),"object"),this.RLogical=O(i(this,R),i(this,w),"logical"),this.RInteger=O(i(this,R),i(this,w),"integer"),this.RDouble=O(i(this,R),i(this,w),"double"),this.RComplex=O(i(this,R),i(this,w),"complex"),this.RCharacter=O(i(this,R),i(this,w),"character"),this.RRaw=O(i(this,R),i(this,w),"raw"),this.RList=O(i(this,R),i(this,w),"list"),this.RPairlist=O(i(this,R),i(this,w),"pairlist"),this.REnvironment=O(i(this,R),i(this,w),"environment"),this.RSymbol=O(i(this,R),i(this,w),"symbol"),this.RString=O(i(this,R),i(this,w),"string"),this.RCall=O(i(this,R),i(this,w),"call"),d(this,yt,!0)}async purge(){let e={type:"shelterPurge",data:i(this,w)};await i(this,R).request(e)}async destroy(e){let t={type:"shelterDestroy",data:{id:i(this,w),obj:e._payload}};await i(this,R).request(t)}async size(){let e={type:"shelterSize",data:i(this,w)};return(await i(this,R).request(e)).obj}async evalR(e,t={}){let s=U(t,b,a=>a._payload),n={type:"evalR",data:{code:e,options:s,shelter:i(this,w)}},o=await i(this,R).request(n);switch(o.payloadType){case"raw":throw new q("Unexpected payload type returned from evalR");default:return Z(i(this,R),o)}}async captureR(e,t={}){let s=U(t,b,a=>a._payload),n={type:"captureR",data:{code:e,options:s,shelter:i(this,w)}},o=await i(this,R).request(n);switch(o.payloadType){case"ptr":throw new q("Unexpected payload type returned from evalR");case"raw":{let a=o.obj,c=Z(i(this,R),a.result),p=a.output;for(let v=0;v<p.length;++v)p[v].type!=="stdout"&&p[v].type!=="stderr"&&(p[v].data=Z(i(this,R),p[v].data));return{result:c,output:p}}}}};w=new WeakMap,R=new WeakMap,yt=new WeakMap;function xo(r){return new Proxy(dt,{construct:async()=>{let e=new dt(r);return await e.init(),e}})}0&&(module.exports={ChannelType,Console,Shelter,WebR,WebRChannelError,WebRError,WebRPayloadError,WebRWorkerError,isRCall,isRCharacter,isRComplex,isRDouble,isREnvironment,isRFunction,isRInteger,isRList,isRLogical,isRNull,isRObject,isRPairlist,isRRaw,isRSymbol});
//# sourceMappingURL=webr.cjs.map