@r-universe/webr 2023.6.21 → 2023.8.26

package/dist/webr.cjs

@@ -1,4 +1,4 @@
-"use strict";var Dn=Object.create;var Ye=Object.defineProperty;var Wn=Object.getOwnPropertyDescriptor;var An=Object.getOwnPropertyNames;var Mn=Object.getPrototypeOf,On=Object.prototype.hasOwnProperty;var P=(r,e)=>()=>(e||r((e={exports:{}}).exports,e),e.exports),Un=(r,e)=>{for(var t in e)Ye(r,t,{get:e[t],enumerable:!0})},Wr=(r,e,t,n)=>{if(e&&typeof e=="object"||typeof e=="function")for(let s of An(e))!On.call(r,s)&&s!==t&&Ye(r,s,{get:()=>e[s],enumerable:!(n=Wn(e,s))||n.enumerable});return r};var $=(r,e,t)=>(t=r!=null?Dn(Mn(r)):{},Wr(e||!r||!r.__esModule?Ye(t,"default",{value:r,enumerable:!0}):t,r)),In=r=>Wr(Ye({},"__esModule",{value:!0}),r);var Xt=(r,e,t)=>{if(!e.has(r))throw TypeError("Cannot "+t)};var i=(r,e,t)=>(Xt(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)},h=(r,e,t,n)=>(Xt(r,e,"write to private field"),n?n.call(r,t):e.set(r,t),t);var T=(r,e,t)=>(Xt(r,e,"access private method"),t);var Ee=P(A=>{"use strict";Object.defineProperty(A,"__esModule",{value:!0});A.getUint64=A.getInt64=A.setInt64=A.setUint64=A.UINT32_MAX=void 0;A.UINT32_MAX=4294967295;function jn(r,e,t){let n=t/4294967296,s=t;r.setUint32(e,n),r.setUint32(e+4,s)}A.setUint64=jn;function Bn(r,e,t){let n=Math.floor(t/4294967296),s=t;r.setUint32(e,n),r.setUint32(e+4,s)}A.setInt64=Bn;function Ln(r,e){let t=r.getInt32(e),n=r.getUint32(e+4);return t*4294967296+n}A.getInt64=Ln;function Fn(r,e){let t=r.getUint32(e),n=r.getUint32(e+4);return t*4294967296+n}A.getUint64=Fn});var st=P(_=>{"use strict";var $t,Kt,Qt;Object.defineProperty(_,"__esModule",{value:!0});_.utf8DecodeTD=_.TEXT_DECODER_THRESHOLD=_.utf8DecodeJs=_.utf8EncodeTE=_.TEXT_ENCODER_THRESHOLD=_.utf8EncodeJs=_.utf8Count=void 0;var Or=Ee(),nt=(typeof process>"u"||(($t=process==null?void 0:process.env)===null||$t===void 0?void 0:$t.TEXT_ENCODING)!=="never")&&typeof TextEncoder<"u"&&typeof TextDecoder<"u";function qn(r){let e=r.length,t=0,n=0;for(;n<e;){let s=r.charCodeAt(n++);if(s&4294967168)if(!(s&4294965248))t+=2;else{if(s>=55296&&s<=56319&&n<e){let o=r.charCodeAt(n);(o&64512)===56320&&(++n,s=((s&1023)<<10)+(o&1023)+65536)}s&4294901760?t+=4:t+=3}else{t++;continue}}return t}_.utf8Count=qn;function Vn(r,e,t){let n=r.length,s=t,o=0;for(;o<n;){let a=r.charCodeAt(o++);if(a&4294967168)if(!(a&4294965248))e[s++]=a>>6&31|192;else{if(a>=55296&&a<=56319&&o<n){let c=r.charCodeAt(o);(c&64512)===56320&&(++o,a=((a&1023)<<10)+(c&1023)+65536)}a&4294901760?(e[s++]=a>>18&7|240,e[s++]=a>>12&63|128,e[s++]=a>>6&63|128):(e[s++]=a>>12&15|224,e[s++]=a>>6&63|128)}else{e[s++]=a;continue}e[s++]=a&63|128}}_.utf8EncodeJs=Vn;var Te=nt?new TextEncoder:void 0;_.TEXT_ENCODER_THRESHOLD=nt?typeof process<"u"&&((Kt=process==null?void 0:process.env)===null||Kt===void 0?void 0:Kt.TEXT_ENCODING)!=="force"?200:0:Or.UINT32_MAX;function Jn(r,e,t){e.set(Te.encode(r),t)}function Hn(r,e,t){Te.encodeInto(r,e.subarray(t))}_.utf8EncodeTE=Te!=null&&Te.encodeInto?Hn:Jn;var zn=4096;function Xn(r,e,t){let n=e,s=n+t,o=[],a="";for(;n<s;){let c=r[n++];if(!(c&128))o.push(c);else if((c&224)===192){let p=r[n++]&63;o.push((c&31)<<6|p)}else if((c&240)===224){let p=r[n++]&63,w=r[n++]&63;o.push((c&31)<<12|p<<6|w)}else if((c&248)===240){let p=r[n++]&63,w=r[n++]&63,G=r[n++]&63,q=(c&7)<<18|p<<12|w<<6|G;q>65535&&(q-=65536,o.push(q>>>10&1023|55296),q=56320|q&1023),o.push(q)}else o.push(c);o.length>=zn&&(a+=String.fromCharCode(...o),o.length=0)}return o.length>0&&(a+=String.fromCharCode(...o)),a}_.utf8DecodeJs=Xn;var Gn=nt?new TextDecoder:null;_.TEXT_DECODER_THRESHOLD=nt?typeof process<"u"&&((Qt=process==null?void 0:process.env)===null||Qt===void 0?void 0:Qt.TEXT_DECODER)!=="force"?200:0:Or.UINT32_MAX;function $n(r,e,t){let n=r.subarray(e,e+t);return Gn.decode(n)}_.utf8DecodeTD=$n});var Yt=P(ot=>{"use strict";Object.defineProperty(ot,"__esModule",{value:!0});ot.ExtData=void 0;var Zt=class{constructor(e,t){this.type=e,this.data=t}};ot.ExtData=Zt});var at=P(it=>{"use strict";Object.defineProperty(it,"__esModule",{value:!0});it.DecodeError=void 0;var ie=class extends Error{constructor(e){super(e);let t=Object.create(ie.prototype);Object.setPrototypeOf(this,t),Object.defineProperty(this,"name",{configurable:!0,enumerable:!1,value:ie.name})}};it.DecodeError=ie});var er=P(v=>{"use strict";Object.defineProperty(v,"__esModule",{value:!0});v.timestampExtension=v.decodeTimestampExtension=v.decodeTimestampToTimeSpec=v.encodeTimestampExtension=v.encodeDateToTimeSpec=v.encodeTimeSpecToTimestamp=v.EXT_TIMESTAMP=void 0;var Kn=at(),Ur=Ee();v.EXT_TIMESTAMP=-1;var Qn=4294967296-1,Zn=17179869184-1;function Ir({sec:r,nsec:e}){if(r>=0&&e>=0&&r<=Zn)if(e===0&&r<=Qn){let t=new Uint8Array(4);return new DataView(t.buffer).setUint32(0,r),t}else{let t=r/4294967296,n=r&4294967295,s=new Uint8Array(8),o=new DataView(s.buffer);return o.setUint32(0,e<<2|t&3),o.setUint32(4,n),s}else{let t=new Uint8Array(12),n=new DataView(t.buffer);return n.setUint32(0,e),(0,Ur.setInt64)(n,4,r),t}}v.encodeTimeSpecToTimestamp=Ir;function Cr(r){let e=r.getTime(),t=Math.floor(e/1e3),n=(e-t*1e3)*1e6,s=Math.floor(n/1e9);return{sec:t+s,nsec:n-s*1e9}}v.encodeDateToTimeSpec=Cr;function Nr(r){if(r instanceof Date){let e=Cr(r);return Ir(e)}else return null}v.encodeTimestampExtension=Nr;function jr(r){let e=new DataView(r.buffer,r.byteOffset,r.byteLength);switch(r.byteLength){case 4:return{sec:e.getUint32(0),nsec:0};case 8:{let t=e.getUint32(0),n=e.getUint32(4),s=(t&3)*4294967296+n,o=t>>>2;return{sec:s,nsec:o}}case 12:{let t=(0,Ur.getInt64)(e,4),n=e.getUint32(0);return{sec:t,nsec:n}}default:throw new Kn.DecodeError(`Unrecognized data size for timestamp (expected 4, 8, or 12): ${r.length}`)}}v.decodeTimestampToTimeSpec=jr;function Br(r){let e=jr(r);return new Date(e.sec*1e3+e.nsec/1e6)}v.decodeTimestampExtension=Br;v.timestampExtension={type:v.EXT_TIMESTAMP,encode:Nr,decode:Br}});var ut=P(ct=>{"use strict";Object.defineProperty(ct,"__esModule",{value:!0});ct.ExtensionCodec=void 0;var lt=Yt(),Yn=er(),ve=class{constructor(){this.builtInEncoders=[],this.builtInDecoders=[],this.encoders=[],this.decoders=[],this.register(Yn.timestampExtension)}register({type:e,encode:t,decode:n}){if(e>=0)this.encoders[e]=t,this.decoders[e]=n;else{let s=1+e;this.builtInEncoders[s]=t,this.builtInDecoders[s]=n}}tryToEncode(e,t){for(let n=0;n<this.builtInEncoders.length;n++){let s=this.builtInEncoders[n];if(s!=null){let o=s(e,t);if(o!=null){let a=-1-n;return new lt.ExtData(a,o)}}}for(let n=0;n<this.encoders.length;n++){let s=this.encoders[n];if(s!=null){let o=s(e,t);if(o!=null){let a=n;return new lt.ExtData(a,o)}}}return e instanceof lt.ExtData?e:null}decode(e,t,n){let s=t<0?this.builtInDecoders[-1-t]:this.decoders[t];return s?s(e,t,n):new lt.ExtData(t,e)}};ct.ExtensionCodec=ve;ve.defaultCodec=new ve});var tr=P(ae=>{"use strict";Object.defineProperty(ae,"__esModule",{value:!0});ae.createDataView=ae.ensureUint8Array=void 0;function Lr(r){return r instanceof Uint8Array?r:ArrayBuffer.isView(r)?new Uint8Array(r.buffer,r.byteOffset,r.byteLength):r instanceof ArrayBuffer?new Uint8Array(r):Uint8Array.from(r)}ae.ensureUint8Array=Lr;function es(r){if(r instanceof ArrayBuffer)return new DataView(r);let e=Lr(r);return new DataView(e.buffer,e.byteOffset,e.byteLength)}ae.createDataView=es});var nr=P(O=>{"use strict";Object.defineProperty(O,"__esModule",{value:!0});O.Encoder=O.DEFAULT_INITIAL_BUFFER_SIZE=O.DEFAULT_MAX_DEPTH=void 0;var Pe=st(),ts=ut(),Fr=Ee(),rs=tr();O.DEFAULT_MAX_DEPTH=100;O.DEFAULT_INITIAL_BUFFER_SIZE=2048;var rr=class{constructor(e=ts.ExtensionCodec.defaultCodec,t=void 0,n=O.DEFAULT_MAX_DEPTH,s=O.DEFAULT_INITIAL_BUFFER_SIZE,o=!1,a=!1,c=!1,p=!1){this.extensionCodec=e,this.context=t,this.maxDepth=n,this.initialBufferSize=s,this.sortKeys=o,this.forceFloat32=a,this.ignoreUndefined=c,this.forceIntegerToFloat=p,this.pos=0,this.view=new DataView(new ArrayBuffer(this.initialBufferSize)),this.bytes=new Uint8Array(this.view.buffer)}reinitializeState(){this.pos=0}encodeSharedRef(e){return this.reinitializeState(),this.doEncode(e,1),this.bytes.subarray(0,this.pos)}encode(e){return this.reinitializeState(),this.doEncode(e,1),this.bytes.slice(0,this.pos)}doEncode(e,t){if(t>this.maxDepth)throw new Error(`Too deep objects in depth ${t}`);e==null?this.encodeNil():typeof e=="boolean"?this.encodeBoolean(e):typeof e=="number"?this.encodeNumber(e):typeof e=="string"?this.encodeString(e):this.encodeObject(e,t)}ensureBufferSizeToWrite(e){let t=this.pos+e;this.view.byteLength<t&&this.resizeBuffer(t*2)}resizeBuffer(e){let t=new ArrayBuffer(e),n=new Uint8Array(t),s=new DataView(t);n.set(this.bytes),this.view=s,this.bytes=n}encodeNil(){this.writeU8(192)}encodeBoolean(e){e===!1?this.writeU8(194):this.writeU8(195)}encodeNumber(e){Number.isSafeInteger(e)&&!this.forceIntegerToFloat?e>=0?e<128?this.writeU8(e):e<256?(this.writeU8(204),this.writeU8(e)):e<65536?(this.writeU8(205),this.writeU16(e)):e<4294967296?(this.writeU8(206),this.writeU32(e)):(this.writeU8(207),this.writeU64(e)):e>=-32?this.writeU8(224|e+32):e>=-128?(this.writeU8(208),this.writeI8(e)):e>=-32768?(this.writeU8(209),this.writeI16(e)):e>=-2147483648?(this.writeU8(210),this.writeI32(e)):(this.writeU8(211),this.writeI64(e)):this.forceFloat32?(this.writeU8(202),this.writeF32(e)):(this.writeU8(203),this.writeF64(e))}writeStringHeader(e){if(e<32)this.writeU8(160+e);else if(e<256)this.writeU8(217),this.writeU8(e);else if(e<65536)this.writeU8(218),this.writeU16(e);else if(e<4294967296)this.writeU8(219),this.writeU32(e);else throw new Error(`Too long string: ${e} bytes in UTF-8`)}encodeString(e){if(e.length>Pe.TEXT_ENCODER_THRESHOLD){let s=(0,Pe.utf8Count)(e);this.ensureBufferSizeToWrite(5+s),this.writeStringHeader(s),(0,Pe.utf8EncodeTE)(e,this.bytes,this.pos),this.pos+=s}else{let s=(0,Pe.utf8Count)(e);this.ensureBufferSizeToWrite(5+s),this.writeStringHeader(s),(0,Pe.utf8EncodeJs)(e,this.bytes,this.pos),this.pos+=s}}encodeObject(e,t){let n=this.extensionCodec.tryToEncode(e,this.context);if(n!=null)this.encodeExtension(n);else if(Array.isArray(e))this.encodeArray(e,t);else if(ArrayBuffer.isView(e))this.encodeBinary(e);else if(typeof e=="object")this.encodeMap(e,t);else throw new Error(`Unrecognized object: ${Object.prototype.toString.apply(e)}`)}encodeBinary(e){let t=e.byteLength;if(t<256)this.writeU8(196),this.writeU8(t);else if(t<65536)this.writeU8(197),this.writeU16(t);else if(t<4294967296)this.writeU8(198),this.writeU32(t);else throw new Error(`Too large binary: ${t}`);let n=(0,rs.ensureUint8Array)(e);this.writeU8a(n)}encodeArray(e,t){let n=e.length;if(n<16)this.writeU8(144+n);else if(n<65536)this.writeU8(220),this.writeU16(n);else if(n<4294967296)this.writeU8(221),this.writeU32(n);else throw new Error(`Too large array: ${n}`);for(let s of e)this.doEncode(s,t+1)}countWithoutUndefined(e,t){let n=0;for(let s of t)e[s]!==void 0&&n++;return n}encodeMap(e,t){let n=Object.keys(e);this.sortKeys&&n.sort();let s=this.ignoreUndefined?this.countWithoutUndefined(e,n):n.length;if(s<16)this.writeU8(128+s);else if(s<65536)this.writeU8(222),this.writeU16(s);else if(s<4294967296)this.writeU8(223),this.writeU32(s);else throw new Error(`Too large map object: ${s}`);for(let o of n){let a=e[o];this.ignoreUndefined&&a===void 0||(this.encodeString(o),this.doEncode(a,t+1))}}encodeExtension(e){let t=e.data.length;if(t===1)this.writeU8(212);else if(t===2)this.writeU8(213);else if(t===4)this.writeU8(214);else if(t===8)this.writeU8(215);else if(t===16)this.writeU8(216);else if(t<256)this.writeU8(199),this.writeU8(t);else if(t<65536)this.writeU8(200),this.writeU16(t);else if(t<4294967296)this.writeU8(201),this.writeU32(t);else throw new Error(`Too large extension object: ${t}`);this.writeI8(e.type),this.writeU8a(e.data)}writeU8(e){this.ensureBufferSizeToWrite(1),this.view.setUint8(this.pos,e),this.pos++}writeU8a(e){let t=e.length;this.ensureBufferSizeToWrite(t),this.bytes.set(e,this.pos),this.pos+=t}writeI8(e){this.ensureBufferSizeToWrite(1),this.view.setInt8(this.pos,e),this.pos++}writeU16(e){this.ensureBufferSizeToWrite(2),this.view.setUint16(this.pos,e),this.pos+=2}writeI16(e){this.ensureBufferSizeToWrite(2),this.view.setInt16(this.pos,e),this.pos+=2}writeU32(e){this.ensureBufferSizeToWrite(4),this.view.setUint32(this.pos,e),this.pos+=4}writeI32(e){this.ensureBufferSizeToWrite(4),this.view.setInt32(this.pos,e),this.pos+=4}writeF32(e){this.ensureBufferSizeToWrite(4),this.view.setFloat32(this.pos,e),this.pos+=4}writeF64(e){this.ensureBufferSizeToWrite(8),this.view.setFloat64(this.pos,e),this.pos+=8}writeU64(e){this.ensureBufferSizeToWrite(8),(0,Fr.setUint64)(this.view,this.pos,e),this.pos+=8}writeI64(e){this.ensureBufferSizeToWrite(8),(0,Fr.setInt64)(this.view,this.pos,e),this.pos+=8}};O.Encoder=rr});var qr=P(pt=>{"use strict";Object.defineProperty(pt,"__esModule",{value:!0});pt.encode=void 0;var ns=nr(),ss={};function os(r,e=ss){return new ns.Encoder(e.extensionCodec,e.context,e.maxDepth,e.initialBufferSize,e.sortKeys,e.forceFloat32,e.ignoreUndefined,e.forceIntegerToFloat).encodeSharedRef(r)}pt.encode=os});var Vr=P(dt=>{"use strict";Object.defineProperty(dt,"__esModule",{value:!0});dt.prettyByte=void 0;function is(r){return`${r<0?"-":""}0x${Math.abs(r).toString(16).padStart(2,"0")}`}dt.prettyByte=is});var Jr=P(ht=>{"use strict";Object.defineProperty(ht,"__esModule",{value:!0});ht.CachedKeyDecoder=void 0;var as=st(),ls=16,cs=16,sr=class{constructor(e=ls,t=cs){this.maxKeyLength=e,this.maxLengthPerKey=t,this.hit=0,this.miss=0,this.caches=[];for(let n=0;n<this.maxKeyLength;n++)this.caches.push([])}canBeCached(e){return e>0&&e<=this.maxKeyLength}find(e,t,n){let s=this.caches[n-1];e:for(let o of s){let a=o.bytes;for(let c=0;c<n;c++)if(a[c]!==e[t+c])continue e;return o.str}return null}store(e,t){let n=this.caches[e.length-1],s={bytes:e,str:t};n.length>=this.maxLengthPerKey?n[Math.random()*n.length|0]=s:n.push(s)}decode(e,t,n){let s=this.find(e,t,n);if(s!=null)return this.hit++,s;this.miss++;let o=(0,as.utf8DecodeJs)(e,t,n),a=Uint8Array.prototype.slice.call(e,t,t+n);return this.store(a,o),o}};ht.CachedKeyDecoder=sr});var yt=P(L=>{"use strict";Object.defineProperty(L,"__esModule",{value:!0});L.Decoder=L.DataViewIndexOutOfBoundsError=void 0;var or=Vr(),us=ut(),K=Ee(),ir=st(),ar=tr(),ps=Jr(),B=at(),ds=r=>{let e=typeof r;return e==="string"||e==="number"},_e=-1,cr=new DataView(new ArrayBuffer(0)),hs=new Uint8Array(cr.buffer);L.DataViewIndexOutOfBoundsError=(()=>{try{cr.getInt8(0)}catch(r){return r.constructor}throw new Error("never reached")})();var Hr=new L.DataViewIndexOutOfBoundsError("Insufficient data"),ys=new ps.CachedKeyDecoder,lr=class{constructor(e=us.ExtensionCodec.defaultCodec,t=void 0,n=K.UINT32_MAX,s=K.UINT32_MAX,o=K.UINT32_MAX,a=K.UINT32_MAX,c=K.UINT32_MAX,p=ys){this.extensionCodec=e,this.context=t,this.maxStrLength=n,this.maxBinLength=s,this.maxArrayLength=o,this.maxMapLength=a,this.maxExtLength=c,this.keyDecoder=p,this.totalPos=0,this.pos=0,this.view=cr,this.bytes=hs,this.headByte=_e,this.stack=[]}reinitializeState(){this.totalPos=0,this.headByte=_e,this.stack.length=0}setBuffer(e){this.bytes=(0,ar.ensureUint8Array)(e),this.view=(0,ar.createDataView)(this.bytes),this.pos=0}appendBuffer(e){if(this.headByte===_e&&!this.hasRemaining(1))this.setBuffer(e);else{let t=this.bytes.subarray(this.pos),n=(0,ar.ensureUint8Array)(e),s=new Uint8Array(t.length+n.length);s.set(t),s.set(n,t.length),this.setBuffer(s)}}hasRemaining(e){return this.view.byteLength-this.pos>=e}createExtraByteError(e){let{view:t,pos:n}=this;return new RangeError(`Extra ${t.byteLength-n} of ${t.byteLength} byte(s) found at buffer[${e}]`)}decode(e){this.reinitializeState(),this.setBuffer(e);let t=this.doDecodeSync();if(this.hasRemaining(1))throw this.createExtraByteError(this.pos);return t}*decodeMulti(e){for(this.reinitializeState(),this.setBuffer(e);this.hasRemaining(1);)yield this.doDecodeSync()}async decodeAsync(e){let t=!1,n;for await(let c of e){if(t)throw this.createExtraByteError(this.totalPos);this.appendBuffer(c);try{n=this.doDecodeSync(),t=!0}catch(p){if(!(p instanceof L.DataViewIndexOutOfBoundsError))throw p}this.totalPos+=this.pos}if(t){if(this.hasRemaining(1))throw this.createExtraByteError(this.totalPos);return n}let{headByte:s,pos:o,totalPos:a}=this;throw new RangeError(`Insufficient data in parsing ${(0,or.prettyByte)(s)} at ${a} (${o} in the current buffer)`)}decodeArrayStream(e){return this.decodeMultiAsync(e,!0)}decodeStream(e){return this.decodeMultiAsync(e,!1)}async*decodeMultiAsync(e,t){let n=t,s=-1;for await(let o of e){if(t&&s===0)throw this.createExtraByteError(this.totalPos);this.appendBuffer(o),n&&(s=this.readArraySize(),n=!1,this.complete());try{for(;yield this.doDecodeSync(),--s!==0;);}catch(a){if(!(a instanceof L.DataViewIndexOutOfBoundsError))throw a}this.totalPos+=this.pos}}doDecodeSync(){e:for(;;){let e=this.readHeadByte(),t;if(e>=224)t=e-256;else if(e<192)if(e<128)t=e;else if(e<144){let s=e-128;if(s!==0){this.pushMapState(s),this.complete();continue e}else t={}}else if(e<160){let s=e-144;if(s!==0){this.pushArrayState(s),this.complete();continue e}else t=[]}else{let s=e-160;t=this.decodeUtf8String(s,0)}else if(e===192)t=null;else if(e===194)t=!1;else if(e===195)t=!0;else if(e===202)t=this.readF32();else if(e===203)t=this.readF64();else if(e===204)t=this.readU8();else if(e===205)t=this.readU16();else if(e===206)t=this.readU32();else if(e===207)t=this.readU64();else if(e===208)t=this.readI8();else if(e===209)t=this.readI16();else if(e===210)t=this.readI32();else if(e===211)t=this.readI64();else if(e===217){let s=this.lookU8();t=this.decodeUtf8String(s,1)}else if(e===218){let s=this.lookU16();t=this.decodeUtf8String(s,2)}else if(e===219){let s=this.lookU32();t=this.decodeUtf8String(s,4)}else if(e===220){let s=this.readU16();if(s!==0){this.pushArrayState(s),this.complete();continue e}else t=[]}else if(e===221){let s=this.readU32();if(s!==0){this.pushArrayState(s),this.complete();continue e}else t=[]}else if(e===222){let s=this.readU16();if(s!==0){this.pushMapState(s),this.complete();continue e}else t={}}else if(e===223){let s=this.readU32();if(s!==0){this.pushMapState(s),this.complete();continue e}else t={}}else if(e===196){let s=this.lookU8();t=this.decodeBinary(s,1)}else if(e===197){let s=this.lookU16();t=this.decodeBinary(s,2)}else if(e===198){let s=this.lookU32();t=this.decodeBinary(s,4)}else if(e===212)t=this.decodeExtension(1,0);else if(e===213)t=this.decodeExtension(2,0);else if(e===214)t=this.decodeExtension(4,0);else if(e===215)t=this.decodeExtension(8,0);else if(e===216)t=this.decodeExtension(16,0);else if(e===199){let s=this.lookU8();t=this.decodeExtension(s,1)}else if(e===200){let s=this.lookU16();t=this.decodeExtension(s,2)}else if(e===201){let s=this.lookU32();t=this.decodeExtension(s,4)}else throw new B.DecodeError(`Unrecognized type byte: ${(0,or.prettyByte)(e)}`);this.complete();let n=this.stack;for(;n.length>0;){let s=n[n.length-1];if(s.type===0)if(s.array[s.position]=t,s.position++,s.position===s.size)n.pop(),t=s.array;else continue e;else if(s.type===1){if(!ds(t))throw new B.DecodeError("The type of key must be string or number but "+typeof t);if(t==="__proto__")throw new B.DecodeError("The key __proto__ is not allowed");s.key=t,s.type=2;continue e}else if(s.map[s.key]=t,s.readCount++,s.readCount===s.size)n.pop(),t=s.map;else{s.key=null,s.type=1;continue e}}return t}}readHeadByte(){return this.headByte===_e&&(this.headByte=this.readU8()),this.headByte}complete(){this.headByte=_e}readArraySize(){let e=this.readHeadByte();switch(e){case 220:return this.readU16();case 221:return this.readU32();default:{if(e<160)return e-144;throw new B.DecodeError(`Unrecognized array type byte: ${(0,or.prettyByte)(e)}`)}}}pushMapState(e){if(e>this.maxMapLength)throw new B.DecodeError(`Max length exceeded: map length (${e}) > maxMapLengthLength (${this.maxMapLength})`);this.stack.push({type:1,size:e,key:null,readCount:0,map:{}})}pushArrayState(e){if(e>this.maxArrayLength)throw new B.DecodeError(`Max length exceeded: array length (${e}) > maxArrayLength (${this.maxArrayLength})`);this.stack.push({type:0,size:e,array:new Array(e),position:0})}decodeUtf8String(e,t){var n;if(e>this.maxStrLength)throw new B.DecodeError(`Max length exceeded: UTF-8 byte length (${e}) > maxStrLength (${this.maxStrLength})`);if(this.bytes.byteLength<this.pos+t+e)throw Hr;let s=this.pos+t,o;return this.stateIsMapKey()&&(!((n=this.keyDecoder)===null||n===void 0)&&n.canBeCached(e))?o=this.keyDecoder.decode(this.bytes,s,e):e>ir.TEXT_DECODER_THRESHOLD?o=(0,ir.utf8DecodeTD)(this.bytes,s,e):o=(0,ir.utf8DecodeJs)(this.bytes,s,e),this.pos+=t+e,o}stateIsMapKey(){return this.stack.length>0?this.stack[this.stack.length-1].type===1:!1}decodeBinary(e,t){if(e>this.maxBinLength)throw new B.DecodeError(`Max length exceeded: bin length (${e}) > maxBinLength (${this.maxBinLength})`);if(!this.hasRemaining(e+t))throw Hr;let n=this.pos+t,s=this.bytes.subarray(n,n+e);return this.pos+=t+e,s}decodeExtension(e,t){if(e>this.maxExtLength)throw new B.DecodeError(`Max length exceeded: ext length (${e}) > maxExtLength (${this.maxExtLength})`);let n=this.view.getInt8(this.pos+t),s=this.decodeBinary(e,t+1);return this.extensionCodec.decode(s,n,this.context)}lookU8(){return this.view.getUint8(this.pos)}lookU16(){return this.view.getUint16(this.pos)}lookU32(){return this.view.getUint32(this.pos)}readU8(){let e=this.view.getUint8(this.pos);return this.pos++,e}readI8(){let e=this.view.getInt8(this.pos);return this.pos++,e}readU16(){let e=this.view.getUint16(this.pos);return this.pos+=2,e}readI16(){let e=this.view.getInt16(this.pos);return this.pos+=2,e}readU32(){let e=this.view.getUint32(this.pos);return this.pos+=4,e}readI32(){let e=this.view.getInt32(this.pos);return this.pos+=4,e}readU64(){let e=(0,K.getUint64)(this.view,this.pos);return this.pos+=8,e}readI64(){let e=(0,K.getInt64)(this.view,this.pos);return this.pos+=8,e}readF32(){let e=this.view.getFloat32(this.pos);return this.pos+=4,e}readF64(){let e=this.view.getFloat64(this.pos);return this.pos+=8,e}};L.Decoder=lr});var ur=P(U=>{"use strict";Object.defineProperty(U,"__esModule",{value:!0});U.decodeMulti=U.decode=U.defaultDecodeOptions=void 0;var zr=yt();U.defaultDecodeOptions={};function fs(r,e=U.defaultDecodeOptions){return new zr.Decoder(e.extensionCodec,e.context,e.maxStrLength,e.maxBinLength,e.maxArrayLength,e.maxMapLength,e.maxExtLength).decode(r)}U.decode=fs;function Rs(r,e=U.defaultDecodeOptions){return new zr.Decoder(e.extensionCodec,e.context,e.maxStrLength,e.maxBinLength,e.maxArrayLength,e.maxMapLength,e.maxExtLength).decodeMulti(r)}U.decodeMulti=Rs});var $r=P(V=>{"use strict";Object.defineProperty(V,"__esModule",{value:!0});V.ensureAsyncIterable=V.asyncIterableFromStream=V.isAsyncIterable=void 0;function Xr(r){return r[Symbol.asyncIterator]!=null}V.isAsyncIterable=Xr;function ms(r){if(r==null)throw new Error("Assertion Failure: value must not be null nor undefined")}async function*Gr(r){let e=r.getReader();try{for(;;){let{done:t,value:n}=await e.read();if(t)return;ms(n),yield n}}finally{e.releaseLock()}}V.asyncIterableFromStream=Gr;function gs(r){return Xr(r)?r:Gr(r)}V.ensureAsyncIterable=gs});var Qr=P(I=>{"use strict";Object.defineProperty(I,"__esModule",{value:!0});I.decodeStream=I.decodeMultiStream=I.decodeArrayStream=I.decodeAsync=void 0;var pr=yt(),dr=$r(),ft=ur();async function bs(r,e=ft.defaultDecodeOptions){let t=(0,dr.ensureAsyncIterable)(r);return new pr.Decoder(e.extensionCodec,e.context,e.maxStrLength,e.maxBinLength,e.maxArrayLength,e.maxMapLength,e.maxExtLength).decodeAsync(t)}I.decodeAsync=bs;function ws(r,e=ft.defaultDecodeOptions){let t=(0,dr.ensureAsyncIterable)(r);return new pr.Decoder(e.extensionCodec,e.context,e.maxStrLength,e.maxBinLength,e.maxArrayLength,e.maxMapLength,e.maxExtLength).decodeArrayStream(t)}I.decodeArrayStream=ws;function Kr(r,e=ft.defaultDecodeOptions){let t=(0,dr.ensureAsyncIterable)(r);return new pr.Decoder(e.extensionCodec,e.context,e.maxStrLength,e.maxBinLength,e.maxArrayLength,e.maxMapLength,e.maxExtLength).decodeStream(t)}I.decodeMultiStream=Kr;function xs(r,e=ft.defaultDecodeOptions){return Kr(r,e)}I.decodeStream=xs});var mt=P(d=>{"use strict";Object.defineProperty(d,"__esModule",{value:!0});d.decodeTimestampExtension=d.encodeTimestampExtension=d.decodeTimestampToTimeSpec=d.encodeTimeSpecToTimestamp=d.encodeDateToTimeSpec=d.EXT_TIMESTAMP=d.ExtData=d.ExtensionCodec=d.Encoder=d.DataViewIndexOutOfBoundsError=d.DecodeError=d.Decoder=d.decodeStream=d.decodeMultiStream=d.decodeArrayStream=d.decodeAsync=d.decodeMulti=d.decode=d.encode=void 0;var Es=qr();Object.defineProperty(d,"encode",{enumerable:!0,get:function(){return Es.encode}});var Zr=ur();Object.defineProperty(d,"decode",{enumerable:!0,get:function(){return Zr.decode}});Object.defineProperty(d,"decodeMulti",{enumerable:!0,get:function(){return Zr.decodeMulti}});var Rt=Qr();Object.defineProperty(d,"decodeAsync",{enumerable:!0,get:function(){return Rt.decodeAsync}});Object.defineProperty(d,"decodeArrayStream",{enumerable:!0,get:function(){return Rt.decodeArrayStream}});Object.defineProperty(d,"decodeMultiStream",{enumerable:!0,get:function(){return Rt.decodeMultiStream}});Object.defineProperty(d,"decodeStream",{enumerable:!0,get:function(){return Rt.decodeStream}});var Yr=yt();Object.defineProperty(d,"Decoder",{enumerable:!0,get:function(){return Yr.Decoder}});Object.defineProperty(d,"DataViewIndexOutOfBoundsError",{enumerable:!0,get:function(){return Yr.DataViewIndexOutOfBoundsError}});var Ts=at();Object.defineProperty(d,"DecodeError",{enumerable:!0,get:function(){return Ts.DecodeError}});var vs=nr();Object.defineProperty(d,"Encoder",{enumerable:!0,get:function(){return vs.Encoder}});var Ps=ut();Object.defineProperty(d,"ExtensionCodec",{enumerable:!0,get:function(){return Ps.ExtensionCodec}});var _s=Yt();Object.defineProperty(d,"ExtData",{enumerable:!0,get:function(){return _s.ExtData}});var le=er();Object.defineProperty(d,"EXT_TIMESTAMP",{enumerable:!0,get:function(){return le.EXT_TIMESTAMP}});Object.defineProperty(d,"encodeDateToTimeSpec",{enumerable:!0,get:function(){return le.encodeDateToTimeSpec}});Object.defineProperty(d,"encodeTimeSpecToTimestamp",{enumerable:!0,get:function(){return le.encodeTimeSpecToTimestamp}});Object.defineProperty(d,"decodeTimestampToTimeSpec",{enumerable:!0,get:function(){return le.decodeTimestampToTimeSpec}});Object.defineProperty(d,"encodeTimestampExtension",{enumerable:!0,get:function(){return le.encodeTimestampExtension}});Object.defineProperty(d,"decodeTimestampExtension",{enumerable:!0,get:function(){return le.decodeTimestampExtension}})});var to={};Un(to,{Console:()=>Lt,Shelter:()=>Qe,WebR:()=>Ke,isRCall:()=>Js,isRCharacter:()=>Fs,isRComplex:()=>Ls,isRDouble:()=>Bs,isREnvironment:()=>Cs,isRFunction:()=>br,isRInteger:()=>js,isRList:()=>qs,isRLogical:()=>Ns,isRNull:()=>Os,isRObject:()=>m,isRPairlist:()=>Is,isRRaw:()=>Vs,isRSymbol:()=>Us});module.exports=In(to);var x=typeof process<"u"&&process.release&&process.release.name==="node",Gt;if(globalThis.document)Gt=r=>new Promise((e,t)=>{let n=document.createElement("script");n.src=r,n.onload=()=>e(),n.onerror=t,document.head.appendChild(n)});else if(globalThis.importScripts)Gt=async r=>{try{globalThis.importScripts(r)}catch(e){if(e instanceof TypeError)await Promise.resolve().then(()=>$(require(r)));else throw e}};else if(x)Gt=async r=>{let e=(await Promise.resolve().then(()=>$(require("path")))).default;await Promise.resolve().then(()=>$(require(e.resolve(r))))};else throw new Error("Cannot determine runtime environment");function se(){let r={resolve:t=>{},reject:t=>{},promise:null},e=new Promise((t,n)=>{r.resolve=t,r.reject=n});return r.promise=e,r}function Ar(r){return new Promise(e=>setTimeout(e,r))}function M(r,e,t,...n){return r===null||typeof r!="object"?r:e(r)?t(r,...n):Array.isArray(r)||ArrayBuffer.isView(r)?r.map(s=>M(s,e,t,...n)):Object.fromEntries(Object.entries(r).map(([s,o],a)=>[s,M(o,e,t,...n)]))}function et(r,e){let t=new XMLHttpRequest;t.open("get",r,!0),t.onload=()=>{let n=new Worker(URL.createObjectURL(new Blob([t.responseText])));e(n)},t.send()}function oe(r){if(x)return!1;let e=new URL(location.href),t=new URL(r,location.origin);return!(e.host===t.host&&e.port===t.port&&e.protocol===t.protocol)}var Cn=new WeakMap;function Mr(r,e){return Cn.set(r,e),r}var tt=63;function rt(){let r=Array.from({length:4},Nn).join("-");if(r.length!==tt)throw new Error("comlink internal error: UUID has the wrong length");return r}function Nn(){let r=Math.floor(Math.random()*Number.MAX_SAFE_INTEGER).toString(16),e=15-r.length;return e>0&&(r=Array.from({length:e},()=>0).join("")+r),r}var tn=$(mt());var Ss=new TextEncoder;async function rn(r,e,t){try{let{taskId:n,sizeBuffer:s,dataBuffer:o,signalBuffer:a}=e,c=(0,tn.encode)(t),p=c.length<=o.length;if(Atomics.store(s,0,c.length),Atomics.store(s,1,+p),!p){let[w,G]=ks(r);o.set(Ss.encode(w)),await en(a,n),o=(await G).dataBuffer}o.set(c),Atomics.store(s,1,1),await en(a,n)}catch(n){console.warn(n)}}function ks(r){let e=rt();return[e,new Promise(t=>{x?r.once("message",n=>{!n.id||n.id!==e||t(n)}):r.addEventListener("message",function n(s){!s.data||!s.data.id||s.data.id!==e||(r.removeEventListener("message",n),t(s.data))}),r.start&&r.start()})]}async function en(r,e){let t=(e>>1)%32,n=1;for(;Atomics.compareExchange(r,t+1,0,e)!==0;)await Ar(n),n<32&&(n*=2);Atomics.or(r,0,1<<t),Atomics.notify(r,0)}var C,N,Se,hr,ce=class{constructor(){u(this,Se);u(this,C,void 0);u(this,N,void 0);h(this,N,[]),h(this,C,[])}reset(){h(this,N,[]),h(this,C,[])}put(e){i(this,N).length||T(this,Se,hr).call(this),i(this,N).shift()(e)}async get(){return i(this,C).length||T(this,Se,hr).call(this),i(this,C).shift()}isEmpty(){return!i(this,C).length}isBlocked(){return!!i(this,N).length}get length(){return i(this,C).length-i(this,N).length}};C=new WeakMap,N=new WeakMap,Se=new WeakSet,hr=function(){i(this,C).push(new Promise(e=>{i(this,N).push(e)}))};function wt(r,e){return nn({type:"request",data:{uuid:rt(),msg:r}},e)}function yr(r,e,t){return nn({type:"response",data:{uuid:r,resp:e}},t)}function nn(r,e){return e&&Mr(r,e),r}function sn(r,e){return{type:"sync-request",data:{msg:r,reqData:e}}}function on(r){let e=new Error(r.obj.message);return e.name=r.obj.name,e.stack=r.obj.stack,e}function Ds(r){return r&&typeof r=="object"&&"payloadType"in r&&"obj"in r}function xt(r){return Ds(r)&&r.payloadType==="ptr"}var ue,pe=class{constructor(){this.inputQueue=new ce;this.outputQueue=new ce;this.systemQueue=new ce;u(this,ue,new Map)}async read(){return await this.outputQueue.get()}async flush(){let e=[];for(;!this.outputQueue.isEmpty();)e.push(await this.read());return e}async readSystem(){return await this.systemQueue.get()}write(e){this.inputQueue.put(e)}async request(e,t){let n=wt(e,t),{resolve:s,reject:o,promise:a}=se();return i(this,ue).set(n.data.uuid,{resolve:s,reject:o}),this.write(n),a}putClosedMessage(){this.outputQueue.put({type:"closed"})}resolveResponse(e){let t=e.data.uuid,n=i(this,ue).get(t);if(n){let s=e.data.resp;i(this,ue).delete(t),s.payloadType==="err"?n.reject(on(s)):n.resolve(s)}else console.warn("Can't find request.")}};ue=new WeakMap;var ln=$(mt());var As=new TextDecoder("utf-8"),de,he,ke,De,ye,Tt=class{constructor(e,t,n=[]){u(this,de,!1);u(this,he,void 0);u(this,ke,void 0);u(this,De,void 0);u(this,ye,void 0);this.syncifier=new fr;this.endpoint=e,this.msg=t,this.transfers=n,h(this,he,!1)}scheduleSync(){if(!i(this,de))return h(this,de,!0),this.syncifier.scheduleTask(this),h(this,ye,this.doSync()),i(this,ye).next(),this}poll(){if(!i(this,de))throw new Error("Task not synchronously scheduled");let{done:e,value:t}=i(this,ye).next();return e?(h(this,he,!0),h(this,ke,t),!0):!1}*doSync(){let{endpoint:e,msg:t,transfers:n}=this,s=new Int32Array(new SharedArrayBuffer(8)),o=this.signalBuffer,a=this.taskId,c=an(tt),p=sn(t,{sizeBuffer:s,dataBuffer:c,signalBuffer:o,taskId:a});if(e.postMessage(p,n),yield,Atomics.load(s,1)===0){let G=As.decode(c.slice(0,tt));Ms(c);let q=Atomics.load(s,0);c=an(q),e.postMessage({id:G,dataBuffer:c}),yield}let w=Atomics.load(s,0);return(0,ln.decode)(c.slice(0,w))}get result(){if(i(this,De))throw i(this,De);if(i(this,he))return i(this,ke);throw new Error("Not ready.")}syncify(){return this.scheduleSync(),this.syncifier.syncifyTask(this),this.result}};de=new WeakMap,he=new WeakMap,ke=new WeakMap,De=new WeakMap,ye=new WeakMap;var fr=class{constructor(){this.nextTaskId=new Int32Array([1]),this.signalBuffer=new Int32Array(new SharedArrayBuffer(32*4+4)),this.tasks=new Map}scheduleTask(e){e.taskId=this.nextTaskId[0],this.nextTaskId[0]+=2,e.signalBuffer=this.signalBuffer,this.tasks.set(e.taskId,e)}waitOnSignalBuffer(){for(;;)switch(Atomics.wait(this.signalBuffer,0,0,50)){case"ok":case"not-equal":return;case"timed-out":Rr[0]!==0&&cn();break;default:throw new Error("Unreachable")}}*tasksIdsToWakeup(){let e=Atomics.load(this.signalBuffer,0);for(let t=0;t<32;t++){let n=1<<t;e&n&&(Atomics.and(this.signalBuffer,0,~n),yield Atomics.exchange(this.signalBuffer,t+1,0))}}pollTasks(e){let t=!1;for(let n of this.tasksIdsToWakeup()){let s=this.tasks.get(n);if(!s)throw new Error(`Assertion error: unknown taskId ${n}.`);s.poll()&&(this.tasks.delete(n),s===e&&(t=!0))}return t}syncifyTask(e){for(;;)if(this.waitOnSignalBuffer(),this.pollTasks(e))return}},Et=[];function an(r){let e=Math.ceil(Math.log2(r));Et[e]||(Et[e]=[]);let t=Et[e].pop();return t?(t.fill(0),t):new Uint8Array(new SharedArrayBuffer(2**e))}function Ms(r){let e=Math.ceil(Math.log2(r.byteLength));Et[e].push(r)}var Rr=new Int32Array(new ArrayBuffer(4)),cn=()=>{throw Rr[0]=0,new Error("Interrupted!")};function un(r){cn=r}function pn(r){Rr=new Int32Array(r)}var l={};function dn(r){Object.keys(r).forEach(e=>l._free(r[e]))}x&&(globalThis.Worker=require("worker_threads").Worker);var fe,vt,hn,Ae,We=class extends pe{constructor(t){super();u(this,vt);u(this,fe,void 0);this.close=()=>{};u(this,Ae,async(t,n)=>{if(!(!n||!n.type))switch(n.type){case"resolve":h(this,fe,new Int32Array(n.data)),this.resolve();return;case"response":this.resolveResponse(n);return;case"system":this.systemQueue.put(n.data);return;default:this.outputQueue.put(n);return;case"sync-request":{let s=n,o=s.data.msg,a=s.data.reqData;switch(o.type){case"read":{let c=await this.inputQueue.get();await rn(t,a,c);break}default:throw new TypeError(`Unsupported request type '${o.type}'.`)}return}case"request":throw new TypeError("Can't send messages of type 'request' from a worker. Please Use 'sync-request' instead.")}});let n=s=>{T(this,vt,hn).call(this,s),this.close=()=>{s.terminate(),this.putClosedMessage()};let o={type:"init",data:{config:t,channelType:F.SharedArrayBuffer}};s.postMessage(o)};if(oe(t.baseUrl))et(`${t.baseUrl}webr-worker.js`,s=>n(s));else{let s=new Worker(`${t.baseUrl}webr-worker.js`);n(s)}({resolve:this.resolve,promise:this.initialised}=se())}interrupt(){if(!i(this,fe))throw new Error("Failed attempt to interrupt before initialising interruptBuffer");this.inputQueue.reset(),i(this,fe)[0]=1}};fe=new WeakMap,vt=new WeakSet,hn=function(t){x?t.on("message",n=>{i(this,Ae).call(this,t,n)}):t.onmessage=n=>i(this,Ae).call(this,t,n.data)},Ae=new WeakMap;var Q,Me,Z,Oe,mr=class{constructor(){u(this,Q,void 0);u(this,Me,()=>0);u(this,Z,new Int32Array(new SharedArrayBuffer(4)));u(this,Oe,()=>{});h(this,Q,x?require("worker_threads").parentPort:globalThis),pn(i(this,Z).buffer),un(()=>this.handleInterrupt())}resolve(){this.write({type:"resolve",data:i(this,Z).buffer})}write(e,t){i(this,Q).postMessage(e,t)}writeSystem(e,t){i(this,Q).postMessage({type:"system",data:e},t)}read(){let e={type:"read"};return new Tt(i(this,Q),e).syncify()}inputOrDispatch(){for(;;){let e=this.read();if(e.type==="stdin")return l.allocateUTF8(e.data);i(this,Me).call(this,e)}}run(e){l.callMain(e)}setInterrupt(e){h(this,Oe,e)}handleInterrupt(){i(this,Z)[0]!==0&&(i(this,Z)[0]=0,i(this,Oe).call(this))}setDispatchHandler(e){h(this,Me,e)}};Q=new WeakMap,Me=new WeakMap,Z=new WeakMap,Oe=new WeakMap;var kt=$(mt());x&&(globalThis.Worker=require("worker_threads").Worker);var Re,Y,me,Pt,yn,_t,fn,St,Rn,Ie,Ue=class extends pe{constructor(t){super();u(this,Pt);u(this,_t);u(this,St);this.close=()=>{};u(this,Re,new Map);u(this,Y,void 0);u(this,me,!1);u(this,Ie,async(t,n)=>{if(!(!n||!n.type))switch(n.type){case"resolve":this.resolve();return;case"response":this.resolveResponse(n);return;case"system":this.systemQueue.put(n.data);return;default:this.outputQueue.put(n);return;case"sync-request":{let s=n.data;i(this,Re).set(s.data.uuid,s.data.msg);return}case"request":throw new TypeError("Can't send messages of type 'request' from a worker.Use service worker fetch request instead.")}});let n=s=>{T(this,St,Rn).call(this,s),this.close=()=>{s.terminate(),this.putClosedMessage()},T(this,Pt,yn).call(this,`${t.serviceWorkerUrl}webr-serviceworker.js`).then(o=>{let a={type:"init",data:{config:t,channelType:F.ServiceWorker,clientId:o,location:window.location.href}};s.postMessage(a)})};if(oe(t.serviceWorkerUrl))et(`${t.serviceWorkerUrl}webr-worker.js`,s=>n(s));else{let s=new Worker(`${t.serviceWorkerUrl}webr-worker.js`);n(s)}({resolve:this.resolve,promise:this.initialised}=se())}activeRegistration(){var t;if(!((t=i(this,Y))!=null&&t.active))throw new Error("Attempted to obtain a non-existent active registration.");return i(this,Y).active}interrupt(){h(this,me,!0)}};Re=new WeakMap,Y=new WeakMap,me=new WeakMap,Pt=new WeakSet,yn=async function(t){h(this,Y,await navigator.serviceWorker.register(t)),await navigator.serviceWorker.ready,window.addEventListener("beforeunload",()=>{var s;(s=i(this,Y))==null||s.unregister()});let n=await new Promise(s=>{navigator.serviceWorker.addEventListener("message",function o(a){a.data.type==="registration-successful"&&(navigator.serviceWorker.removeEventListener("message",o),s(a.data.clientId))}),this.activeRegistration().postMessage({type:"register-client-main"})});return navigator.serviceWorker.addEventListener("message",s=>{T(this,_t,fn).call(this,s)}),n},_t=new WeakSet,fn=async function(t){if(t.data.type==="request"){let n=t.data.data,s=i(this,Re).get(n);if(!s)throw new Error("Request not found during service worker XHR request");switch(i(this,Re).delete(n),s.type){case"read":{let o=await this.inputQueue.get();this.activeRegistration().postMessage({type:"wasm-webr-fetch-response",uuid:n,response:yr(n,o)});break}case"interrupt":{let o=i(this,me);this.activeRegistration().postMessage({type:"wasm-webr-fetch-response",uuid:n,response:yr(n,o)}),this.inputQueue.reset(),h(this,me,!1);break}default:throw new TypeError(`Unsupported request type '${s.type}'.`)}return}},St=new WeakSet,Rn=function(t){x?t.on("message",n=>{i(this,Ie).call(this,t,n)}):t.onmessage=n=>i(this,Ie).call(this,t,n.data)},Ie=new WeakMap;var ge,Ce,Ne,je,Be,gr=class{constructor(e){u(this,ge,void 0);u(this,Ce,void 0);u(this,Ne,void 0);u(this,je,()=>0);u(this,Be,()=>{});this.onMessageFromMainThread=()=>{};if(!e.clientId||!e.location)throw Error("Can't start service worker channel");h(this,Ce,e.clientId),h(this,Ne,e.location),h(this,ge,x?require("worker_threads").parentPort:globalThis)}resolve(){this.write({type:"resolve"})}write(e,t){i(this,ge).postMessage(e,t)}writeSystem(e,t){i(this,ge).postMessage({type:"system",data:e},t)}syncRequest(e){let t=wt(e);this.write({type:"sync-request",data:t});let n=0;for(;;)try{let s=new URL("__wasm__/webr-fetch-request/",i(this,Ne)),o=new XMLHttpRequest;o.timeout=6e4,o.responseType="arraybuffer",o.open("POST",s,!1);let a={clientId:i(this,Ce),uuid:t.data.uuid};return o.send((0,kt.encode)(a)),(0,kt.decode)(o.response)}catch(s){if(s instanceof DOMException&&n++<1e3)console.log("Service worker request failed - resending request");else throw s}}read(){return this.syncRequest({type:"read"}).data.resp}inputOrDispatch(){for(;;){let e=this.read();if(e.type==="stdin")return l.allocateUTF8(e.data);i(this,je).call(this,e)}}run(e){l.callMain(e)}setInterrupt(e){h(this,Be,e)}handleInterrupt(){this.syncRequest({type:"interrupt"}).data.resp&&i(this,Be).call(this)}setDispatchHandler(e){h(this,je,e)}};ge=new WeakMap,Ce=new WeakMap,Ne=new WeakMap,je=new WeakMap,Be=new WeakMap;var F={Automatic:0,SharedArrayBuffer:1,ServiceWorker:2};function mn(r){switch(r.channelType){case F.SharedArrayBuffer:return new We(r);case F.ServiceWorker:return new Ue(r);case F.Automatic:default:if(typeof SharedArrayBuffer<"u")return new We(r);if("serviceWorker"in navigator&&!oe(r.serviceWorkerUrl))return new Ue(r);throw new Error("Can't initialise main thread communication channel")}}var gn=x?__dirname+"/":"./",bn="https://repo.r-wasm.org";function m(r){return r&&(typeof r=="object"||typeof r=="function")&&"payloadType"in r&&xt(r._payload)}function Os(r){return m(r)&&r._payload.obj.type==="null"}function Us(r){return m(r)&&r._payload.obj.type==="symbol"}function Is(r){return m(r)&&r._payload.obj.type==="pairlist"}function Cs(r){return m(r)&&r._payload.obj.type==="environment"}function Ns(r){return m(r)&&r._payload.obj.type==="logical"}function js(r){return m(r)&&r._payload.obj.type==="integer"}function Bs(r){return m(r)&&r._payload.obj.type==="double"}function Ls(r){return m(r)&&r._payload.obj.type==="complex"}function Fs(r){return m(r)&&r._payload.obj.type==="character"}function qs(r){return m(r)&&r._payload.obj.type==="list"}function Vs(r){return m(r)&&r._payload.obj.type==="raw"}function Js(r){return m(r)&&r._payload.obj.type==="call"}function br(r){var e;return!!(m(r)&&((e=r._payload.obj.methods)!=null&&e.includes("exec")))}var f={null:0,symbol:1,pairlist:2,closure:3,environment:4,promise:5,call:6,special:7,builtin:8,string:9,logical:10,integer:13,double:14,complex:15,character:16,dots:17,any:18,list:19,expression:20,bytecode:21,pointer:22,weakref:23,raw:24,s4:25,new:30,free:31,function:99};function wr(r){return r&&typeof r=="object"&&Object.keys(f).includes(r.type)}function xr(r){return r&&typeof r=="object"&&"re"in r&&"im"in r}function Dt(r){return l._Rf_protect(j(r)),r}function S(r,e){return l._Rf_protect(j(r)),++e.n,r}function wn(r){let e=l._malloc(4);return l._R_ProtectWithIndex(j(r),e),{loc:l.getValue(e,"i32"),ptr:e}}function xn(r){l._Rf_unprotect(1),l._free(r.ptr)}function En(r,e){return l._R_Reprotect(j(r),e.loc),r}function D(r){l._Rf_unprotect(r)}function Er(r,e,t){l._Rf_defineVar(j(e),j(t),j(r))}function Tn(r,e){let t={},n={n:0};try{let s=new Fe(e);S(s,n),t.code=l.allocateUTF8(r);let o=l._R_ParseEvalString(t.code,s.ptr);return y.wrap(o)}finally{dn(t),D(n.n)}}function Le(r,e){return l.getWasmTableEntry(l.GOT.ffi_safe_eval.value)(j(r),j(e))}function j(r){return Gs(r)?r.ptr:r}function ne(r,e){if(l._TYPEOF(r.ptr)!==f[e])throw new Error(`Unexpected object type "${r.type()}" when expecting type "${e}"`)}function zs(r){if(wr(r))return new(vn(f[r.type]))(r);if(r&&typeof r=="object"&&"type"in r&&r.type==="null")return new Ot;if(r===null)return new te({type:"logical",names:null,values:[null]});if(typeof r=="boolean")return new te(r);if(typeof r=="number")return new qe(r);if(typeof r=="string")return new J(r);if(xr(r))return new Ve(r);if(Array.isArray(r))return Xs(r);throw new Error("Robj construction for this JS object is not yet supported")}function Xs(r){let e={n:0};try{let t=new re([new H("c"),...r]);return S(t,e),t.eval()}finally{D(e.n)}}var E=class{constructor(e){this.ptr=e}type(){let e=l._TYPEOF(this.ptr);return Object.keys(f).find(n=>f[n]===e)}},we,Wt,ee=class extends E{constructor(t){if(!(t instanceof E))return zs(t);super(t.ptr);u(this,we)}static wrap(t){let n=l._TYPEOF(t);return new(vn(n))(new E(t))}get[Symbol.toStringTag](){return`RObject:${this.type()}`}static getPersistentObject(t){return k[t]}getPropertyValue(t){return this[t]}inspect(){Tn(".Internal(inspect(x))",{x:this})}isNull(){return l._TYPEOF(this.ptr)===f.null}isUnbound(){return this.ptr===k.unboundValue.ptr}attrs(){return xe.wrap(l._ATTRIB(this.ptr))}setNames(t){let n;if(t===null)n=k.null;else if(Array.isArray(t)&&t.every(s=>typeof s=="string"||s===null))n=new J(t);else throw new Error("Argument to setNames must be null or an Array of strings or null");return l._Rf_setAttrib(this.ptr,k.namesSymbol.ptr,n.ptr),this}names(){let t=J.wrap(l._Rf_getAttrib(this.ptr,k.namesSymbol.ptr));return t.isNull()?null:t.toArray()}includes(t){let n=this.names();return n&&n.includes(t)}toJs(t={depth:0},n=1){throw new Error("This R object cannot be converted to JS")}subset(t){return T(this,we,Wt).call(this,t,k.bracketSymbol.ptr)}get(t){return T(this,we,Wt).call(this,t,k.bracket2Symbol.ptr)}getDollar(t){return T(this,we,Wt).call(this,t,k.dollarSymbol.ptr)}pluck(...t){let n=wn(k.null);try{let s=(a,c)=>{let p=a.get(c);return En(p,n)},o=t.reduce(s,this);return o.isNull()?void 0:o}finally{xn(n)}}set(t,n){let s={n:0};try{let o=new ee(t);S(o,s);let a=new ee(n);S(a,s);let c=new H("[[<-"),p=l._Rf_lang4(c.ptr,this.ptr,o.ptr,a.ptr);return S(p,s),ee.wrap(Le(p,k.baseEnv))}finally{D(s.n)}}static getMethods(t){let n=new Set,s=t;do Object.getOwnPropertyNames(s).map(o=>n.add(o));while(s=Object.getPrototypeOf(s));return[...n.keys()].filter(o=>typeof t[o]=="function")}},y=ee;we=new WeakSet,Wt=function(t,n){let s={n:0};try{let o=new ee(t);S(o,s);let a=l._Rf_lang3(n,this.ptr,o.ptr);return S(a,s),ee.wrap(Le(a,k.baseEnv))}finally{D(s.n)}};var Ot=class extends y{constructor(){return super(new E(l.getValue(l._R_NilValue,"*"))),this}toJs(){return{type:"null"}}},H=class extends y{constructor(e){if(e instanceof E){ne(e,"symbol"),super(e);return}let t=l.allocateUTF8(e);try{super(new E(l._Rf_install(t)))}finally{l._free(t)}}toJs(){let e=this.toObject();return{type:"symbol",printname:e.printname,symvalue:e.symvalue,internal:e.internal}}toObject(){return{printname:this.printname().isUnbound()?null:this.printname().toString(),symvalue:this.symvalue().isUnbound()?null:this.symvalue().ptr,internal:this.internal().isNull()?null:this.internal().ptr}}toString(){return this.printname().toString()}printname(){return Je.wrap(l._PRINTNAME(this.ptr))}symvalue(){return y.wrap(l._SYMVALUE(this.ptr))}internal(){return y.wrap(l._INTERNAL(this.ptr))}},xe=class extends y{constructor(e){if(e instanceof E)return ne(e,"pairlist"),super(e),this;let t={n:0};try{let{names:n,values:s}=He(e),o=xe.wrap(l._Rf_allocList(s.length));S(o,t);for(let[a,c]=[0,o];!c.isNull();[a,c]=[a+1,c.cdr()])c.setcar(new y(s[a]));o.setNames(n),super(o)}finally{D(t.n)}}get length(){return this.toArray().length}toArray(e={depth:1}){return this.toJs(e).values}toObject({allowDuplicateKey:e=!0,allowEmptyKey:t=!1,depth:n=1}={}){let s=this.entries({depth:n}),o=s.map(([a,c])=>a);if(!e&&new Set(o).size!==o.length)throw new Error("Duplicate key when converting pairlist without allowDuplicateKey enabled");if(!t&&o.some(a=>!a))throw new Error("Empty or null key when converting pairlist without allowEmptyKey enabled");return Object.fromEntries(s.filter((a,c)=>s.findIndex(p=>p[0]===a[0])===c))}entries(e={depth:1}){let t=this.toJs(e);return t.values.map((n,s)=>[t.names?t.names[s]:null,n])}toJs(e={depth:0},t=1){let n=[],s=!1,o=[];for(let c=this;!c.isNull();c=c.cdr()){let p=c.tag();p.isNull()?n.push(""):(s=!0,n.push(p.toString())),e.depth&&t>=e.depth?o.push(c.car()):o.push(c.car().toJs(e,t+1))}return{type:"pairlist",names:s?n:null,values:o}}includes(e){return e in this.toObject()}setcar(e){l._SETCAR(this.ptr,e.ptr)}car(){return y.wrap(l._CAR(this.ptr))}cdr(){return y.wrap(l._CDR(this.ptr))}tag(){return y.wrap(l._TAG(this.ptr))}},re=class extends y{constructor(e){if(e instanceof E)return ne(e,"call"),super(e),this;let t={n:0};try{let{values:n}=He(e),s=n.map(a=>S(new y(a),t)),o=re.wrap(l._Rf_allocVector(f.call,n.length));S(o,t);for(let[a,c]=[0,o];!c.isNull();[a,c]=[a+1,c.cdr()])c.setcar(s[a]);super(o)}finally{D(t.n)}}setcar(e){l._SETCAR(this.ptr,e.ptr)}car(){return y.wrap(l._CAR(this.ptr))}cdr(){return y.wrap(l._CDR(this.ptr))}eval(){return y.wrap(Le(this.ptr,k.baseEnv))}},Tr=class extends y{constructor(e){if(e instanceof E)return ne(e,"list"),super(e),this;let t={n:0};try{let{names:n,values:s}=He(e),o=l._Rf_allocVector(f.list,s.length);S(o,t),s.forEach((a,c)=>{l._SET_VECTOR_ELT(o,c,new y(a).ptr)}),y.wrap(o).setNames(n),super(new E(o))}finally{D(t.n)}}get length(){return l._LENGTH(this.ptr)}toArray(e={depth:1}){return this.toJs(e).values}toObject({allowDuplicateKey:e=!0,allowEmptyKey:t=!1,depth:n=1}={}){let s=this.entries({depth:n}),o=s.map(([a,c])=>a);if(!e&&new Set(o).size!==o.length)throw new Error("Duplicate key when converting list without allowDuplicateKey enabled");if(!t&&o.some(a=>!a))throw new Error("Empty or null key when converting list without allowEmptyKey enabled");return Object.fromEntries(s.filter((a,c)=>s.findIndex(p=>p[0]===a[0])===c))}entries(e={depth:1}){let t=this.toJs(e);return t.values.map((n,s)=>[t.names?t.names[s]:null,n])}toJs(e={depth:0},t=1){return{type:"list",names:this.names(),values:[...Array(this.length).keys()].map(n=>e.depth&&t>=e.depth?this.get(n+1):this.get(n+1).toJs(e,t+1))}}},be=class extends y{exec(...e){let t={n:0};try{let n=new re([this,...e]);return S(n,t),n.eval()}finally{D(t.n)}}},Je=class extends y{constructor(e){if(e instanceof E){ne(e,"string"),super(e);return}let t=l.allocateUTF8(e);try{super(new E(l._Rf_mkChar(t)))}finally{l._free(t)}}toString(){return l.UTF8ToString(l._R_CHAR(this.ptr))}toJs(){return{type:"string",value:this.toString()}}},Fe=class extends y{constructor(e={}){if(e instanceof E)return ne(e,"environment"),super(e),this;let t=0;try{let{names:n,values:s}=He(e),o=Dt(l._R_NewEnv(k.globalEnv.ptr,0,0));++t,s.forEach((a,c)=>{let p=n?n[c]:null;if(!p)throw new Error("Can't create object in new environment with empty symbol name");let w=new H(p),G=Dt(new y(a));try{Er(o,w,G)}finally{D(1)}}),super(new E(o))}finally{D(t)}}ls(e=!1,t=!0){return J.wrap(l._R_lsInternal3(this.ptr,Number(e),Number(t))).toArray()}bind(e,t){let n=new H(e),s=Dt(new y(t));try{Er(this,n,s)}finally{D(1)}}names(){return this.ls(!0,!0)}frame(){return y.wrap(l._FRAME(this.ptr))}subset(e){if(typeof e=="number")throw new Error("Object of type environment is not subsettable");return this.getDollar(e)}toObject({depth:e=0}={}){let t=this.names();return Object.fromEntries([...Array(t.length).keys()].map(n=>[t[n],this.getDollar(t[n]).toJs({depth:e})]))}toJs(e={depth:0},t=1){let n=this.names(),s=[...Array(n.length).keys()].map(o=>e.depth&&t>=e.depth?this.getDollar(n[o]):this.getDollar(n[o]).toJs(e,t+1));return{type:"environment",names:n,values:s}}},z=class extends y{constructor(e,t,n){if(e instanceof E)return ne(e,t),super(e),this;let s={n:0};try{let{names:o,values:a}=He(e),c=l._Rf_allocVector(f[t],a.length);S(c,s),a.forEach(n(c)),y.wrap(c).setNames(o),super(new E(c))}finally{D(s.n)}}get length(){return l._LENGTH(this.ptr)}get(e){return super.get(e)}subset(e){return super.subset(e)}getDollar(e){throw new Error("$ operator is invalid for atomic vectors")}detectMissing(){let e={n:0};try{let t=l._Rf_lang2(new H("is.na").ptr,this.ptr);S(t,e);let n=te.wrap(Le(t,k.baseEnv));S(n,e);let s=n.toTypedArray();return Array.from(s).map(o=>!!o)}finally{D(e.n)}}toArray(){let e=this.toTypedArray();return this.detectMissing().map((t,n)=>t?null:e[n])}toObject({allowDuplicateKey:e=!0,allowEmptyKey:t=!1}={}){let n=this.entries(),s=n.map(([o,a])=>o);if(!e&&new Set(s).size!==s.length)throw new Error("Duplicate key when converting atomic vector without allowDuplicateKey enabled");if(!t&&s.some(o=>!o))throw new Error("Empty or null key when converting atomic vector without allowEmptyKey enabled");return Object.fromEntries(n.filter((o,a)=>n.findIndex(c=>c[0]===o[0])===a))}entries(){let e=this.toArray(),t=this.names();return e.map((n,s)=>[t?t[s]:null,n])}toJs(){return{type:this.type(),names:this.names(),values:this.toArray()}}},Ut,vr=class extends z{constructor(e){super(e,"logical",i(vr,Ut))}getBoolean(e){return this.get(e).toArray()[0]}toBoolean(){if(this.length!==1)throw new Error("Can't convert atomic vector of length > 1 to a scalar JS value");let e=this.getBoolean(1);if(e===null)throw new Error("Can't convert missing value `NA` to a JS boolean");return e}toTypedArray(){return new Int32Array(l.HEAP32.subarray(l._LOGICAL(this.ptr)/4,l._LOGICAL(this.ptr)/4+this.length))}toArray(){let e=this.toTypedArray();return this.detectMissing().map((t,n)=>t?null:!!e[n])}},te=vr;Ut=new WeakMap,u(te,Ut,e=>{let t=l._LOGICAL(e),n=l.getValue(l._R_NaInt,"i32");return(s,o)=>{l.setValue(t+4*o,s===null?n:!!s,"i32")}});var It,Pr=class extends z{constructor(e){super(e,"integer",i(Pr,It))}getNumber(e){return this.get(e).toArray()[0]}toNumber(){if(this.length!==1)throw new Error("Can't convert atomic vector of length > 1 to a scalar JS value");let e=this.getNumber(1);if(e===null)throw new Error("Can't convert missing value `NA` to a JS number");return e}toTypedArray(){return new Int32Array(l.HEAP32.subarray(l._INTEGER(this.ptr)/4,l._INTEGER(this.ptr)/4+this.length))}},At=Pr;It=new WeakMap,u(At,It,e=>{let t=l._INTEGER(e),n=l.getValue(l._R_NaInt,"i32");return(s,o)=>{l.setValue(t+4*o,s===null?n:Math.round(Number(s)),"i32")}});var Ct,_r=class extends z{constructor(e){super(e,"double",i(_r,Ct))}getNumber(e){return this.get(e).toArray()[0]}toNumber(){if(this.length!==1)throw new Error("Can't convert atomic vector of length > 1 to a scalar JS value");let e=this.getNumber(1);if(e===null)throw new Error("Can't convert missing value `NA` to a JS number");return e}toTypedArray(){return new Float64Array(l.HEAPF64.subarray(l._REAL(this.ptr)/8,l._REAL(this.ptr)/8+this.length))}},qe=_r;Ct=new WeakMap,u(qe,Ct,e=>{let t=l._REAL(e),n=l.getValue(l._R_NaReal,"double");return(s,o)=>{l.setValue(t+8*o,s===null?n:s,"double")}});var Nt,Sr=class extends z{constructor(e){super(e,"complex",i(Sr,Nt))}getComplex(e){return this.get(e).toArray()[0]}toComplex(){if(this.length!==1)throw new Error("Can't convert atomic vector of length > 1 to a scalar JS value");let e=this.getComplex(1);if(e===null)throw new Error("Can't convert missing value `NA` to a JS object");return e}toTypedArray(){return new Float64Array(l.HEAPF64.subarray(l._COMPLEX(this.ptr)/8,l._COMPLEX(this.ptr)/8+2*this.length))}toArray(){let e=this.toTypedArray();return this.detectMissing().map((t,n)=>t?null:{re:e[2*n],im:e[2*n+1]})}},Ve=Sr;Nt=new WeakMap,u(Ve,Nt,e=>{let t=l._COMPLEX(e),n=l.getValue(l._R_NaReal,"double");return(s,o)=>{l.setValue(t+8*(2*o),s===null?n:s.re,"double"),l.setValue(t+8*(2*o+1),s===null?n:s.im,"double")}});var jt,kr=class extends z{constructor(e){super(e,"character",i(kr,jt))}getString(e){return this.get(e).toArray()[0]}toString(){if(this.length!==1)throw new Error("Can't convert atomic vector of length > 1 to a scalar JS value");let e=this.getString(1);if(e===null)throw new Error("Can't convert missing value `NA` to a JS string");return e}toTypedArray(){return new Uint32Array(l.HEAPU32.subarray(l._STRING_PTR(this.ptr)/4,l._STRING_PTR(this.ptr)/4+this.length))}toArray(){return this.detectMissing().map((e,t)=>e?null:l.UTF8ToString(l._R_CHAR(l._STRING_ELT(this.ptr,t))))}},J=kr;jt=new WeakMap,u(J,jt,e=>(t,n)=>{t===null?l._SET_STRING_ELT(e,n,k.naString.ptr):l._SET_STRING_ELT(e,n,new Je(t).ptr)});var Bt,Dr=class extends z{constructor(e){super(e,"raw",i(Dr,Bt))}getNumber(e){return this.get(e).toArray()[0]}toNumber(){if(this.length!==1)throw new Error("Can't convert atomic vector of length > 1 to a scalar JS value");let e=this.getNumber(1);if(e===null)throw new Error("Can't convert missing value `NA` to a JS number");return e}toTypedArray(){return new Uint8Array(l.HEAPU8.subarray(l._RAW(this.ptr),l._RAW(this.ptr)+this.length))}},Mt=Dr;Bt=new WeakMap,u(Mt,Bt,e=>{let t=l._RAW(e);return(n,s)=>{l.setValue(t+s,Number(n),"i8")}});function He(r){return wr(r)?r:Array.isArray(r)||ArrayBuffer.isView(r)?{names:null,values:r}:r&&typeof r=="object"&&!xr(r)?{names:Object.keys(r),values:Object.values(r)}:{names:null,values:[r]}}function vn(r){let e={[f.null]:Ot,[f.symbol]:H,[f.pairlist]:xe,[f.closure]:be,[f.environment]:Fe,[f.call]:re,[f.special]:be,[f.builtin]:be,[f.string]:Je,[f.logical]:te,[f.integer]:At,[f.double]:qe,[f.complex]:Ve,[f.character]:J,[f.list]:Tr,[f.raw]:Mt,[f.function]:be};return r in e?e[r]:y}function Gs(r){return r instanceof y}var k;function Ks(){}function Qs(r,e){return async function*(){let t={type:"callRObjectMethod",data:{payload:e._payload,prop:"getPropertyValue",args:[{payloadType:"raw",obj:"length"}],shelter:void 0}},n=await r.request(t);if(typeof n.obj!="number")throw new Error("Cannot iterate over object, unexpected type for length property.");for(let s=1;s<=n.obj;s++)yield e.get(s)}}function Pn(r,e,t){return async(...n)=>{let s=n.map(c=>m(c)?c._payload:{obj:M(c,m,p=>p._payload),payloadType:"raw"}),o={type:"callRObjectMethod",data:{payload:t,prop:e,args:s}},a=await r.request(o);switch(a.payloadType){case"ptr":return X(r,a);case"raw":return M(a,xt,(p,w)=>X(w,p),r).obj}}}async function Zs(r,e,t,n){let s={type:"newRObject",data:{objType:e,obj:M(n,m,a=>a._payload),shelter:t}},o=await r.request(s);switch(o.payloadType){case"raw":throw new Error("Unexpected raw payload type returned from newRObject");case"ptr":return X(r,o)}}function X(r,e){var n;let t=new Proxy((n=e.obj.methods)!=null&&n.includes("exec")?Object.assign(Ks,{...e}):e,{get:(s,o)=>{var a;if(o==="_payload")return e;if(o===Symbol.asyncIterator)return Qs(r,t);if((a=e.obj.methods)!=null&&a.includes(o.toString()))return Pn(r,o.toString(),e)},apply:async(s,o,a)=>{let c=await X(r,e).exec(...a);return br(c)?c:c.toJs()}});return t}function W(r,e,t){return new Proxy(y,{construct:(n,s)=>Zs(r,t,e,...s),get:(n,s)=>Pn(r,s.toString())})}var ze,Xe,Ge,$e,Ft,qt,Vt,Jt,Ht,_n,Lt=class{constructor(e={},t={REnv:{R_HOME:"/usr/lib/R",FONTCONFIG_PATH:"/etc/fonts",R_ENABLE_JIT:"0",R_DEFAULT_DEVICE:"canvas"}}){u(this,Ht);u(this,ze,void 0);u(this,Xe,void 0);u(this,Ge,void 0);u(this,$e,void 0);u(this,Ft,e=>{console.log(e)});u(this,qt,e=>{console.error(e)});u(this,Vt,e=>{let t=prompt(e);t&&this.stdin(`${t}
-`)});u(this,Jt,e=>{if(x)throw new Error("Plotting with HTML canvas is not yet supported under Node");Function(`this.getContext('2d').${e}`).bind(this.canvas)()});this.webR=new Ke(t),x||(this.canvas=document.createElement("canvas"),this.canvas.setAttribute("width","1008"),this.canvas.setAttribute("height","1008")),h(this,ze,e.stdout||i(this,Ft)),h(this,Xe,e.stderr||i(this,qt)),h(this,Ge,e.prompt||i(this,Vt)),h(this,$e,e.canvasExec||i(this,Jt))}stdin(e){this.webR.writeConsole(e)}interrupt(){this.webR.interrupt()}run(){T(this,Ht,_n).call(this)}};ze=new WeakMap,Xe=new WeakMap,Ge=new WeakMap,$e=new WeakMap,Ft=new WeakMap,qt=new WeakMap,Vt=new WeakMap,Jt=new WeakMap,Ht=new WeakSet,_n=async function(){for(;;){let e=await this.webR.read();switch(e.type){case"stdout":i(this,ze).call(this,e.data);break;case"stderr":i(this,Xe).call(this,e.data);break;case"prompt":i(this,Ge).call(this,e.data);break;case"canvasExec":i(this,$e).call(this,e.data);break;case"closed":return;default:console.warn(`Unhandled output type for webR Console: ${e.type}.`)}}};var Ys={FONTCONFIG_PATH:"/etc/fonts",R_HOME:"/usr/lib/R",R_ENABLE_JIT:"0"},Sn={RArgs:[],REnv:Ys,baseUrl:gn,serviceWorkerUrl:"",repoUrl:bn,homedir:"/home/web_user",interactive:!0,channelType:F.Automatic},b,zt,kn,Ke=class{constructor(e={}){u(this,zt);u(this,b,void 0);this.FS={lookupPath:async e=>{let t={type:"lookupPath",data:{path:e}};return(await i(this,b).request(t)).obj},mkdir:async e=>{let t={type:"mkdir",data:{path:e}};return(await i(this,b).request(t)).obj},readFile:async(e,t)=>{let n={type:"readFile",data:{path:e,flags:t}};return(await i(this,b).request(n)).obj},rmdir:async e=>{let t={type:"rmdir",data:{path:e}};await i(this,b).request(t)},writeFile:async(e,t,n)=>{let s={type:"writeFile",data:{path:e,data:t,flags:n}};await i(this,b).request(s)},unlink:async e=>{let t={type:"unlink",data:{path:e}};await i(this,b).request(t)}};let t={...Sn,...e,REnv:{...Sn.REnv,...e.REnv}};h(this,b,mn(t)),this.objs={},this.Shelter=eo(i(this,b))}async init(){let e=await i(this,b).initialised;return 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")},T(this,zt,kn).call(this),e}close(){i(this,b).close()}async read(){return await i(this,b).read()}async flush(){return await i(this,b).flush()}write(e){i(this,b).write(e)}writeConsole(e){this.write({type:"stdin",data:e+`
-`})}interrupt(){i(this,b).interrupt()}async installPackages(e,t=!1){for(let n of e){let s={type:"installPackage",data:{name:n,quiet:t}};await i(this,b).request(s)}}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,n={}){let s=M(n,m,c=>c._payload),o={type:"evalRRaw",data:{code:e,options:s,outputType:t}},a=await i(this,b).request(o);switch(a.payloadType){case"raw":return a.obj;case"ptr":throw new Error("Unexpected ptr payload type returned from evalRVoid")}}async invokeWasmFunction(e,...t){let n={type:"invokeWasmFunction",data:{ptr:e,args:t}};return(await i(this,b).request(n)).obj}};b=new WeakMap,zt=new WeakSet,kn=async function(){for(;;){let e=await i(this,b).readSystem();switch(e.type){case"setTimeoutWasm":setTimeout((t,n)=>{this.invokeWasmFunction(t,...n)},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 Error("Unknown system message type `"+e.type+"`")}}};var g,R,Ze,Qe=class{constructor(e){u(this,g,"");u(this,R,void 0);u(this,Ze,!1);h(this,R,e)}async init(){if(i(this,Ze))return;let e={type:"newShelter"},t=await i(this,R).request(e);h(this,g,t.obj),this.RObject=W(i(this,R),i(this,g),"object"),this.RLogical=W(i(this,R),i(this,g),"logical"),this.RInteger=W(i(this,R),i(this,g),"integer"),this.RDouble=W(i(this,R),i(this,g),"double"),this.RComplex=W(i(this,R),i(this,g),"complex"),this.RCharacter=W(i(this,R),i(this,g),"character"),this.RRaw=W(i(this,R),i(this,g),"raw"),this.RList=W(i(this,R),i(this,g),"list"),this.RPairlist=W(i(this,R),i(this,g),"pairlist"),this.REnvironment=W(i(this,R),i(this,g),"environment"),this.RSymbol=W(i(this,R),i(this,g),"symbol"),this.RString=W(i(this,R),i(this,g),"string"),this.RCall=W(i(this,R),i(this,g),"call"),h(this,Ze,!0)}async purge(){let e={type:"shelterPurge",data:i(this,g)};await i(this,R).request(e)}async destroy(e){let t={type:"shelterDestroy",data:{id:i(this,g),obj:e._payload}};await i(this,R).request(t)}async size(){let e={type:"shelterSize",data:i(this,g)};return(await i(this,R).request(e)).obj}async evalR(e,t={}){let n=M(t,m,a=>a._payload),s={type:"evalR",data:{code:e,options:n,shelter:i(this,g)}},o=await i(this,R).request(s);switch(o.payloadType){case"raw":throw new Error("Unexpected payload type returned from evalR");default:return X(i(this,R),o)}}async captureR(e,t={}){let n=M(t,m,a=>a._payload),s={type:"captureR",data:{code:e,options:n,shelter:i(this,g)}},o=await i(this,R).request(s);switch(o.payloadType){case"ptr":throw new Error("Unexpected payload type returned from evalR");case"raw":{let a=o.obj,c=X(i(this,R),a.result),p=a.output;for(let w=0;w<p.length;++w)p[w].type!=="stdout"&&p[w].type!=="stderr"&&(p[w].data=X(i(this,R),p[w].data));return{result:c,output:p}}}}};g=new WeakMap,R=new WeakMap,Ze=new WeakMap;function eo(r){return new Proxy(Qe,{construct:async()=>{let e=new Qe(r);return await e.init(),e}})}0&&(module.exports={Console,Shelter,WebR,isRCall,isRCharacter,isRComplex,isRDouble,isREnvironment,isRFunction,isRInteger,isRList,isRLogical,isRNull,isRObject,isRPairlist,isRRaw,isRSymbol});
+"use strict";var In=Object.create;var st=Object.defineProperty;var Un=Object.getOwnPropertyDescriptor;var Cn=Object.getOwnPropertyNames;var jn=Object.getPrototypeOf,Nn=Object.prototype.hasOwnProperty;var P=(r,e)=>()=>(e||r((e={exports:{}}).exports,e),e.exports),Bn=(r,e)=>{for(var t in e)st(r,t,{get:e[t],enumerable:!0})},Ur=(r,e,t,n)=>{if(e&&typeof e=="object"||typeof e=="function")for(let s of Cn(e))!Nn.call(r,s)&&s!==t&&st(r,s,{get:()=>e[s],enumerable:!(n=Un(e,s))||n.enumerable});return r};var Z=(r,e,t)=>(t=r!=null?In(jn(r)):{},Ur(e||!r||!r.__esModule?st(t,"default",{value:r,enumerable:!0}):t,r)),Ln=r=>Ur(st({},"__esModule",{value:!0}),r);var Zt=(r,e,t)=>{if(!e.has(r))throw TypeError("Cannot "+t)};var i=(r,e,t)=>(Zt(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)},h=(r,e,t,n)=>(Zt(r,e,"write to private field"),n?n.call(r,t):e.set(r,t),t);var v=(r,e,t)=>(Zt(r,e,"access private method"),t);var _e=P(O=>{"use strict";Object.defineProperty(O,"__esModule",{value:!0});O.getUint64=O.getInt64=O.setInt64=O.setUint64=O.UINT32_MAX=void 0;O.UINT32_MAX=4294967295;function Vn(r,e,t){let n=t/4294967296,s=t;r.setUint32(e,n),r.setUint32(e+4,s)}O.setUint64=Vn;function Jn(r,e,t){let n=Math.floor(t/4294967296),s=t;r.setUint32(e,n),r.setUint32(e+4,s)}O.setInt64=Jn;function Hn(r,e){let t=r.getInt32(e),n=r.getUint32(e+4);return t*4294967296+n}O.getInt64=Hn;function zn(r,e){let t=r.getUint32(e),n=r.getUint32(e+4);return t*4294967296+n}O.getUint64=zn});var ct=P(_=>{"use strict";var er,tr,rr;Object.defineProperty(_,"__esModule",{value:!0});_.utf8DecodeTD=_.TEXT_DECODER_THRESHOLD=_.utf8DecodeJs=_.utf8EncodeTE=_.TEXT_ENCODER_THRESHOLD=_.utf8EncodeJs=_.utf8Count=void 0;var Nr=_e(),lt=(typeof process>"u"||((er=process==null?void 0:process.env)===null||er===void 0?void 0:er.TEXT_ENCODING)!=="never")&&typeof TextEncoder<"u"&&typeof TextDecoder<"u";function Xn(r){let e=r.length,t=0,n=0;for(;n<e;){let s=r.charCodeAt(n++);if(s&4294967168)if(!(s&4294965248))t+=2;else{if(s>=55296&&s<=56319&&n<e){let o=r.charCodeAt(n);(o&64512)===56320&&(++n,s=((s&1023)<<10)+(o&1023)+65536)}s&4294901760?t+=4:t+=3}else{t++;continue}}return t}_.utf8Count=Xn;function Gn(r,e,t){let n=r.length,s=t,o=0;for(;o<n;){let a=r.charCodeAt(o++);if(a&4294967168)if(!(a&4294965248))e[s++]=a>>6&31|192;else{if(a>=55296&&a<=56319&&o<n){let c=r.charCodeAt(o);(c&64512)===56320&&(++o,a=((a&1023)<<10)+(c&1023)+65536)}a&4294901760?(e[s++]=a>>18&7|240,e[s++]=a>>12&63|128,e[s++]=a>>6&63|128):(e[s++]=a>>12&15|224,e[s++]=a>>6&63|128)}else{e[s++]=a;continue}e[s++]=a&63|128}}_.utf8EncodeJs=Gn;var Se=lt?new TextEncoder:void 0;_.TEXT_ENCODER_THRESHOLD=lt?typeof process<"u"&&((tr=process==null?void 0:process.env)===null||tr===void 0?void 0:tr.TEXT_ENCODING)!=="force"?200:0:Nr.UINT32_MAX;function $n(r,e,t){e.set(Se.encode(r),t)}function Kn(r,e,t){Se.encodeInto(r,e.subarray(t))}_.utf8EncodeTE=Se!=null&&Se.encodeInto?Kn:$n;var Qn=4096;function Zn(r,e,t){let n=e,s=n+t,o=[],a="";for(;n<s;){let c=r[n++];if(!(c&128))o.push(c);else if((c&224)===192){let p=r[n++]&63;o.push((c&31)<<6|p)}else if((c&240)===224){let p=r[n++]&63,w=r[n++]&63;o.push((c&31)<<12|p<<6|w)}else if((c&248)===240){let p=r[n++]&63,w=r[n++]&63,Q=r[n++]&63,H=(c&7)<<18|p<<12|w<<6|Q;H>65535&&(H-=65536,o.push(H>>>10&1023|55296),H=56320|H&1023),o.push(H)}else o.push(c);o.length>=Qn&&(a+=String.fromCharCode(...o),o.length=0)}return o.length>0&&(a+=String.fromCharCode(...o)),a}_.utf8DecodeJs=Zn;var Yn=lt?new TextDecoder:null;_.TEXT_DECODER_THRESHOLD=lt?typeof process<"u"&&((rr=process==null?void 0:process.env)===null||rr===void 0?void 0:rr.TEXT_DECODER)!=="force"?200:0:Nr.UINT32_MAX;function es(r,e,t){let n=r.subarray(e,e+t);return Yn.decode(n)}_.utf8DecodeTD=es});var sr=P(ut=>{"use strict";Object.defineProperty(ut,"__esModule",{value:!0});ut.ExtData=void 0;var nr=class{constructor(e,t){this.type=e,this.data=t}};ut.ExtData=nr});var dt=P(pt=>{"use strict";Object.defineProperty(pt,"__esModule",{value:!0});pt.DecodeError=void 0;var ce=class extends Error{constructor(e){super(e);let t=Object.create(ce.prototype);Object.setPrototypeOf(this,t),Object.defineProperty(this,"name",{configurable:!0,enumerable:!1,value:ce.name})}};pt.DecodeError=ce});var or=P(T=>{"use strict";Object.defineProperty(T,"__esModule",{value:!0});T.timestampExtension=T.decodeTimestampExtension=T.decodeTimestampToTimeSpec=T.encodeTimestampExtension=T.encodeDateToTimeSpec=T.encodeTimeSpecToTimestamp=T.EXT_TIMESTAMP=void 0;var ts=dt(),Br=_e();T.EXT_TIMESTAMP=-1;var rs=4294967296-1,ns=17179869184-1;function Lr({sec:r,nsec:e}){if(r>=0&&e>=0&&r<=ns)if(e===0&&r<=rs){let t=new Uint8Array(4);return new DataView(t.buffer).setUint32(0,r),t}else{let t=r/4294967296,n=r&4294967295,s=new Uint8Array(8),o=new DataView(s.buffer);return o.setUint32(0,e<<2|t&3),o.setUint32(4,n),s}else{let t=new Uint8Array(12),n=new DataView(t.buffer);return n.setUint32(0,e),(0,Br.setInt64)(n,4,r),t}}T.encodeTimeSpecToTimestamp=Lr;function Fr(r){let e=r.getTime(),t=Math.floor(e/1e3),n=(e-t*1e3)*1e6,s=Math.floor(n/1e9);return{sec:t+s,nsec:n-s*1e9}}T.encodeDateToTimeSpec=Fr;function qr(r){if(r instanceof Date){let e=Fr(r);return Lr(e)}else return null}T.encodeTimestampExtension=qr;function Vr(r){let e=new DataView(r.buffer,r.byteOffset,r.byteLength);switch(r.byteLength){case 4:return{sec:e.getUint32(0),nsec:0};case 8:{let t=e.getUint32(0),n=e.getUint32(4),s=(t&3)*4294967296+n,o=t>>>2;return{sec:s,nsec:o}}case 12:{let t=(0,Br.getInt64)(e,4),n=e.getUint32(0);return{sec:t,nsec:n}}default:throw new ts.DecodeError(`Unrecognized data size for timestamp (expected 4, 8, or 12): ${r.length}`)}}T.decodeTimestampToTimeSpec=Vr;function Jr(r){let e=Vr(r);return new Date(e.sec*1e3+e.nsec/1e6)}T.decodeTimestampExtension=Jr;T.timestampExtension={type:T.EXT_TIMESTAMP,encode:qr,decode:Jr}});var ft=P(yt=>{"use strict";Object.defineProperty(yt,"__esModule",{value:!0});yt.ExtensionCodec=void 0;var ht=sr(),ss=or(),ke=class{constructor(){this.builtInEncoders=[],this.builtInDecoders=[],this.encoders=[],this.decoders=[],this.register(ss.timestampExtension)}register({type:e,encode:t,decode:n}){if(e>=0)this.encoders[e]=t,this.decoders[e]=n;else{let s=1+e;this.builtInEncoders[s]=t,this.builtInDecoders[s]=n}}tryToEncode(e,t){for(let n=0;n<this.builtInEncoders.length;n++){let s=this.builtInEncoders[n];if(s!=null){let o=s(e,t);if(o!=null){let a=-1-n;return new ht.ExtData(a,o)}}}for(let n=0;n<this.encoders.length;n++){let s=this.encoders[n];if(s!=null){let o=s(e,t);if(o!=null){let a=n;return new ht.ExtData(a,o)}}}return e instanceof ht.ExtData?e:null}decode(e,t,n){let s=t<0?this.builtInDecoders[-1-t]:this.decoders[t];return s?s(e,t,n):new ht.ExtData(t,e)}};yt.ExtensionCodec=ke;ke.defaultCodec=new ke});var ir=P(ue=>{"use strict";Object.defineProperty(ue,"__esModule",{value:!0});ue.createDataView=ue.ensureUint8Array=void 0;function Hr(r){return r instanceof Uint8Array?r:ArrayBuffer.isView(r)?new Uint8Array(r.buffer,r.byteOffset,r.byteLength):r instanceof ArrayBuffer?new Uint8Array(r):Uint8Array.from(r)}ue.ensureUint8Array=Hr;function os(r){if(r instanceof ArrayBuffer)return new DataView(r);let e=Hr(r);return new DataView(e.buffer,e.byteOffset,e.byteLength)}ue.createDataView=os});var lr=P(U=>{"use strict";Object.defineProperty(U,"__esModule",{value:!0});U.Encoder=U.DEFAULT_INITIAL_BUFFER_SIZE=U.DEFAULT_MAX_DEPTH=void 0;var De=ct(),is=ft(),zr=_e(),as=ir();U.DEFAULT_MAX_DEPTH=100;U.DEFAULT_INITIAL_BUFFER_SIZE=2048;var ar=class{constructor(e=is.ExtensionCodec.defaultCodec,t=void 0,n=U.DEFAULT_MAX_DEPTH,s=U.DEFAULT_INITIAL_BUFFER_SIZE,o=!1,a=!1,c=!1,p=!1){this.extensionCodec=e,this.context=t,this.maxDepth=n,this.initialBufferSize=s,this.sortKeys=o,this.forceFloat32=a,this.ignoreUndefined=c,this.forceIntegerToFloat=p,this.pos=0,this.view=new DataView(new ArrayBuffer(this.initialBufferSize)),this.bytes=new Uint8Array(this.view.buffer)}reinitializeState(){this.pos=0}encodeSharedRef(e){return this.reinitializeState(),this.doEncode(e,1),this.bytes.subarray(0,this.pos)}encode(e){return this.reinitializeState(),this.doEncode(e,1),this.bytes.slice(0,this.pos)}doEncode(e,t){if(t>this.maxDepth)throw new Error(`Too deep objects in depth ${t}`);e==null?this.encodeNil():typeof e=="boolean"?this.encodeBoolean(e):typeof e=="number"?this.encodeNumber(e):typeof e=="string"?this.encodeString(e):this.encodeObject(e,t)}ensureBufferSizeToWrite(e){let t=this.pos+e;this.view.byteLength<t&&this.resizeBuffer(t*2)}resizeBuffer(e){let t=new ArrayBuffer(e),n=new Uint8Array(t),s=new DataView(t);n.set(this.bytes),this.view=s,this.bytes=n}encodeNil(){this.writeU8(192)}encodeBoolean(e){e===!1?this.writeU8(194):this.writeU8(195)}encodeNumber(e){Number.isSafeInteger(e)&&!this.forceIntegerToFloat?e>=0?e<128?this.writeU8(e):e<256?(this.writeU8(204),this.writeU8(e)):e<65536?(this.writeU8(205),this.writeU16(e)):e<4294967296?(this.writeU8(206),this.writeU32(e)):(this.writeU8(207),this.writeU64(e)):e>=-32?this.writeU8(224|e+32):e>=-128?(this.writeU8(208),this.writeI8(e)):e>=-32768?(this.writeU8(209),this.writeI16(e)):e>=-2147483648?(this.writeU8(210),this.writeI32(e)):(this.writeU8(211),this.writeI64(e)):this.forceFloat32?(this.writeU8(202),this.writeF32(e)):(this.writeU8(203),this.writeF64(e))}writeStringHeader(e){if(e<32)this.writeU8(160+e);else if(e<256)this.writeU8(217),this.writeU8(e);else if(e<65536)this.writeU8(218),this.writeU16(e);else if(e<4294967296)this.writeU8(219),this.writeU32(e);else throw new Error(`Too long string: ${e} bytes in UTF-8`)}encodeString(e){if(e.length>De.TEXT_ENCODER_THRESHOLD){let s=(0,De.utf8Count)(e);this.ensureBufferSizeToWrite(5+s),this.writeStringHeader(s),(0,De.utf8EncodeTE)(e,this.bytes,this.pos),this.pos+=s}else{let s=(0,De.utf8Count)(e);this.ensureBufferSizeToWrite(5+s),this.writeStringHeader(s),(0,De.utf8EncodeJs)(e,this.bytes,this.pos),this.pos+=s}}encodeObject(e,t){let n=this.extensionCodec.tryToEncode(e,this.context);if(n!=null)this.encodeExtension(n);else if(Array.isArray(e))this.encodeArray(e,t);else if(ArrayBuffer.isView(e))this.encodeBinary(e);else if(typeof e=="object")this.encodeMap(e,t);else throw new Error(`Unrecognized object: ${Object.prototype.toString.apply(e)}`)}encodeBinary(e){let t=e.byteLength;if(t<256)this.writeU8(196),this.writeU8(t);else if(t<65536)this.writeU8(197),this.writeU16(t);else if(t<4294967296)this.writeU8(198),this.writeU32(t);else throw new Error(`Too large binary: ${t}`);let n=(0,as.ensureUint8Array)(e);this.writeU8a(n)}encodeArray(e,t){let n=e.length;if(n<16)this.writeU8(144+n);else if(n<65536)this.writeU8(220),this.writeU16(n);else if(n<4294967296)this.writeU8(221),this.writeU32(n);else throw new Error(`Too large array: ${n}`);for(let s of e)this.doEncode(s,t+1)}countWithoutUndefined(e,t){let n=0;for(let s of t)e[s]!==void 0&&n++;return n}encodeMap(e,t){let n=Object.keys(e);this.sortKeys&&n.sort();let s=this.ignoreUndefined?this.countWithoutUndefined(e,n):n.length;if(s<16)this.writeU8(128+s);else if(s<65536)this.writeU8(222),this.writeU16(s);else if(s<4294967296)this.writeU8(223),this.writeU32(s);else throw new Error(`Too large map object: ${s}`);for(let o of n){let a=e[o];this.ignoreUndefined&&a===void 0||(this.encodeString(o),this.doEncode(a,t+1))}}encodeExtension(e){let t=e.data.length;if(t===1)this.writeU8(212);else if(t===2)this.writeU8(213);else if(t===4)this.writeU8(214);else if(t===8)this.writeU8(215);else if(t===16)this.writeU8(216);else if(t<256)this.writeU8(199),this.writeU8(t);else if(t<65536)this.writeU8(200),this.writeU16(t);else if(t<4294967296)this.writeU8(201),this.writeU32(t);else throw new Error(`Too large extension object: ${t}`);this.writeI8(e.type),this.writeU8a(e.data)}writeU8(e){this.ensureBufferSizeToWrite(1),this.view.setUint8(this.pos,e),this.pos++}writeU8a(e){let t=e.length;this.ensureBufferSizeToWrite(t),this.bytes.set(e,this.pos),this.pos+=t}writeI8(e){this.ensureBufferSizeToWrite(1),this.view.setInt8(this.pos,e),this.pos++}writeU16(e){this.ensureBufferSizeToWrite(2),this.view.setUint16(this.pos,e),this.pos+=2}writeI16(e){this.ensureBufferSizeToWrite(2),this.view.setInt16(this.pos,e),this.pos+=2}writeU32(e){this.ensureBufferSizeToWrite(4),this.view.setUint32(this.pos,e),this.pos+=4}writeI32(e){this.ensureBufferSizeToWrite(4),this.view.setInt32(this.pos,e),this.pos+=4}writeF32(e){this.ensureBufferSizeToWrite(4),this.view.setFloat32(this.pos,e),this.pos+=4}writeF64(e){this.ensureBufferSizeToWrite(8),this.view.setFloat64(this.pos,e),this.pos+=8}writeU64(e){this.ensureBufferSizeToWrite(8),(0,zr.setUint64)(this.view,this.pos,e),this.pos+=8}writeI64(e){this.ensureBufferSizeToWrite(8),(0,zr.setInt64)(this.view,this.pos,e),this.pos+=8}};U.Encoder=ar});var Xr=P(Rt=>{"use strict";Object.defineProperty(Rt,"__esModule",{value:!0});Rt.encode=void 0;var ls=lr(),cs={};function us(r,e=cs){return new ls.Encoder(e.extensionCodec,e.context,e.maxDepth,e.initialBufferSize,e.sortKeys,e.forceFloat32,e.ignoreUndefined,e.forceIntegerToFloat).encodeSharedRef(r)}Rt.encode=us});var Gr=P(mt=>{"use strict";Object.defineProperty(mt,"__esModule",{value:!0});mt.prettyByte=void 0;function ps(r){return`${r<0?"-":""}0x${Math.abs(r).toString(16).padStart(2,"0")}`}mt.prettyByte=ps});var $r=P(gt=>{"use strict";Object.defineProperty(gt,"__esModule",{value:!0});gt.CachedKeyDecoder=void 0;var ds=ct(),hs=16,ys=16,cr=class{constructor(e=hs,t=ys){this.maxKeyLength=e,this.maxLengthPerKey=t,this.hit=0,this.miss=0,this.caches=[];for(let n=0;n<this.maxKeyLength;n++)this.caches.push([])}canBeCached(e){return e>0&&e<=this.maxKeyLength}find(e,t,n){let s=this.caches[n-1];e:for(let o of s){let a=o.bytes;for(let c=0;c<n;c++)if(a[c]!==e[t+c])continue e;return o.str}return null}store(e,t){let n=this.caches[e.length-1],s={bytes:e,str:t};n.length>=this.maxLengthPerKey?n[Math.random()*n.length|0]=s:n.push(s)}decode(e,t,n){let s=this.find(e,t,n);if(s!=null)return this.hit++,s;this.miss++;let o=(0,ds.utf8DecodeJs)(e,t,n),a=Uint8Array.prototype.slice.call(e,t,t+n);return this.store(a,o),o}};gt.CachedKeyDecoder=cr});var bt=P(V=>{"use strict";Object.defineProperty(V,"__esModule",{value:!0});V.Decoder=V.DataViewIndexOutOfBoundsError=void 0;var ur=Gr(),fs=ft(),Y=_e(),pr=ct(),dr=ir(),Rs=$r(),q=dt(),ms=r=>{let e=typeof r;return e==="string"||e==="number"},We=-1,yr=new DataView(new ArrayBuffer(0)),gs=new Uint8Array(yr.buffer);V.DataViewIndexOutOfBoundsError=(()=>{try{yr.getInt8(0)}catch(r){return r.constructor}throw new Error("never reached")})();var Kr=new V.DataViewIndexOutOfBoundsError("Insufficient data"),bs=new Rs.CachedKeyDecoder,hr=class{constructor(e=fs.ExtensionCodec.defaultCodec,t=void 0,n=Y.UINT32_MAX,s=Y.UINT32_MAX,o=Y.UINT32_MAX,a=Y.UINT32_MAX,c=Y.UINT32_MAX,p=bs){this.extensionCodec=e,this.context=t,this.maxStrLength=n,this.maxBinLength=s,this.maxArrayLength=o,this.maxMapLength=a,this.maxExtLength=c,this.keyDecoder=p,this.totalPos=0,this.pos=0,this.view=yr,this.bytes=gs,this.headByte=We,this.stack=[]}reinitializeState(){this.totalPos=0,this.headByte=We,this.stack.length=0}setBuffer(e){this.bytes=(0,dr.ensureUint8Array)(e),this.view=(0,dr.createDataView)(this.bytes),this.pos=0}appendBuffer(e){if(this.headByte===We&&!this.hasRemaining(1))this.setBuffer(e);else{let t=this.bytes.subarray(this.pos),n=(0,dr.ensureUint8Array)(e),s=new Uint8Array(t.length+n.length);s.set(t),s.set(n,t.length),this.setBuffer(s)}}hasRemaining(e){return this.view.byteLength-this.pos>=e}createExtraByteError(e){let{view:t,pos:n}=this;return new RangeError(`Extra ${t.byteLength-n} of ${t.byteLength} byte(s) found at buffer[${e}]`)}decode(e){this.reinitializeState(),this.setBuffer(e);let t=this.doDecodeSync();if(this.hasRemaining(1))throw this.createExtraByteError(this.pos);return t}*decodeMulti(e){for(this.reinitializeState(),this.setBuffer(e);this.hasRemaining(1);)yield this.doDecodeSync()}async decodeAsync(e){let t=!1,n;for await(let c of e){if(t)throw this.createExtraByteError(this.totalPos);this.appendBuffer(c);try{n=this.doDecodeSync(),t=!0}catch(p){if(!(p instanceof V.DataViewIndexOutOfBoundsError))throw p}this.totalPos+=this.pos}if(t){if(this.hasRemaining(1))throw this.createExtraByteError(this.totalPos);return n}let{headByte:s,pos:o,totalPos:a}=this;throw new RangeError(`Insufficient data in parsing ${(0,ur.prettyByte)(s)} at ${a} (${o} in the current buffer)`)}decodeArrayStream(e){return this.decodeMultiAsync(e,!0)}decodeStream(e){return this.decodeMultiAsync(e,!1)}async*decodeMultiAsync(e,t){let n=t,s=-1;for await(let o of e){if(t&&s===0)throw this.createExtraByteError(this.totalPos);this.appendBuffer(o),n&&(s=this.readArraySize(),n=!1,this.complete());try{for(;yield this.doDecodeSync(),--s!==0;);}catch(a){if(!(a instanceof V.DataViewIndexOutOfBoundsError))throw a}this.totalPos+=this.pos}}doDecodeSync(){e:for(;;){let e=this.readHeadByte(),t;if(e>=224)t=e-256;else if(e<192)if(e<128)t=e;else if(e<144){let s=e-128;if(s!==0){this.pushMapState(s),this.complete();continue e}else t={}}else if(e<160){let s=e-144;if(s!==0){this.pushArrayState(s),this.complete();continue e}else t=[]}else{let s=e-160;t=this.decodeUtf8String(s,0)}else if(e===192)t=null;else if(e===194)t=!1;else if(e===195)t=!0;else if(e===202)t=this.readF32();else if(e===203)t=this.readF64();else if(e===204)t=this.readU8();else if(e===205)t=this.readU16();else if(e===206)t=this.readU32();else if(e===207)t=this.readU64();else if(e===208)t=this.readI8();else if(e===209)t=this.readI16();else if(e===210)t=this.readI32();else if(e===211)t=this.readI64();else if(e===217){let s=this.lookU8();t=this.decodeUtf8String(s,1)}else if(e===218){let s=this.lookU16();t=this.decodeUtf8String(s,2)}else if(e===219){let s=this.lookU32();t=this.decodeUtf8String(s,4)}else if(e===220){let s=this.readU16();if(s!==0){this.pushArrayState(s),this.complete();continue e}else t=[]}else if(e===221){let s=this.readU32();if(s!==0){this.pushArrayState(s),this.complete();continue e}else t=[]}else if(e===222){let s=this.readU16();if(s!==0){this.pushMapState(s),this.complete();continue e}else t={}}else if(e===223){let s=this.readU32();if(s!==0){this.pushMapState(s),this.complete();continue e}else t={}}else if(e===196){let s=this.lookU8();t=this.decodeBinary(s,1)}else if(e===197){let s=this.lookU16();t=this.decodeBinary(s,2)}else if(e===198){let s=this.lookU32();t=this.decodeBinary(s,4)}else if(e===212)t=this.decodeExtension(1,0);else if(e===213)t=this.decodeExtension(2,0);else if(e===214)t=this.decodeExtension(4,0);else if(e===215)t=this.decodeExtension(8,0);else if(e===216)t=this.decodeExtension(16,0);else if(e===199){let s=this.lookU8();t=this.decodeExtension(s,1)}else if(e===200){let s=this.lookU16();t=this.decodeExtension(s,2)}else if(e===201){let s=this.lookU32();t=this.decodeExtension(s,4)}else throw new q.DecodeError(`Unrecognized type byte: ${(0,ur.prettyByte)(e)}`);this.complete();let n=this.stack;for(;n.length>0;){let s=n[n.length-1];if(s.type===0)if(s.array[s.position]=t,s.position++,s.position===s.size)n.pop(),t=s.array;else continue e;else if(s.type===1){if(!ms(t))throw new q.DecodeError("The type of key must be string or number but "+typeof t);if(t==="__proto__")throw new q.DecodeError("The key __proto__ is not allowed");s.key=t,s.type=2;continue e}else if(s.map[s.key]=t,s.readCount++,s.readCount===s.size)n.pop(),t=s.map;else{s.key=null,s.type=1;continue e}}return t}}readHeadByte(){return this.headByte===We&&(this.headByte=this.readU8()),this.headByte}complete(){this.headByte=We}readArraySize(){let e=this.readHeadByte();switch(e){case 220:return this.readU16();case 221:return this.readU32();default:{if(e<160)return e-144;throw new q.DecodeError(`Unrecognized array type byte: ${(0,ur.prettyByte)(e)}`)}}}pushMapState(e){if(e>this.maxMapLength)throw new q.DecodeError(`Max length exceeded: map length (${e}) > maxMapLengthLength (${this.maxMapLength})`);this.stack.push({type:1,size:e,key:null,readCount:0,map:{}})}pushArrayState(e){if(e>this.maxArrayLength)throw new q.DecodeError(`Max length exceeded: array length (${e}) > maxArrayLength (${this.maxArrayLength})`);this.stack.push({type:0,size:e,array:new Array(e),position:0})}decodeUtf8String(e,t){var n;if(e>this.maxStrLength)throw new q.DecodeError(`Max length exceeded: UTF-8 byte length (${e}) > maxStrLength (${this.maxStrLength})`);if(this.bytes.byteLength<this.pos+t+e)throw Kr;let s=this.pos+t,o;return this.stateIsMapKey()&&(!((n=this.keyDecoder)===null||n===void 0)&&n.canBeCached(e))?o=this.keyDecoder.decode(this.bytes,s,e):e>pr.TEXT_DECODER_THRESHOLD?o=(0,pr.utf8DecodeTD)(this.bytes,s,e):o=(0,pr.utf8DecodeJs)(this.bytes,s,e),this.pos+=t+e,o}stateIsMapKey(){return this.stack.length>0?this.stack[this.stack.length-1].type===1:!1}decodeBinary(e,t){if(e>this.maxBinLength)throw new q.DecodeError(`Max length exceeded: bin length (${e}) > maxBinLength (${this.maxBinLength})`);if(!this.hasRemaining(e+t))throw Kr;let n=this.pos+t,s=this.bytes.subarray(n,n+e);return this.pos+=t+e,s}decodeExtension(e,t){if(e>this.maxExtLength)throw new q.DecodeError(`Max length exceeded: ext length (${e}) > maxExtLength (${this.maxExtLength})`);let n=this.view.getInt8(this.pos+t),s=this.decodeBinary(e,t+1);return this.extensionCodec.decode(s,n,this.context)}lookU8(){return this.view.getUint8(this.pos)}lookU16(){return this.view.getUint16(this.pos)}lookU32(){return this.view.getUint32(this.pos)}readU8(){let e=this.view.getUint8(this.pos);return this.pos++,e}readI8(){let e=this.view.getInt8(this.pos);return this.pos++,e}readU16(){let e=this.view.getUint16(this.pos);return this.pos+=2,e}readI16(){let e=this.view.getInt16(this.pos);return this.pos+=2,e}readU32(){let e=this.view.getUint32(this.pos);return this.pos+=4,e}readI32(){let e=this.view.getInt32(this.pos);return this.pos+=4,e}readU64(){let e=(0,Y.getUint64)(this.view,this.pos);return this.pos+=8,e}readI64(){let e=(0,Y.getInt64)(this.view,this.pos);return this.pos+=8,e}readF32(){let e=this.view.getFloat32(this.pos);return this.pos+=4,e}readF64(){let e=this.view.getFloat64(this.pos);return this.pos+=8,e}};V.Decoder=hr});var fr=P(C=>{"use strict";Object.defineProperty(C,"__esModule",{value:!0});C.decodeMulti=C.decode=C.defaultDecodeOptions=void 0;var Qr=bt();C.defaultDecodeOptions={};function ws(r,e=C.defaultDecodeOptions){return new Qr.Decoder(e.extensionCodec,e.context,e.maxStrLength,e.maxBinLength,e.maxArrayLength,e.maxMapLength,e.maxExtLength).decode(r)}C.decode=ws;function xs(r,e=C.defaultDecodeOptions){return new Qr.Decoder(e.extensionCodec,e.context,e.maxStrLength,e.maxBinLength,e.maxArrayLength,e.maxMapLength,e.maxExtLength).decodeMulti(r)}C.decodeMulti=xs});var en=P(z=>{"use strict";Object.defineProperty(z,"__esModule",{value:!0});z.ensureAsyncIterable=z.asyncIterableFromStream=z.isAsyncIterable=void 0;function Zr(r){return r[Symbol.asyncIterator]!=null}z.isAsyncIterable=Zr;function Es(r){if(r==null)throw new Error("Assertion Failure: value must not be null nor undefined")}async function*Yr(r){let e=r.getReader();try{for(;;){let{done:t,value:n}=await e.read();if(t)return;Es(n),yield n}}finally{e.releaseLock()}}z.asyncIterableFromStream=Yr;function vs(r){return Zr(r)?r:Yr(r)}z.ensureAsyncIterable=vs});var rn=P(j=>{"use strict";Object.defineProperty(j,"__esModule",{value:!0});j.decodeStream=j.decodeMultiStream=j.decodeArrayStream=j.decodeAsync=void 0;var Rr=bt(),mr=en(),wt=fr();async function Ts(r,e=wt.defaultDecodeOptions){let t=(0,mr.ensureAsyncIterable)(r);return new Rr.Decoder(e.extensionCodec,e.context,e.maxStrLength,e.maxBinLength,e.maxArrayLength,e.maxMapLength,e.maxExtLength).decodeAsync(t)}j.decodeAsync=Ts;function Ps(r,e=wt.defaultDecodeOptions){let t=(0,mr.ensureAsyncIterable)(r);return new Rr.Decoder(e.extensionCodec,e.context,e.maxStrLength,e.maxBinLength,e.maxArrayLength,e.maxMapLength,e.maxExtLength).decodeArrayStream(t)}j.decodeArrayStream=Ps;function tn(r,e=wt.defaultDecodeOptions){let t=(0,mr.ensureAsyncIterable)(r);return new Rr.Decoder(e.extensionCodec,e.context,e.maxStrLength,e.maxBinLength,e.maxArrayLength,e.maxMapLength,e.maxExtLength).decodeStream(t)}j.decodeMultiStream=tn;function _s(r,e=wt.defaultDecodeOptions){return tn(r,e)}j.decodeStream=_s});var Et=P(d=>{"use strict";Object.defineProperty(d,"__esModule",{value:!0});d.decodeTimestampExtension=d.encodeTimestampExtension=d.decodeTimestampToTimeSpec=d.encodeTimeSpecToTimestamp=d.encodeDateToTimeSpec=d.EXT_TIMESTAMP=d.ExtData=d.ExtensionCodec=d.Encoder=d.DataViewIndexOutOfBoundsError=d.DecodeError=d.Decoder=d.decodeStream=d.decodeMultiStream=d.decodeArrayStream=d.decodeAsync=d.decodeMulti=d.decode=d.encode=void 0;var Ss=Xr();Object.defineProperty(d,"encode",{enumerable:!0,get:function(){return Ss.encode}});var nn=fr();Object.defineProperty(d,"decode",{enumerable:!0,get:function(){return nn.decode}});Object.defineProperty(d,"decodeMulti",{enumerable:!0,get:function(){return nn.decodeMulti}});var xt=rn();Object.defineProperty(d,"decodeAsync",{enumerable:!0,get:function(){return xt.decodeAsync}});Object.defineProperty(d,"decodeArrayStream",{enumerable:!0,get:function(){return xt.decodeArrayStream}});Object.defineProperty(d,"decodeMultiStream",{enumerable:!0,get:function(){return xt.decodeMultiStream}});Object.defineProperty(d,"decodeStream",{enumerable:!0,get:function(){return xt.decodeStream}});var sn=bt();Object.defineProperty(d,"Decoder",{enumerable:!0,get:function(){return sn.Decoder}});Object.defineProperty(d,"DataViewIndexOutOfBoundsError",{enumerable:!0,get:function(){return sn.DataViewIndexOutOfBoundsError}});var ks=dt();Object.defineProperty(d,"DecodeError",{enumerable:!0,get:function(){return ks.DecodeError}});var Ds=lr();Object.defineProperty(d,"Encoder",{enumerable:!0,get:function(){return Ds.Encoder}});var Ws=ft();Object.defineProperty(d,"ExtensionCodec",{enumerable:!0,get:function(){return Ws.ExtensionCodec}});var As=sr();Object.defineProperty(d,"ExtData",{enumerable:!0,get:function(){return As.ExtData}});var pe=or();Object.defineProperty(d,"EXT_TIMESTAMP",{enumerable:!0,get:function(){return pe.EXT_TIMESTAMP}});Object.defineProperty(d,"encodeDateToTimeSpec",{enumerable:!0,get:function(){return pe.encodeDateToTimeSpec}});Object.defineProperty(d,"encodeTimeSpecToTimestamp",{enumerable:!0,get:function(){return pe.encodeTimeSpecToTimestamp}});Object.defineProperty(d,"decodeTimestampToTimeSpec",{enumerable:!0,get:function(){return pe.decodeTimestampToTimeSpec}});Object.defineProperty(d,"encodeTimestampExtension",{enumerable:!0,get:function(){return pe.encodeTimestampExtension}});Object.defineProperty(d,"decodeTimestampExtension",{enumerable:!0,get:function(){return pe.decodeTimestampExtension}})});var io={};Bn(io,{Console:()=>Ht,Shelter:()=>rt,WebR:()=>tt,WebRChannelError:()=>k,WebRError:()=>M,WebRPayloadError:()=>F,WebRWorkerError:()=>Pe,isRCall:()=>$s,isRCharacter:()=>zs,isRComplex:()=>Hs,isRDouble:()=>Js,isREnvironment:()=>Fs,isRFunction:()=>Tr,isRInteger:()=>Vs,isRList:()=>Xs,isRLogical:()=>qs,isRNull:()=>Ns,isRObject:()=>m,isRPairlist:()=>Ls,isRRaw:()=>Gs,isRSymbol:()=>Bs});module.exports=Ln(io);var M=class extends Error{constructor(e){super(e),this.name=this.constructor.name,Object.setPrototypeOf(this,new.target.prototype)}},Pe=class extends M{},k=class extends M{},F=class extends M{};var x=typeof process<"u"&&process.release&&process.release.name==="node",Yt;if(globalThis.document)Yt=r=>new Promise((e,t)=>{let n=document.createElement("script");n.src=r,n.onload=()=>e(),n.onerror=t,document.head.appendChild(n)});else if(globalThis.importScripts)Yt=async r=>{try{globalThis.importScripts(r)}catch(e){if(e instanceof TypeError)await Promise.resolve().then(()=>Z(require(r)));else throw e}};else if(x)Yt=async r=>{let e=(await Promise.resolve().then(()=>Z(require("path")))).default;await Promise.resolve().then(()=>Z(require(e.resolve(r))))};else throw new M("Cannot determine runtime environment");function ae(){let r={resolve:t=>{},reject:t=>{},promise:null},e=new Promise((t,n)=>{r.resolve=t,r.reject=n});return r.promise=e,r}function Cr(r){return new Promise(e=>setTimeout(e,r))}function I(r,e,t,...n){return r===null||typeof r!="object"?r:e(r)?t(r,...n):Array.isArray(r)||ArrayBuffer.isView(r)?r.map(s=>I(s,e,t,...n)):Object.fromEntries(Object.entries(r).map(([s,o],a)=>[s,I(o,e,t,...n)]))}function ot(r,e){let t=new XMLHttpRequest;t.open("get",r,!0),t.onload=()=>{let n=new Worker(URL.createObjectURL(new Blob([t.responseText])));e(n)},t.send()}function le(r){if(x)return!1;let e=new URL(location.href),t=new URL(r,location.origin);return!(e.host===t.host&&e.port===t.port&&e.protocol===t.protocol)}var Fn=new WeakMap;function jr(r,e){return Fn.set(r,e),r}var it=63;function at(){let r=Array.from({length:4},qn).join("-");if(r.length!==it)throw new Error("comlink internal error: UUID has the wrong length");return r}function qn(){let r=Math.floor(Math.random()*Number.MAX_SAFE_INTEGER).toString(16),e=15-r.length;return e>0&&(r=Array.from({length:e},()=>0).join("")+r),r}var an=Z(Et());var Ms=new TextEncoder;async function ln(r,e,t){try{let{taskId:n,sizeBuffer:s,dataBuffer:o,signalBuffer:a}=e,c=(0,an.encode)(t),p=c.length<=o.length;if(Atomics.store(s,0,c.length),Atomics.store(s,1,+p),!p){let[w,Q]=Os(r);o.set(Ms.encode(w)),await on(a,n),o=(await Q).dataBuffer}o.set(c),Atomics.store(s,1,1),await on(a,n)}catch(n){console.warn(n)}}function Os(r){let e=at();return[e,new Promise(t=>{x?r.once("message",n=>{!n.id||n.id!==e||t(n)}):r.addEventListener("message",function n(s){!s.data||!s.data.id||s.data.id!==e||(r.removeEventListener("message",n),t(s.data))}),r.start&&r.start()})]}async function on(r,e){let t=(e>>1)%32,n=1;for(;Atomics.compareExchange(r,t+1,0,e)!==0;)await Cr(n),n<32&&(n*=2);Atomics.or(r,0,1<<t),Atomics.notify(r,0)}var N,B,Ae,gr,de=class{constructor(){u(this,Ae);u(this,N,void 0);u(this,B,void 0);h(this,B,[]),h(this,N,[])}reset(){h(this,B,[]),h(this,N,[])}put(e){i(this,B).length||v(this,Ae,gr).call(this),i(this,B).shift()(e)}async get(){return i(this,N).length||v(this,Ae,gr).call(this),i(this,N).shift()}isEmpty(){return!i(this,N).length}isBlocked(){return!!i(this,B).length}get length(){return i(this,N).length-i(this,B).length}};N=new WeakMap,B=new WeakMap,Ae=new WeakSet,gr=function(){i(this,N).push(new Promise(e=>{i(this,B).push(e)}))};function Pt(r,e){return cn({type:"request",data:{uuid:at(),msg:r}},e)}function br(r,e,t){return cn({type:"response",data:{uuid:r,resp:e}},t)}function cn(r,e){return e&&jr(r,e),r}function un(r,e){return{type:"sync-request",data:{msg:r,reqData:e}}}function pn(r){let e=new Pe(r.obj.message);return r.obj.name!=="Error"&&(e.name=r.obj.name),e.stack=r.obj.stack,e}function Is(r){return r&&typeof r=="object"&&"payloadType"in r&&"obj"in r}function _t(r){return Is(r)&&r.payloadType==="ptr"}var he,ye=class{constructor(){this.inputQueue=new de;this.outputQueue=new de;this.systemQueue=new de;u(this,he,new Map)}async read(){return await this.outputQueue.get()}async flush(){let e=[];for(;!this.outputQueue.isEmpty();)e.push(await this.read());return e}async readSystem(){return await this.systemQueue.get()}write(e){this.inputQueue.put(e)}async request(e,t){let n=Pt(e,t),{resolve:s,reject:o,promise:a}=ae();return i(this,he).set(n.data.uuid,{resolve:s,reject:o}),this.write(n),a}putClosedMessage(){this.outputQueue.put({type:"closed"})}resolveResponse(e){let t=e.data.uuid,n=i(this,he).get(t);if(n){let s=e.data.resp;i(this,he).delete(t),s.payloadType==="err"?n.reject(pn(s)):n.resolve(s)}else console.warn("Can't find request.")}};he=new WeakMap;var hn=Z(Et());var Cs=new TextDecoder("utf-8"),fe,Re,Me,Oe,me,kt=class{constructor(e,t,n=[]){u(this,fe,!1);u(this,Re,void 0);u(this,Me,void 0);u(this,Oe,void 0);u(this,me,void 0);this.syncifier=new wr;this.endpoint=e,this.msg=t,this.transfers=n,h(this,Re,!1)}scheduleSync(){if(!i(this,fe))return h(this,fe,!0),this.syncifier.scheduleTask(this),h(this,me,this.doSync()),i(this,me).next(),this}poll(){if(!i(this,fe))throw new Error("Task not synchronously scheduled");let{done:e,value:t}=i(this,me).next();return e?(h(this,Re,!0),h(this,Me,t),!0):!1}*doSync(){let{endpoint:e,msg:t,transfers:n}=this,s=new Int32Array(new SharedArrayBuffer(8)),o=this.signalBuffer,a=this.taskId,c=dn(it),p=un(t,{sizeBuffer:s,dataBuffer:c,signalBuffer:o,taskId:a});if(e.postMessage(p,n),yield,Atomics.load(s,1)===0){let Q=Cs.decode(c.slice(0,it));js(c);let H=Atomics.load(s,0);c=dn(H),e.postMessage({id:Q,dataBuffer:c}),yield}let w=Atomics.load(s,0);return(0,hn.decode)(c.slice(0,w))}get result(){if(i(this,Oe))throw i(this,Oe);if(i(this,Re))return i(this,Me);throw new Error("Not ready.")}syncify(){return this.scheduleSync(),this.syncifier.syncifyTask(this),this.result}};fe=new WeakMap,Re=new WeakMap,Me=new WeakMap,Oe=new WeakMap,me=new WeakMap;var wr=class{constructor(){this.nextTaskId=new Int32Array([1]),this.signalBuffer=new Int32Array(new SharedArrayBuffer(32*4+4)),this.tasks=new Map}scheduleTask(e){e.taskId=this.nextTaskId[0],this.nextTaskId[0]+=2,e.signalBuffer=this.signalBuffer,this.tasks.set(e.taskId,e)}waitOnSignalBuffer(){for(;;)switch(Atomics.wait(this.signalBuffer,0,0,50)){case"ok":case"not-equal":return;case"timed-out":xr[0]!==0&&yn();break;default:throw new Error("Unreachable")}}*tasksIdsToWakeup(){let e=Atomics.load(this.signalBuffer,0);for(let t=0;t<32;t++){let n=1<<t;e&n&&(Atomics.and(this.signalBuffer,0,~n),yield Atomics.exchange(this.signalBuffer,t+1,0))}}pollTasks(e){let t=!1;for(let n of this.tasksIdsToWakeup()){let s=this.tasks.get(n);if(!s)throw new Error(`Assertion error: unknown taskId ${n}.`);s.poll()&&(this.tasks.delete(n),s===e&&(t=!0))}return t}syncifyTask(e){for(;;)if(this.waitOnSignalBuffer(),this.pollTasks(e))return}},St=[];function dn(r){let e=Math.ceil(Math.log2(r));St[e]||(St[e]=[]);let t=St[e].pop();return t?(t.fill(0),t):new Uint8Array(new SharedArrayBuffer(2**e))}function js(r){let e=Math.ceil(Math.log2(r.byteLength));St[e].push(r)}var xr=new Int32Array(new ArrayBuffer(4)),yn=()=>{throw xr[0]=0,new Error("Interrupted!")};function fn(r){yn=r}function Rn(r){xr=new Int32Array(r)}var l={};function mn(r){Object.keys(r).forEach(e=>l._free(r[e]))}x&&(globalThis.Worker=require("worker_threads").Worker);var ge,Dt,gn,Ue,Ie=class extends ye{constructor(t){super();u(this,Dt);u(this,ge,void 0);this.close=()=>{};u(this,Ue,async(t,n)=>{if(!(!n||!n.type))switch(n.type){case"resolve":h(this,ge,new Int32Array(n.data)),this.resolve();return;case"response":this.resolveResponse(n);return;case"system":this.systemQueue.put(n.data);return;default:this.outputQueue.put(n);return;case"sync-request":{let s=n,o=s.data.msg,a=s.data.reqData;switch(o.type){case"read":{let c=await this.inputQueue.get();await ln(t,a,c);break}default:throw new k(`Unsupported request type '${o.type}'.`)}return}case"request":throw new k("Can't send messages of type 'request' from a worker. Please Use 'sync-request' instead.")}});let n=s=>{v(this,Dt,gn).call(this,s),this.close=()=>{s.terminate(),this.putClosedMessage()};let o={type:"init",data:{config:t,channelType:J.SharedArrayBuffer}};s.postMessage(o)};if(le(t.baseUrl))ot(`${t.baseUrl}webr-worker.js`,s=>n(s));else{let s=new Worker(`${t.baseUrl}webr-worker.js`);n(s)}({resolve:this.resolve,promise:this.initialised}=ae())}interrupt(){if(!i(this,ge))throw new k("Failed attempt to interrupt before initialising interruptBuffer");this.inputQueue.reset(),i(this,ge)[0]=1}};ge=new WeakMap,Dt=new WeakSet,gn=function(t){x?t.on("message",n=>{i(this,Ue).call(this,t,n)}):t.onmessage=n=>i(this,Ue).call(this,t,n.data)},Ue=new WeakMap;var ee,Ce,te,je,Er=class{constructor(){u(this,ee,void 0);u(this,Ce,()=>0);u(this,te,new Int32Array(new SharedArrayBuffer(4)));u(this,je,()=>{});h(this,ee,x?require("worker_threads").parentPort:globalThis),Rn(i(this,te).buffer),fn(()=>this.handleInterrupt())}resolve(){this.write({type:"resolve",data:i(this,te).buffer})}write(e,t){i(this,ee).postMessage(e,t)}writeSystem(e,t){i(this,ee).postMessage({type:"system",data:e},t)}read(){let e={type:"read"};return new kt(i(this,ee),e).syncify()}inputOrDispatch(){for(;;){let e=this.read();if(e.type==="stdin")return l.allocateUTF8(e.data);i(this,Ce).call(this,e)}}run(e){l.callMain(e)}setInterrupt(e){h(this,je,e)}handleInterrupt(){i(this,te)[0]!==0&&(i(this,te)[0]=0,i(this,je).call(this))}setDispatchHandler(e){h(this,Ce,e)}};ee=new WeakMap,Ce=new WeakMap,te=new WeakMap,je=new WeakMap;var Ot=Z(Et());x&&(globalThis.Worker=require("worker_threads").Worker);var be,re,we,Wt,bn,At,wn,Mt,xn,Be,Ne=class extends ye{constructor(t){super();u(this,Wt);u(this,At);u(this,Mt);this.close=()=>{};u(this,be,new Map);u(this,re,void 0);u(this,we,!1);u(this,Be,async(t,n)=>{if(!(!n||!n.type))switch(n.type){case"resolve":this.resolve();return;case"response":this.resolveResponse(n);return;case"system":this.systemQueue.put(n.data);return;default:this.outputQueue.put(n);return;case"sync-request":{let s=n.data;i(this,be).set(s.data.uuid,s.data.msg);return}case"request":throw new k("Can't send messages of type 'request' from a worker.Use service worker fetch request instead.")}});let n=s=>{v(this,Mt,xn).call(this,s),this.close=()=>{s.terminate(),this.putClosedMessage()},v(this,Wt,bn).call(this,`${t.serviceWorkerUrl}webr-serviceworker.js`).then(o=>{let a={type:"init",data:{config:t,channelType:J.ServiceWorker,clientId:o,location:window.location.href}};s.postMessage(a)})};if(le(t.serviceWorkerUrl))ot(`${t.serviceWorkerUrl}webr-worker.js`,s=>n(s));else{let s=new Worker(`${t.serviceWorkerUrl}webr-worker.js`);n(s)}({resolve:this.resolve,promise:this.initialised}=ae())}activeRegistration(){var t;if(!((t=i(this,re))!=null&&t.active))throw new k("Attempted to obtain a non-existent active registration.");return i(this,re).active}interrupt(){h(this,we,!0)}};be=new WeakMap,re=new WeakMap,we=new WeakMap,Wt=new WeakSet,bn=async function(t){h(this,re,await navigator.serviceWorker.register(t)),await navigator.serviceWorker.ready,window.addEventListener("beforeunload",()=>{var s;(s=i(this,re))==null||s.unregister()});let n=await new Promise(s=>{navigator.serviceWorker.addEventListener("message",function o(a){a.data.type==="registration-successful"&&(navigator.serviceWorker.removeEventListener("message",o),s(a.data.clientId))}),this.activeRegistration().postMessage({type:"register-client-main"})});return navigator.serviceWorker.addEventListener("message",s=>{v(this,At,wn).call(this,s)}),n},At=new WeakSet,wn=async function(t){if(t.data.type==="request"){let n=t.data.data,s=i(this,be).get(n);if(!s)throw new k("Request not found during service worker XHR request");switch(i(this,be).delete(n),s.type){case"read":{let o=await this.inputQueue.get();this.activeRegistration().postMessage({type:"wasm-webr-fetch-response",uuid:n,response:br(n,o)});break}case"interrupt":{let o=i(this,we);this.activeRegistration().postMessage({type:"wasm-webr-fetch-response",uuid:n,response:br(n,o)}),this.inputQueue.reset(),h(this,we,!1);break}default:throw new k(`Unsupported request type '${s.type}'.`)}return}},Mt=new WeakSet,xn=function(t){x?t.on("message",n=>{i(this,Be).call(this,t,n)}):t.onmessage=n=>i(this,Be).call(this,t,n.data)},Be=new WeakMap;var xe,Le,Fe,qe,Ve,Je,vr=class{constructor(e){u(this,xe,void 0);u(this,Le,void 0);u(this,Fe,void 0);u(this,qe,Date.now());u(this,Ve,()=>0);u(this,Je,()=>{});this.onMessageFromMainThread=()=>{};if(!e.clientId||!e.location)throw new k("Can't start service worker channel");h(this,Le,e.clientId),h(this,Fe,e.location),h(this,xe,x?require("worker_threads").parentPort:globalThis)}resolve(){this.write({type:"resolve"})}write(e,t){i(this,xe).postMessage(e,t)}writeSystem(e,t){i(this,xe).postMessage({type:"system",data:e},t)}syncRequest(e){let t=Pt(e);this.write({type:"sync-request",data:t});let n=0;for(;;)try{let s=new URL("__wasm__/webr-fetch-request/",i(this,Fe)),o=new XMLHttpRequest;o.timeout=6e4,o.responseType="arraybuffer",o.open("POST",s,!1);let a={clientId:i(this,Le),uuid:t.data.uuid};return o.send((0,Ot.encode)(a)),(0,Ot.decode)(o.response)}catch(s){if(s instanceof DOMException&&n++<1e3)console.log("Service worker request failed - resending request");else throw s}}read(){return this.syncRequest({type:"read"}).data.resp}inputOrDispatch(){for(;;){let e=this.read();if(e.type==="stdin")return l.allocateUTF8(e.data);i(this,Ve).call(this,e)}}run(e){l.callMain(e)}setInterrupt(e){h(this,Je,e)}handleInterrupt(){Date.now()>i(this,qe)+1e3&&(h(this,qe,Date.now()),this.syncRequest({type:"interrupt"}).data.resp&&i(this,Je).call(this))}setDispatchHandler(e){h(this,Ve,e)}};xe=new WeakMap,Le=new WeakMap,Fe=new WeakMap,qe=new WeakMap,Ve=new WeakMap,Je=new WeakMap;var J={Automatic:0,SharedArrayBuffer:1,ServiceWorker:2};function En(r){switch(r.channelType){case J.SharedArrayBuffer:return new Ie(r);case J.ServiceWorker:return new Ne(r);case J.Automatic:default:if(typeof SharedArrayBuffer<"u")return new Ie(r);if("serviceWorker"in navigator&&!le(r.serviceWorkerUrl))return new Ne(r);throw new k("Can't initialise main thread communication channel")}}var vn=x?__dirname+"/":"./",Tn="https://repo.r-wasm.org";function m(r){return r&&(typeof r=="object"||typeof r=="function")&&"payloadType"in r&&_t(r._payload)}function Ns(r){return m(r)&&r._payload.obj.type==="null"}function Bs(r){return m(r)&&r._payload.obj.type==="symbol"}function Ls(r){return m(r)&&r._payload.obj.type==="pairlist"}function Fs(r){return m(r)&&r._payload.obj.type==="environment"}function qs(r){return m(r)&&r._payload.obj.type==="logical"}function Vs(r){return m(r)&&r._payload.obj.type==="integer"}function Js(r){return m(r)&&r._payload.obj.type==="double"}function Hs(r){return m(r)&&r._payload.obj.type==="complex"}function zs(r){return m(r)&&r._payload.obj.type==="character"}function Xs(r){return m(r)&&r._payload.obj.type==="list"}function Gs(r){return m(r)&&r._payload.obj.type==="raw"}function $s(r){return m(r)&&r._payload.obj.type==="call"}function Tr(r){var e;return!!(m(r)&&((e=r._payload.obj.methods)!=null&&e.includes("exec")))}var f={null:0,symbol:1,pairlist:2,closure:3,environment:4,promise:5,call:6,special:7,builtin:8,string:9,logical:10,integer:13,double:14,complex:15,character:16,dots:17,any:18,list:19,expression:20,bytecode:21,pointer:22,weakref:23,raw:24,s4:25,new:30,free:31,function:99};function Pr(r){return r&&typeof r=="object"&&Object.keys(f).includes(r.type)}function _r(r){return r&&typeof r=="object"&&"re"in r&&"im"in r}function It(r){return l._Rf_protect(L(r)),r}function S(r,e){return l._Rf_protect(L(r)),++e.n,r}function Pn(r){let e=l._malloc(4);return l._R_ProtectWithIndex(L(r),e),{loc:l.getValue(e,"i32"),ptr:e}}function _n(r){l._Rf_unprotect(1),l._free(r.ptr)}function Sn(r,e){return l._R_Reprotect(L(r),e.loc),r}function W(r){l._Rf_unprotect(r)}function Sr(r,e,t){l._Rf_defineVar(L(e),L(t),L(r))}function kn(r,e){let t={},n={n:0};try{let s=new ze(e);S(s,n),t.code=l.allocateUTF8(r);let o=l._R_ParseEvalString(t.code,s.ptr);return y.wrap(o)}finally{mn(t),W(n.n)}}function He(r,e){return l.getWasmTableEntry(l.GOT.ffi_safe_eval.value)(L(r),L(e))}function L(r){return Ys(r)?r.ptr:r}function ie(r,e){if(l._TYPEOF(r.ptr)!==f[e])throw new Error(`Unexpected object type "${r.type()}" when expecting type "${e}"`)}function Qs(r){if(Pr(r))return new(Dn(f[r.type]))(r);if(r&&typeof r=="object"&&"type"in r&&r.type==="null")return new Nt;if(r===null)return new se({type:"logical",names:null,values:[null]});if(typeof r=="boolean")return new se(r);if(typeof r=="number")return new Xe(r);if(typeof r=="string")return new X(r);if(_r(r))return new Ge(r);if(Array.isArray(r))return Zs(r);throw new Error("Robj construction for this JS object is not yet supported")}function Zs(r){let e={n:0};try{let t=new oe([new G("c"),...r]);return S(t,e),t.eval()}finally{W(e.n)}}var E=class{constructor(e){this.ptr=e}type(){let e=l._TYPEOF(this.ptr);return Object.keys(f).find(n=>f[n]===e)}},ve,Ut,ne=class extends E{constructor(t){if(!(t instanceof E))return Qs(t);super(t.ptr);u(this,ve)}static wrap(t){let n=l._TYPEOF(t);return new(Dn(n))(new E(t))}get[Symbol.toStringTag](){return`RObject:${this.type()}`}static getPersistentObject(t){return D[t]}getPropertyValue(t){return this[t]}inspect(){kn(".Internal(inspect(x))",{x:this})}isNull(){return l._TYPEOF(this.ptr)===f.null}isUnbound(){return this.ptr===D.unboundValue.ptr}attrs(){return Te.wrap(l._ATTRIB(this.ptr))}setNames(t){let n;if(t===null)n=D.null;else if(Array.isArray(t)&&t.every(s=>typeof s=="string"||s===null))n=new X(t);else throw new Error("Argument to setNames must be null or an Array of strings or null");return l._Rf_setAttrib(this.ptr,D.namesSymbol.ptr,n.ptr),this}names(){let t=X.wrap(l._Rf_getAttrib(this.ptr,D.namesSymbol.ptr));return t.isNull()?null:t.toArray()}includes(t){let n=this.names();return n&&n.includes(t)}toJs(t={depth:0},n=1){throw new Error("This R object cannot be converted to JS")}subset(t){return v(this,ve,Ut).call(this,t,D.bracketSymbol.ptr)}get(t){return v(this,ve,Ut).call(this,t,D.bracket2Symbol.ptr)}getDollar(t){return v(this,ve,Ut).call(this,t,D.dollarSymbol.ptr)}pluck(...t){let n=Pn(D.null);try{let s=(a,c)=>{let p=a.get(c);return Sn(p,n)},o=t.reduce(s,this);return o.isNull()?void 0:o}finally{_n(n)}}set(t,n){let s={n:0};try{let o=new ne(t);S(o,s);let a=new ne(n);S(a,s);let c=new G("[[<-"),p=l._Rf_lang4(c.ptr,this.ptr,o.ptr,a.ptr);return S(p,s),ne.wrap(He(p,D.baseEnv))}finally{W(s.n)}}static getMethods(t){let n=new Set,s=t;do Object.getOwnPropertyNames(s).map(o=>n.add(o));while(s=Object.getPrototypeOf(s));return[...n.keys()].filter(o=>typeof t[o]=="function")}},y=ne;ve=new WeakSet,Ut=function(t,n){let s={n:0};try{let o=new ne(t);S(o,s);let a=l._Rf_lang3(n,this.ptr,o.ptr);return S(a,s),ne.wrap(He(a,D.baseEnv))}finally{W(s.n)}};var Nt=class extends y{constructor(){return super(new E(l.getValue(l._R_NilValue,"*"))),this}toJs(){return{type:"null"}}},G=class extends y{constructor(e){if(e instanceof E){ie(e,"symbol"),super(e);return}let t=l.allocateUTF8(e);try{super(new E(l._Rf_install(t)))}finally{l._free(t)}}toJs(){let e=this.toObject();return{type:"symbol",printname:e.printname,symvalue:e.symvalue,internal:e.internal}}toObject(){return{printname:this.printname().isUnbound()?null:this.printname().toString(),symvalue:this.symvalue().isUnbound()?null:this.symvalue().ptr,internal:this.internal().isNull()?null:this.internal().ptr}}toString(){return this.printname().toString()}printname(){return $e.wrap(l._PRINTNAME(this.ptr))}symvalue(){return y.wrap(l._SYMVALUE(this.ptr))}internal(){return y.wrap(l._INTERNAL(this.ptr))}},Te=class extends y{constructor(e){if(e instanceof E)return ie(e,"pairlist"),super(e),this;let t={n:0};try{let{names:n,values:s}=Ke(e),o=Te.wrap(l._Rf_allocList(s.length));S(o,t);for(let[a,c]=[0,o];!c.isNull();[a,c]=[a+1,c.cdr()])c.setcar(new y(s[a]));o.setNames(n),super(o)}finally{W(t.n)}}get length(){return this.toArray().length}toArray(e={depth:1}){return this.toJs(e).values}toObject({allowDuplicateKey:e=!0,allowEmptyKey:t=!1,depth:n=1}={}){let s=this.entries({depth:n}),o=s.map(([a,c])=>a);if(!e&&new Set(o).size!==o.length)throw new Error("Duplicate key when converting pairlist without allowDuplicateKey enabled");if(!t&&o.some(a=>!a))throw new Error("Empty or null key when converting pairlist without allowEmptyKey enabled");return Object.fromEntries(s.filter((a,c)=>s.findIndex(p=>p[0]===a[0])===c))}entries(e={depth:1}){let t=this.toJs(e);return t.values.map((n,s)=>[t.names?t.names[s]:null,n])}toJs(e={depth:0},t=1){let n=[],s=!1,o=[];for(let c=this;!c.isNull();c=c.cdr()){let p=c.tag();p.isNull()?n.push(""):(s=!0,n.push(p.toString())),e.depth&&t>=e.depth?o.push(c.car()):o.push(c.car().toJs(e,t+1))}return{type:"pairlist",names:s?n:null,values:o}}includes(e){return e in this.toObject()}setcar(e){l._SETCAR(this.ptr,e.ptr)}car(){return y.wrap(l._CAR(this.ptr))}cdr(){return y.wrap(l._CDR(this.ptr))}tag(){return y.wrap(l._TAG(this.ptr))}},oe=class extends y{constructor(e){if(e instanceof E)return ie(e,"call"),super(e),this;let t={n:0};try{let{values:n}=Ke(e),s=n.map(a=>S(new y(a),t)),o=oe.wrap(l._Rf_allocVector(f.call,n.length));S(o,t);for(let[a,c]=[0,o];!c.isNull();[a,c]=[a+1,c.cdr()])c.setcar(s[a]);super(o)}finally{W(t.n)}}setcar(e){l._SETCAR(this.ptr,e.ptr)}car(){return y.wrap(l._CAR(this.ptr))}cdr(){return y.wrap(l._CDR(this.ptr))}eval(){return y.wrap(He(this.ptr,D.baseEnv))}},kr=class extends y{constructor(e){if(e instanceof E)return ie(e,"list"),super(e),this;let t={n:0};try{let{names:n,values:s}=Ke(e),o=l._Rf_allocVector(f.list,s.length);S(o,t),s.forEach((a,c)=>{l._SET_VECTOR_ELT(o,c,new y(a).ptr)}),y.wrap(o).setNames(n),super(new E(o))}finally{W(t.n)}}get length(){return l._LENGTH(this.ptr)}toArray(e={depth:1}){return this.toJs(e).values}toObject({allowDuplicateKey:e=!0,allowEmptyKey:t=!1,depth:n=1}={}){let s=this.entries({depth:n}),o=s.map(([a,c])=>a);if(!e&&new Set(o).size!==o.length)throw new Error("Duplicate key when converting list without allowDuplicateKey enabled");if(!t&&o.some(a=>!a))throw new Error("Empty or null key when converting list without allowEmptyKey enabled");return Object.fromEntries(s.filter((a,c)=>s.findIndex(p=>p[0]===a[0])===c))}entries(e={depth:1}){let t=this.toJs(e);return t.values.map((n,s)=>[t.names?t.names[s]:null,n])}toJs(e={depth:0},t=1){return{type:"list",names:this.names(),values:[...Array(this.length).keys()].map(n=>e.depth&&t>=e.depth?this.get(n+1):this.get(n+1).toJs(e,t+1))}}},Ee=class extends y{exec(...e){let t={n:0};try{let n=new oe([this,...e]);return S(n,t),n.eval()}finally{W(t.n)}}},$e=class extends y{constructor(e){if(e instanceof E){ie(e,"string"),super(e);return}let t=l.allocateUTF8(e);try{super(new E(l._Rf_mkChar(t)))}finally{l._free(t)}}toString(){return l.UTF8ToString(l._R_CHAR(this.ptr))}toJs(){return{type:"string",value:this.toString()}}},ze=class extends y{constructor(e={}){if(e instanceof E)return ie(e,"environment"),super(e),this;let t=0;try{let{names:n,values:s}=Ke(e),o=It(l._R_NewEnv(D.globalEnv.ptr,0,0));++t,s.forEach((a,c)=>{let p=n?n[c]:null;if(!p)throw new Error("Can't create object in new environment with empty symbol name");let w=new G(p),Q=It(new y(a));try{Sr(o,w,Q)}finally{W(1)}}),super(new E(o))}finally{W(t)}}ls(e=!1,t=!0){return X.wrap(l._R_lsInternal3(this.ptr,Number(e),Number(t))).toArray()}bind(e,t){let n=new G(e),s=It(new y(t));try{Sr(this,n,s)}finally{W(1)}}names(){return this.ls(!0,!0)}frame(){return y.wrap(l._FRAME(this.ptr))}subset(e){if(typeof e=="number")throw new Error("Object of type environment is not subsettable");return this.getDollar(e)}toObject({depth:e=0}={}){let t=this.names();return Object.fromEntries([...Array(t.length).keys()].map(n=>[t[n],this.getDollar(t[n]).toJs({depth:e})]))}toJs(e={depth:0},t=1){let n=this.names(),s=[...Array(n.length).keys()].map(o=>e.depth&&t>=e.depth?this.getDollar(n[o]):this.getDollar(n[o]).toJs(e,t+1));return{type:"environment",names:n,values:s}}},$=class extends y{constructor(e,t,n){if(e instanceof E)return ie(e,t),super(e),this;let s={n:0};try{let{names:o,values:a}=Ke(e),c=l._Rf_allocVector(f[t],a.length);S(c,s),a.forEach(n(c)),y.wrap(c).setNames(o),super(new E(c))}finally{W(s.n)}}get length(){return l._LENGTH(this.ptr)}get(e){return super.get(e)}subset(e){return super.subset(e)}getDollar(e){throw new Error("$ operator is invalid for atomic vectors")}detectMissing(){let e={n:0};try{let t=l._Rf_lang2(new G("is.na").ptr,this.ptr);S(t,e);let n=se.wrap(He(t,D.baseEnv));S(n,e);let s=n.toTypedArray();return Array.from(s).map(o=>!!o)}finally{W(e.n)}}toArray(){let e=this.toTypedArray();return this.detectMissing().map((t,n)=>t?null:e[n])}toObject({allowDuplicateKey:e=!0,allowEmptyKey:t=!1}={}){let n=this.entries(),s=n.map(([o,a])=>o);if(!e&&new Set(s).size!==s.length)throw new Error("Duplicate key when converting atomic vector without allowDuplicateKey enabled");if(!t&&s.some(o=>!o))throw new Error("Empty or null key when converting atomic vector without allowEmptyKey enabled");return Object.fromEntries(n.filter((o,a)=>n.findIndex(c=>c[0]===o[0])===a))}entries(){let e=this.toArray(),t=this.names();return e.map((n,s)=>[t?t[s]:null,n])}toJs(){return{type:this.type(),names:this.names(),values:this.toArray()}}},Bt,Dr=class extends ${constructor(e){super(e,"logical",i(Dr,Bt))}getBoolean(e){return this.get(e).toArray()[0]}toBoolean(){if(this.length!==1)throw new Error("Can't convert atomic vector of length > 1 to a scalar JS value");let e=this.getBoolean(1);if(e===null)throw new Error("Can't convert missing value `NA` to a JS boolean");return e}toTypedArray(){return new Int32Array(l.HEAP32.subarray(l._LOGICAL(this.ptr)/4,l._LOGICAL(this.ptr)/4+this.length))}toArray(){let e=this.toTypedArray();return this.detectMissing().map((t,n)=>t?null:!!e[n])}},se=Dr;Bt=new WeakMap,u(se,Bt,e=>{let t=l._LOGICAL(e),n=l.getValue(l._R_NaInt,"i32");return(s,o)=>{l.setValue(t+4*o,s===null?n:!!s,"i32")}});var Lt,Wr=class extends ${constructor(e){super(e,"integer",i(Wr,Lt))}getNumber(e){return this.get(e).toArray()[0]}toNumber(){if(this.length!==1)throw new Error("Can't convert atomic vector of length > 1 to a scalar JS value");let e=this.getNumber(1);if(e===null)throw new Error("Can't convert missing value `NA` to a JS number");return e}toTypedArray(){return new Int32Array(l.HEAP32.subarray(l._INTEGER(this.ptr)/4,l._INTEGER(this.ptr)/4+this.length))}},Ct=Wr;Lt=new WeakMap,u(Ct,Lt,e=>{let t=l._INTEGER(e),n=l.getValue(l._R_NaInt,"i32");return(s,o)=>{l.setValue(t+4*o,s===null?n:Math.round(Number(s)),"i32")}});var Ft,Ar=class extends ${constructor(e){super(e,"double",i(Ar,Ft))}getNumber(e){return this.get(e).toArray()[0]}toNumber(){if(this.length!==1)throw new Error("Can't convert atomic vector of length > 1 to a scalar JS value");let e=this.getNumber(1);if(e===null)throw new Error("Can't convert missing value `NA` to a JS number");return e}toTypedArray(){return new Float64Array(l.HEAPF64.subarray(l._REAL(this.ptr)/8,l._REAL(this.ptr)/8+this.length))}},Xe=Ar;Ft=new WeakMap,u(Xe,Ft,e=>{let t=l._REAL(e),n=l.getValue(l._R_NaReal,"double");return(s,o)=>{l.setValue(t+8*o,s===null?n:s,"double")}});var qt,Mr=class extends ${constructor(e){super(e,"complex",i(Mr,qt))}getComplex(e){return this.get(e).toArray()[0]}toComplex(){if(this.length!==1)throw new Error("Can't convert atomic vector of length > 1 to a scalar JS value");let e=this.getComplex(1);if(e===null)throw new Error("Can't convert missing value `NA` to a JS object");return e}toTypedArray(){return new Float64Array(l.HEAPF64.subarray(l._COMPLEX(this.ptr)/8,l._COMPLEX(this.ptr)/8+2*this.length))}toArray(){let e=this.toTypedArray();return this.detectMissing().map((t,n)=>t?null:{re:e[2*n],im:e[2*n+1]})}},Ge=Mr;qt=new WeakMap,u(Ge,qt,e=>{let t=l._COMPLEX(e),n=l.getValue(l._R_NaReal,"double");return(s,o)=>{l.setValue(t+8*(2*o),s===null?n:s.re,"double"),l.setValue(t+8*(2*o+1),s===null?n:s.im,"double")}});var Vt,Or=class extends ${constructor(e){super(e,"character",i(Or,Vt))}getString(e){return this.get(e).toArray()[0]}toString(){if(this.length!==1)throw new Error("Can't convert atomic vector of length > 1 to a scalar JS value");let e=this.getString(1);if(e===null)throw new Error("Can't convert missing value `NA` to a JS string");return e}toTypedArray(){return new Uint32Array(l.HEAPU32.subarray(l._STRING_PTR(this.ptr)/4,l._STRING_PTR(this.ptr)/4+this.length))}toArray(){return this.detectMissing().map((e,t)=>e?null:l.UTF8ToString(l._R_CHAR(l._STRING_ELT(this.ptr,t))))}},X=Or;Vt=new WeakMap,u(X,Vt,e=>(t,n)=>{t===null?l._SET_STRING_ELT(e,n,D.naString.ptr):l._SET_STRING_ELT(e,n,new $e(t).ptr)});var Jt,Ir=class extends ${constructor(e){super(e,"raw",i(Ir,Jt))}getNumber(e){return this.get(e).toArray()[0]}toNumber(){if(this.length!==1)throw new Error("Can't convert atomic vector of length > 1 to a scalar JS value");let e=this.getNumber(1);if(e===null)throw new Error("Can't convert missing value `NA` to a JS number");return e}toTypedArray(){return new Uint8Array(l.HEAPU8.subarray(l._RAW(this.ptr),l._RAW(this.ptr)+this.length))}},jt=Ir;Jt=new WeakMap,u(jt,Jt,e=>{let t=l._RAW(e);return(n,s)=>{l.setValue(t+s,Number(n),"i8")}});function Ke(r){return Pr(r)?r:Array.isArray(r)||ArrayBuffer.isView(r)?{names:null,values:r}:r&&typeof r=="object"&&!_r(r)?{names:Object.keys(r),values:Object.values(r)}:{names:null,values:[r]}}function Dn(r){let e={[f.null]:Nt,[f.symbol]:G,[f.pairlist]:Te,[f.closure]:Ee,[f.environment]:ze,[f.call]:oe,[f.special]:Ee,[f.builtin]:Ee,[f.string]:$e,[f.logical]:se,[f.integer]:Ct,[f.double]:Xe,[f.complex]:Ge,[f.character]:X,[f.list]:kr,[f.raw]:jt,[f.function]:Ee};return r in e?e[r]:y}function Ys(r){return r instanceof y}var D;function to(){}function ro(r,e){return async function*(){let t={type:"callRObjectMethod",data:{payload:e._payload,prop:"getPropertyValue",args:[{payloadType:"raw",obj:"length"}],shelter:void 0}},n=await r.request(t);if(typeof n.obj!="number")throw new M("Cannot iterate over object, unexpected type for length property.");for(let s=1;s<=n.obj;s++)yield e.get(s)}}function Wn(r,e,t){return async(...n)=>{let s=n.map(c=>m(c)?c._payload:{obj:I(c,m,p=>p._payload),payloadType:"raw"}),o={type:"callRObjectMethod",data:{payload:t,prop:e,args:s}},a=await r.request(o);switch(a.payloadType){case"ptr":return K(r,a);case"raw":return I(a,_t,(p,w)=>K(w,p),r).obj}}}async function no(r,e,t,n){let s={type:"newRObject",data:{objType:e,obj:I(n,m,a=>a._payload),shelter:t}},o=await r.request(s);switch(o.payloadType){case"raw":throw new F("Unexpected raw payload type returned from newRObject");case"ptr":return K(r,o)}}function K(r,e){var n;let t=new Proxy((n=e.obj.methods)!=null&&n.includes("exec")?Object.assign(to,{...e}):e,{get:(s,o)=>{var a;if(o==="_payload")return e;if(o===Symbol.asyncIterator)return ro(r,t);if((a=e.obj.methods)!=null&&a.includes(o.toString()))return Wn(r,o.toString(),e)},apply:async(s,o,a)=>{let c=await K(r,e).exec(...a);return Tr(c)?c:c.toJs()}});return t}function A(r,e,t){return new Proxy(y,{construct:(n,s)=>no(r,t,e,...s),get:(n,s)=>Wn(r,s.toString())})}var Qe,Ze,Ye,et,zt,Xt,Gt,$t,Kt,An,Ht=class{constructor(e={},t={REnv:{R_HOME:"/usr/lib/R",FONTCONFIG_PATH:"/etc/fonts",R_ENABLE_JIT:"0"}}){u(this,Kt);u(this,Qe,void 0);u(this,Ze,void 0);u(this,Ye,void 0);u(this,et,void 0);u(this,zt,e=>{console.log(e)});u(this,Xt,e=>{console.error(e)});u(this,Gt,e=>{let t=prompt(e);t&&this.stdin(`${t}
+`)});u(this,$t,e=>{if(x)throw new Error("Plotting with HTML canvas is not yet supported under Node");this.canvas.getContext("2d").drawImage(e,0,0)});this.webR=new tt(t),x||(this.canvas=document.createElement("canvas"),this.canvas.setAttribute("width","1008"),this.canvas.setAttribute("height","1008")),h(this,Qe,e.stdout||i(this,zt)),h(this,Ze,e.stderr||i(this,Xt)),h(this,Ye,e.prompt||i(this,Gt)),h(this,et,e.canvasImage||i(this,$t)),this.webR.evalRVoid("options(device=webr::canvas)")}stdin(e){this.webR.writeConsole(e)}interrupt(){this.webR.interrupt()}run(){v(this,Kt,An).call(this)}};Qe=new WeakMap,Ze=new WeakMap,Ye=new WeakMap,et=new WeakMap,zt=new WeakMap,Xt=new WeakMap,Gt=new WeakMap,$t=new WeakMap,Kt=new WeakSet,An=async function(){for(;;){let e=await this.webR.read();switch(e.type){case"stdout":i(this,Qe).call(this,e.data);break;case"stderr":i(this,Ze).call(this,e.data);break;case"prompt":i(this,Ye).call(this,e.data);break;case"canvasImage":i(this,et).call(this,e.data.image);break;case"closed":return;default:console.warn(`Unhandled output type for webR Console: ${e.type}.`)}}};var so={FONTCONFIG_PATH:"/etc/fonts",R_HOME:"/usr/lib/R",R_ENABLE_JIT:"0"},Mn={RArgs:[],REnv:so,baseUrl:vn,serviceWorkerUrl:"",repoUrl:Tn,homedir:"/home/web_user",interactive:!0,channelType:J.Automatic,createLazyFilesystem:!0},b,Qt,On,tt=class{constructor(e={}){u(this,Qt);u(this,b,void 0);this.FS={lookupPath:async e=>{let t={type:"lookupPath",data:{path:e}};return(await i(this,b).request(t)).obj},mkdir:async e=>{let t={type:"mkdir",data:{path:e}};return(await i(this,b).request(t)).obj},readFile:async(e,t)=>{let n={type:"readFile",data:{path:e,flags:t}};return(await i(this,b).request(n)).obj},rmdir:async e=>{let t={type:"rmdir",data:{path:e}};await i(this,b).request(t)},writeFile:async(e,t,n)=>{let s={type:"writeFile",data:{path:e,data:t,flags:n}};await i(this,b).request(s)},unlink:async e=>{let t={type:"unlink",data:{path:e}};await i(this,b).request(t)}};let t={...Mn,...e,REnv:{...Mn.REnv,...e.REnv}};h(this,b,En(t)),this.objs={},this.Shelter=oo(i(this,b))}async init(){let e=await i(this,b).initialised;return 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")},v(this,Qt,On).call(this),e}close(){i(this,b).close()}async read(){return await i(this,b).read()}async flush(){return await i(this,b).flush()}write(e){i(this,b).write(e)}writeConsole(e){this.write({type:"stdin",data:e+`
+`})}interrupt(){i(this,b).interrupt()}async installPackages(e,t=!1){for(let n of e){let s={type:"installPackage",data:{name:n,quiet:t}};await i(this,b).request(s)}}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,n={}){let s=I(n,m,c=>c._payload),o={type:"evalRRaw",data:{code:e,options:s,outputType:t}},a=await i(this,b).request(o);switch(a.payloadType){case"raw":return a.obj;case"ptr":throw new F("Unexpected ptr payload type returned from evalRVoid")}}async invokeWasmFunction(e,...t){let n={type:"invokeWasmFunction",data:{ptr:e,args:t}};return(await i(this,b).request(n)).obj}};b=new WeakMap,Qt=new WeakSet,On=async function(){for(;;){let e=await i(this,b).readSystem();switch(e.type){case"setTimeoutWasm":setTimeout((t,n)=>{this.invokeWasmFunction(t,...n)},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 M("Unknown system message type `"+e.type+"`")}}};var g,R,nt,rt=class{constructor(e){u(this,g,"");u(this,R,void 0);u(this,nt,!1);h(this,R,e)}async init(){if(i(this,nt))return;let e={type:"newShelter"},t=await i(this,R).request(e);h(this,g,t.obj),this.RObject=A(i(this,R),i(this,g),"object"),this.RLogical=A(i(this,R),i(this,g),"logical"),this.RInteger=A(i(this,R),i(this,g),"integer"),this.RDouble=A(i(this,R),i(this,g),"double"),this.RComplex=A(i(this,R),i(this,g),"complex"),this.RCharacter=A(i(this,R),i(this,g),"character"),this.RRaw=A(i(this,R),i(this,g),"raw"),this.RList=A(i(this,R),i(this,g),"list"),this.RPairlist=A(i(this,R),i(this,g),"pairlist"),this.REnvironment=A(i(this,R),i(this,g),"environment"),this.RSymbol=A(i(this,R),i(this,g),"symbol"),this.RString=A(i(this,R),i(this,g),"string"),this.RCall=A(i(this,R),i(this,g),"call"),h(this,nt,!0)}async purge(){let e={type:"shelterPurge",data:i(this,g)};await i(this,R).request(e)}async destroy(e){let t={type:"shelterDestroy",data:{id:i(this,g),obj:e._payload}};await i(this,R).request(t)}async size(){let e={type:"shelterSize",data:i(this,g)};return(await i(this,R).request(e)).obj}async evalR(e,t={}){let n=I(t,m,a=>a._payload),s={type:"evalR",data:{code:e,options:n,shelter:i(this,g)}},o=await i(this,R).request(s);switch(o.payloadType){case"raw":throw new F("Unexpected payload type returned from evalR");default:return K(i(this,R),o)}}async captureR(e,t={}){let n=I(t,m,a=>a._payload),s={type:"captureR",data:{code:e,options:n,shelter:i(this,g)}},o=await i(this,R).request(s);switch(o.payloadType){case"ptr":throw new F("Unexpected payload type returned from evalR");case"raw":{let a=o.obj,c=K(i(this,R),a.result),p=a.output;for(let w=0;w<p.length;++w)p[w].type!=="stdout"&&p[w].type!=="stderr"&&(p[w].data=K(i(this,R),p[w].data));return{result:c,output:p}}}}};g=new WeakMap,R=new WeakMap,nt=new WeakMap;function oo(r){return new Proxy(rt,{construct:async()=>{let e=new rt(r);return await e.init(),e}})}0&&(module.exports={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