From 15cefc1c6aeccad216aecee405d99ab6d5a2809f Mon Sep 17 00:00:00 2001 From: parkyed <84448128+parkyed@users.noreply.github.com> Date: Fri, 15 Dec 2023 14:36:25 +0000 Subject: [PATCH] Funding acknowledgement --- .DS_Store | Bin 8196 -> 8196 bytes episodes/fig/ELIXIR-UK_logo.png | Bin 0 -> 12551 bytes learners/setup.md | 4 + renv/activate 2.R | 1184 +++++++++++++++++ renv/profile 2 | 1 + renv/profiles/lesson-requirements/renv 2.lock | 657 +++++++++ .../lesson-requirements/renv/.gitignore 2 | 7 + .../lesson-requirements/renv/settings 2.dcf | 10 + .../lesson-requirements/renv/settings 2.json | 17 + 9 files changed, 1880 insertions(+) create mode 100644 episodes/fig/ELIXIR-UK_logo.png create mode 100644 renv/activate 2.R create mode 100644 renv/profile 2 create mode 100644 renv/profiles/lesson-requirements/renv 2.lock create mode 100644 renv/profiles/lesson-requirements/renv/.gitignore 2 create mode 100644 renv/profiles/lesson-requirements/renv/settings 2.dcf create mode 100644 renv/profiles/lesson-requirements/renv/settings 2.json diff --git a/.DS_Store b/.DS_Store index 88bc8f3042909c046e2c7c03c8f93536edd772cd..5b61902a60b8e147e21f436ac1fe3d0876289618 100644 GIT binary patch delta 349 zcmZp1XmQw}A`ma6%525Jz`(+w$B@pD$xxD;@8Xh_lb-|>;}GNfetUECQAbqy6uj~U z8HT~h`MCu^Jq$ty36q-zlo*93FB4E?{`x3s@&^Ht$@c{Kp=@tvv7+|Lc7hsg46?oT zM;(DonaLf3ysVS@YQQ`x0c7JCko9DK`0^ATM)&UCm@Zpg$nA z*km7}$BZ{78we}2PJEaIG{-<#Y;vA3FEfxgxlZ^->>e?&hl&_d8S)s)kUhNr-jAhg fVIGFdBRtH&(D3U?H8en=@+dB36xh63B#;{bFRx~S delta 313 zcmZp1XmQw}A`magU%ZKdfq{iVk0G5Qlc6Lx-^C>l`qIJ z3{K9^Edc6a5ELz#+$^BPC_H(Yfa2u!LL8I73h+<92gG;5Y&T}nEz2j{32Lx4FhtuP zbp$eHCU*$(vbO2jfO%2^$i^|qUSOCkAS5#Rh9Do4!$TlbZ1O)rUgq5v=9Bq^RH3xk zWFMi&jJGBm2rIKT9y9=&V<0RxIZv3E8OWPlCwzl%ayQsRMGUD7c?@Nf7YK=SvM|7S U=Y+&1;5-!D86IrjEE32K00qfZDF6Tf diff --git a/episodes/fig/ELIXIR-UK_logo.png b/episodes/fig/ELIXIR-UK_logo.png new file mode 100644 index 0000000000000000000000000000000000000000..0643fadf586af0164972124afe2279cf749fa1da GIT binary patch literal 12551 zcmeHtXEdDO*Y+quqDK&6h(t*AsKF>fB7SO$Xkmnm6215KOGNZUAHonK5xp~N2*M0A z+Ke_tL@yHtW3+ki{GVsNpWpSa=i~FiverHKIrlmH>}&69UuVae8tbuMxN-pm07!v!~qcKDo9`V?vtPoTZAG1nZBOJ z9W~-WGIJ~4dv1%;t{O=N?|Mb5`Q`^sgy5L{8a);p^2$=ZeJ-bD1korDf}H zFq#Y!^8(-Q=3E7VbfdHwL04(%RY4%m zt5_P)TTnC`NQ<7y4+OfVRX_*gprHkWqL?`T_tpQk!2iDm4k>>pX!f|HJ zx$w_b8DHh>DpA(-1SYIDW7HMJ%gd>IBkAmI+68o4M!@?OIm{%mHu%%35Adto=OW$F zPN}C97g?y3RXICY4|uC!%Wv-~g}ym~r;PC63fpp7l@u$@dM%5|ohd)Vr4O9nxE~8(h(lDx`xGx$DFnU?yqf)(as8MJ zpOOp!uPcqOQv()wyseu07)ocH0-!Q7>vIRlE>?>%>Wn}Ch}J8FUNyu)4a^#>%Xm`} zvVZR99+ThRz(1o@bjTDa;)iiK%^h`GaQLp<*-5w>7*>xPp^wzxginXA4QN)nv?WixA!<#(I7(iiw!DYg~IS3%w!s zg%_-wrFP_YZOw(ak+S@X+X?vGP`b&*$&PvZ?cn;cH?q%+Ba{%9IY$P&0NFYsbOuSXMKif`xrQ*=I`6udn6kO_%~(`S@I8 zJW{6ZWB{`M<^kMtld5F8C-jQ4j!V}ZLxuNuK0xxJ%{NjvTAoDccs)F^WmOuCrMGy% zP{pzOHs0m#R^*>un#(PzktC#Bx=H1X%<< zOE&wcUb`EZbN#(s#RApp%erOoJDF$3)5dzrgVto>v?ZlMp|ad_>Cy6CmsLO7_i-mM zqubus+bOo(RBX@2-VeqfW1UtVWuXLdge2K=+hK!$$zd<+wTc^HwRA(&m*x=sm|X`F z(z{>4#~RQS37{(CYgzf0pI=4Tuh~zOs!5+n)485>)@6xIzZfoB@QApjzVWXq!WRHk zRWHw`h|rWIIGv4FmYTiNNQ(M+phgZ(?H6`gTUzTg=jz)`J`+TG*oMs5{&~>IRV=6C znAuUwZ);|Gohzrfy=&51o`6;I;lj_JrKZ7&-ajAec3s7KOIPkA6`N-Cz^56CHZ)wn zu)OrD!~a^^xIW#jV0ZgH>T0Apz5i)pH+q_5^$x$|`;^#J&r=uN#(hlo1aZ7$L-<9$xkUoZ#62&NyYqqLnG#Zai#-QL!O*LLO6kMIR`1%t1Z!-toNbzE}+w! z_S{i9@P7Vi+iO^FoFVzBlY9Qm0l)i7ZA_I~75x#B&KT_I&3ZhOu|03$mX1m8%l*wEfpiXSxx(+goqWT!??EZr({T^StgWeQ&KfMeBxv{*Udbx5jz7^AH21 z2s--Ze@4Bkn7)1rHs}c{^W8l8*Teg#EG_um3r8h$DdE8)H;^h22_v$>hl17>$k4w* zXyvsQBa6K2QRS~0UR8m^Aa@%FOEX^q&}DknKch)sdlmzcb9v(}k1d}%SZbv+`Prqw zuLiD8`6B1Gq@F-gIqrth*O~kZx*%7~6wg8n*ZFpW){rGWlYN(}0lu^3$k;(%IV%wk zashHx&J8H_J@v}=adR}SWc4EfD{nGQ-8X{)3AQFfh?G`02j@CFJL<33c)mKklAfMfwPEt2~V6wNn z68R{?x8X9{9NIKCf(;8_b=*q0r8lTUU3~vlD4iIVsbVARwY=)1CsEnAXm}>I2hDT| zQ5di4TQpdzD`ahva$)_8xPXet)$q zWemT`^Z^u|tn?Z(2b0fVmw$7*{1Rd;kcNMPi_N9wGd;X4c96tVl`q! zdQxyJmi42bdJOswqRG`v6+VBHY5h0loB3HT$i_Rv4Xxq*{)ng?S}B~X&OL=IaP|So6cXz-1S$F4QE!0iI)T0g zh>lX!xNys)EZQ!v=;Zq<#t?~G)@O*F8AjCh39q5V>7>O`xlBrp`{$yjnYC5hQR)Cy z|Mk6abNVjc=;V@Mlecv?B@^_ddA56=dk(iA3DsSnk1P^|^f_8BxyGn}J%Gcvw3Ink zovnTa&!wThIjZ0tq?~TClfHlU?{H9AY_I#z+=Wy6(#2-d`hjlww0?}h#FR#?Je~{f zQ;A5glDAzp9{n_g{KMm@2p$u!TNo@#mg#AIxPRPi&Fb-JK7)p-*J|4tJrM*MUq~`y zqg<+GL|V?AKB5S2!i)Q1IXL8{(%vh?)I9@UCH~tEN6b_HRhkcwO0A_^N)M-k6Jdmq zt4eN&c+nWin`tpm+^iOi7}pH@=}w=X^{_R_7Ph^!As;2E|1b*T`l-c^T}l?EFdT`# zNNkmIlsui3|3frsm`q$`IY=so@^LX9C1~lTUBr-#=k9IUJsrEVJ57D2ZuRB+>jEPQ^%sj=VgMNwU4u?Z#T_?IJ&CC>j?Q;r0Vm0(jfTPe zZS)LyR3k_}WpDaF4mtRcYpvm)*Il~lm9GlcV@J|U0xdQYzlAlJ?q9c6<6VAVbAMAk z*^z76B=usqz*}a(nj-lt>iE+jO9Qt|MBao=Dg3bU-CoM3W6eBp61D^dnmfr_dXKHF zO-ruxsJ1nHec~$ta5Nk7$j)SS)h1Fuz#L?4*}lhV>1_dcZQ7lGUXdlG$Cb*QpyT8} z?&QI8mUbFM@q9%YbmHO%sedbO&dk=gkK4^aY4>I2rr%;8m#m&?-8t`VzPO{C&tEP% zrm&-e>8>cAPZ98~$x9Y>oF%|5ceb7$RP2f^rOk_brcX!6sBg4FOV-Hz7fIAH-RGUI zGK2I-$y%Q8TuP18iES_v(@5!-<4aFqMWOo2`QP#nZKHZrH*_fKJS+8U2?>Bj=8W~A zekW5zIHXZP(Poo*iX0IJ?cV?4tqLoFbj*1coj4xi;wK*)82SKtxs%WHzXU{kM2@B5cxehf#ooP;R zEvwaCLD3q=Yk5Xde%9Db7NMknkEA|Pllac6zVQQssk7(FQ8{4B{f%8}%S-lvX(rgD zYBbbyS>d$7$2qHlRA-Nl=(+1y*8oL9s08&-Qm>ltEBoHf>gCq{fMu^uY+bUFRfc?m zLvrPghoFAw_>MOvkMO%GW@$%_v1$=CPxe{$9yWX)+9V{wzp75#e%}!t=Doh*9EGa= z-q~%~Y@Jko8Ca8T)YY-8lj56m!S|Ms0dZZ|tm{hJ zuXTTkPWJqyX%`jSLE=&Bn`FYul}3$}-Uhj4*8|Q@{0@AT*fjR=(d?z(#H`l6-OZ;F zB(MybFKrmIv0G8452f`mjsh6It35KuUFgPipcr-Px3M9+wkTQFujTw7_ce>i0*3k$ zISeUmQo~AVWX>OMHvcRl#m%WUORlp?qm8!umDGY*utqJTA8WKN0^YA;f>OvE4+Cdp zx*SbFl9yXo6IkbQSq55u8dyf4dH~47=nna)XbQYlwp$sJMJ86h8Sr%P%mUKE!!yAO zFvj5Etb=+M@m^tV?NLvc1U2 z(kAy#)U&HRAeE&*$n9vzh5-aqrWgh|jW7mrUCA)MtiR!;uf(KgW&*n?Fmu%qGMM>W zfI~xgyib1nUSrzg97+nUIdN$@b-vT`$1jM+zIxemro!{&%bctG55kO9ADSafvJR(r z@67WcUA5}f<4_5F_{!swtu$h74R_etkQ^c&9n_AQW@++Epz8-l{aN$yZ125X9d&<9 zY7c$T73FdIc*wre)uNZoNBU>EeQ(Wj5K^{zGRs(iVcOFYJ2Yh(nPmJ5*ZbKjmv1mB zn(zN2f92fm+>fs-h33cQm)++DZV0Zth7j34aMP+kLs)_1`c)c*z5s5M7L-m6`z1Yd zudAh1*7Mr<#S~v{o|PR6SQt%XKp)cloz(U?%oG@{Kp<>S)4IB&o9;7XNI5LNrBm~< za_!m2pgrzrLFt`4E2UdJ4$L}qae7m!GylrzQ2aNX1XsofoRWJz_M7f^L+sv)kjiC% z(9opuQ(#9RB&t#K5}l&D0=5sU^UJb-0O>wt?9!N9w)t9m>E-nuNY&5|>D^IOolZfl zJ_Lh$*~VZUw-T(UX=*+Dd}yU);YHe4NTxTT#r+QY231c=9&;3Swq->epgl^|VowXo z$7k*M&agj0)CT6{bKs9c+w+p=2E+OA;arNHuF#nTl8E36R+Uje_KjfQicU?16r_{+ z@|EgSt^F;Jru=Y^2nK}Ws(gxX8(bE1sj+DC7%0@r7em-47QBs@A3xM$Pc{$lYPp8( z*@NLceg)g&-tT@Aga|hCF8jMhJjRb!R@GN`nLeD^r*Vpt4m6<=iXWH=`Y;i6OX*Gi z%2Y(b5rf4d^B{d9MHMLjvIcu*1Eued=nln%{GH1_T=FK}oom?B8~H0XKO*lnC|QOV zFw9Oq7-9@rz2N@z3X`vXNF5Md6{}`C7S*2oR=b;Y4i?3OUD}p;0jt;e0kDAxApvVl zp1_>*O>`ijLENGc1YjE6`><^~4mw%_)MuU9*EYS;qGX-Ft|j_~GT#5MToj{dF9kSM*Kl?} z6Iaw?YLse7i?D$+D$Fx=Mtc;>v+@k6+fY~Vex9NKT8XV_fNle(0L}{{IX1r1CQaHZ zt@cn4bkWJ|lI@h2BISinokON;b|~$9A;mO`eew4P_9%gz1vgZ$TOoi136mOsxN!`= zybJ|&gcsBpAbn(pH??9s++jd6ugxE4{GdonumLRpbWzbShPYc|6xf7E78u%PYnCGY z+p8rPhXPc;ULT+FxP9zVQg=|!e#ey_sfOg_9?uh3oY$^$ulzUIO)?Fdt-0|>=?j?+ zW&~N6`3Ew59$v8g7`kl9>vh277YN|4!t=-IzkR&v=P#2gmX=*S@d^mp`3Fdide*NF zO~;JB>cZ1=?_vsX72E^ncidVA*7q#aL4E3@h@xA4s>QHjpv$Mwz*dBv4i8T{jn(}E zwL9Np?X&!Y@4{8*h=ym+&juE5*FB}RQMWWLsTlH$0^*Q|v;WCY{s4GSO`IO(TMs|L zM}(;eqGuMXnc*KzYeB)$t^A-5Tyl4ZR;U?ImBwi7?-jJ_Lx$r#_^}MF& zVaA9Iqzp{vXZQM1t`uK63{vDxNfZv4ev&~h>oDIr)Ymuuo<2}9=mM({p`N1nS^ebi zRy43$Ue2L4ex()IQ%?BcIf;ZAX9nTkQ$D=tJ`uvGDyyCZP2YV*5toNe{#gq!5lERI z09>P017yF3SNh&Op!*jPeqfCre#eDuYs68aa_U)AUh-fES#m8v77CW2+8(si;cKDk z_g_Z-n`07wTVwiseLN5H2FY-5N}f>KVclN|PBwxJ2HKj6dM#Y$=S@8Ww26M?qI|3z zSHG*5y6uJBg1$o)FWP!+ZlJHCVATznjdS#+K4mU_&y2uACm=6bUgF$cP2V~U{>al8 zM#r1%tvI$|8x=YgNU^5!XSXm_uyWfZ^>=g%xnf8_MTq%Yh zG_yaL5vdc{>ivu=n-8F+EFt_A!Qy zz6eDyf*!~R?%R!pa$u*^W|3ZE`TphZ?6byt^7=xMjh*N6YeTTcQ2XF#*2;Q?`@MJY z^v>MT+m7A z9O?gDjNZ0`moWD>Is%?Y zWa@+=60%mW(j$;q$SkBd`-g@}mzj{pS2a{jbcpR4vq@^IVoMp7x`Z=x ze{526a(|%zo0c*rI(F}?!0b%heETyEWX!$?#(X-d&Px{jt?V$jwEX+gbIc6gstR(JGv*3%I(N@D;`zpCtqEk1k%N;K+}_lb zV3h^73T*!e=S2Zs(=NEqAir<-xe7>vekybODnSXSBQ&~+T7am@vGLOUxWlQ=F0riW zxQ!@`jh4S(P(;mw*aj~j`DoEue zD4HnaYuFJ+t{ACn@?|S>#_LlDT6M~hD0x7|V0X@2aqXtlx`Ff2`#d3AcX}G2dh~Q` z>2UJqJf{cl7m2u$xlV%>2FgJHy2nth0_8!nYo}*fcZZ}abAc_rswyh+Tx|Vt>+g2U zR~;@mhb_=A?SdkduO<|!3s z9tewv5d!3I|0!Bp2%lL2Yb7}s7A1&Aujq|zxgn?BBQw?JrNcqqfck&Sk#N9Hb1y8e zaAs=n(Tm!R(#e}0DvTh3k)`Cy^L(zE*PQbJInvNW{zUBd>~|284l~%s7Z=?Dlu*BU zmJvXxsETw1?E_Qs`865TLbV)=-ilIbnDh#Y3{tyD4$h_0eqj`xnm!;FM};RA{^x1k zmCA);bf376{H^Urqu7(ITTqwn{2_BtI%N$2`?loyzd*q4&L=Jf%R*T{<#p@`xBia-$A0KIfYk35EdECSD<|AqR^f`g1X`7%1>10_Ms!pzUIPI{-On$2%jdHh&i@%b zXpb*CS-K#G4HW&~x1HA+AhirXH-Y)unHmkxMcDx#ys83dj#~4;Gg>5?<|+p;glSz) znRyKKcM+Vgu>EtO0`h-PP{gd=kB$Amb2Ei+x>@w!18E^n!`7KWfE^q2lC|SkXD0tY$h@?STg|rmk$~ z@b2i4oKZ0SUgBRTVWM0`0@rLkIh94y(o!Y4R|X?&OV+mDJGhDTvrRUrGAo6g`lf@; zVbs~Up5TsJp7lv;o~`mTe5gKr?R*y;Kp!_bdPU6tnQoGsrbXuy`r@*gZhQx!b)bgM zFe`H8WAP0BK)rcpBc~(N?|HB-qMozf^LK>r+qXc3iI@CyvY{&d@xBgfG0fw|#RQ+Q zSQ%+?+GC4T%K_I$;l{`d^x2kw3?isxsykHaoH`G6O#^`Z5={If=Ya-`rPafl+NwN_H1g%rHMg)! zHQg5*30tx241XO!9@C`*9y|>?Yo6AdT6PDUuep6!@E%e^2Jwj<0 zZ#K)pm%NSAU94>_*{uEO~{WI}-I1r^OF0Bg!!T(Mj*;fF0f zsA^3?{DT}U8T`f26qO*Q;ci1wf#pJvt` zaU#eq_{*7eSe`|G7WmK>4ExCfTy~io{hr@HyZ<>?Aj?89YvM^j&4)prFxJIYrG0a- zdCBIixPO+5b$*%sY2*GSOj#?-Uq+Dk!U`{(&>IHeq@prsVrPex_s)B-Xi4u*#P)jV zsbVrhc_-qUHjpq}WufZg(5v6^P$^7EQ^m%m#T7HC&?CvJ!+n)RMC;8n!$yDEh-53k z^%dkd)J4YsN3pZI#I)o*_y$n{g+7$0h7qkH;&IgII0@xp9+zS=vb6bj;IeK34T|I z@UYI$bU{j=gaS(j%8*r7uJz8F^Pw~SngF8)j)USM74iVU!L5EwO1rJ-t&2H!Rijkq1at$GAU3$g*CAZUt=3sdZix|UMZ}C-ywDF&v2m@*(M(9 z@!h!&um~qvXgC;c9#^dS8*kNVdMflUus4nU%nTdJmDNK^@&;*D9NJP9Qu(_Dv5gT^&RH zc*3y4F`0}&)VC5OPgNBns~k=s?+J&L62N;`9Z?`U9S(v zoaqxDsxLq2)sFwcJrH_ckpAe*?tRva}Zc(L-G6FB)R;9 zj`oKgmw(8-qI})sHqriV4f!8vW7>Kg&5+$b!WH|N2ME&U>53ye zQrdOD&L$lt%&n*7jGUI+3X5ZUT8=BpP3BS#5&8N9O&!u>d&plObScLw>8A(PN*&bM zP=A8>{8^*%Mmu#orCo1XbxwRfKG3;x#r>z^i`aGLnH{8COlw{B)ab+}H}r@Y`a{l$ zE5%jSfL;~*p|*Vx1-Yd2$*yF*eL_fNDE_%e^QOPX)F}*J;>xwIaoi%7YP&_St$s>r zIDHiMjh@m?vT}QIqsnG59C7GyfI41z2|4q-Ne{@W@LjJ8Uv@G<5e-CBfK6!dbWm?n z5ux6zxy$4=nG_$*<7eoWk0|h+cFPH6!?IFww1&)>LMf9kZ=hK_onUH|YY?Yw$qi~1 z&@}V-sDHM+%|}sCCVid-$G3be?RQdA=E0oetCZ^D+L8Q)b5%>;t=p+}pbqu<%|q-pP{ua`XEE>}Kuyf!m948f>b zCl=BTRp*^NW*M_F_qE*E(+|#`skgd_I+92EB4G0`P5hb-nk>$G&Up3S@WtcP4_SD# z|Fq#YctUojzq)0*ScNRwTTN+vgVaH`6N>eFzc)4wMt%-k(H!5pf7Y&UnS}S|aW14& zl(&I5E+Q-!X8AK>DS4Yc&%P>S5faJ1m96%*HZ_}ZF!iPm2P)uhGGq0dVKYx(2K)?d zv^kjfTsGvG324B4jbKM_bm%b5anYbcU}!31BbQD>{;EeH(5kd=Aej=nQwS5)$rz$P zYcm`h<+0@J_gF0d-SCSs^r`o=jPE<4y|tPaxW|wxHhotAnYl}wn*-(l;I^u zpUCa|z4YxenRt;5D!R840H&=dKU{|(3m84ZxS|a}XT^C^Ezfj~-t?eIX1_YG^%riT zP57*a9eYwyr}+Fei$MXFMo?qLc=={;RBowAv2BWv;00(_-ikWc91B19Jj!~CEcl|s zA0ZFK0Vt5F9ciyV_7B_$?dRJt-nY)rh5wAKT(}ZnHA8OzN1r{~9QTudZhe2paqysR z^9MORmL+~)v+U%2lz0yTDlXcsj&fIzMi+WqHjJlx`Mdcls%V$J(m@L8+A?%xESZ9m z944^m8y+mS#o21cD~)fEOD-q&9+kZ)F`QW}3nMT)eMU;$$$Hqs5odDROFo^DMadZf z9C)&}nOFY6DTJ`4`F_Rp5>OXtwO>RnDh+Braqm;BpldJOA)R)%(j$jldtIxyca@%> zRW0q99hiSMaNE%MqmGbs!>A}lXr${gA9l$m$jiThepsOP&I(9At77#4y3N)zECk8- z59Aj#@A$RO;D~Y&wg+T~!M+jpOybCrduUh&CMF7!wL`LJZr*IOv1#m))FC-d={6IN z{=oLr2a*M&AJMCtRuvcexFcMfDm3dLhlS zLh|3-HQ%NfCD&EVJDr?hUCrhIA35i7r2}C*4yFR{ZHd*GL=9J^DkwzQT4g!$iIujB zEw1#hOFe$(s!;<;*&%5Gn@<6F@~_yZ%N8as678RMd~=E1H@*g+oIJ46fF0)ZTD{p) z$%{M-!;HxpC8R9^`{lACPhH1GhX9a)0nx}yMmjR&he-9=yZ?-Be@rp@L6$?)EAwZ3 z9~`OFxYljRlZS`G4Z&>LRkRtM|Hp-oef)$*#LZ0WLsjORk&*YB!{e4Hi3ofYk1EG-z)038yVTeP zpJ36`UdGQZh0_82olJZ2zVZn^Zpk(3fnd|jvR|x8Tb(vvemOjI&)tj!nrwsw7;aUs zCEYT9JyR1NnLBxbyvebu)m)pY57&|6$eP;bb%Yz?kIXKL!-Se$6F$Z-H3xZDuCaQ- z^*DZodS%yy&eRY&OvDk#)y{<;`bU=ziMIPk#sG9|FlOG(p9X7G?V`09X|wGr99r<` zokMsjwL*Y49H9~jw2c)xObafqs+rl8Dd#V39nbvAK1B>QG0)=eQy65kxYgxdmm~;^ zOO~Tmy_EsJ*B>iAvscS1{IX8=T(%U10L-q=iq%HK7 u0)e_pN0$CaIMDw#i2ttz{+}#x5?NV3#)C6r>H!!yNdKO(Zl$)}zyAj@&&qlL literal 0 HcmV?d00001 diff --git a/learners/setup.md b/learners/setup.md index 04c40d7..8b21cd5 100644 --- a/learners/setup.md +++ b/learners/setup.md @@ -8,6 +8,10 @@ This lesson provides a practical guide to sourcing and pre-processing a bulk RNA The lesson is written in the context of a supervised machine learning classification modelling task, where the goal is to construct a model that is able to differentiate two different disease states (e.g. disease vs. healthy control) based on the gene expression profile. +This work was funded by the ELIXIR-UK: FAIR Data Stewardship training UKRI award (MR/V038966/1) + +![Elixir-UK](fig/ELIXIR-UK_logo.png){alt='Elixir-UK'} + :::::::::::::::::::::::::::::::::::::: prereq This lesson assumes a working knowledge of programming in R. For learners who aren't familiar with R or feel they need a refresher, the [Programming with R](https://swcarpentry.github.io/r-novice-inflammation/index.html) provides a good introduction to both R and working with R studio. diff --git a/renv/activate 2.R b/renv/activate 2.R new file mode 100644 index 0000000..d09c661 --- /dev/null +++ b/renv/activate 2.R @@ -0,0 +1,1184 @@ + +local({ + + # the requested version of renv +<<<<<<< HEAD + version <- "0.17.3" +======= + version <- "1.0.3" +>>>>>>> bfb75e150f9c44c3c6b185486f768e48f1da4e8e + attr(version, "sha") <- NULL + + # the project directory + project <- getwd() + + # use start-up diagnostics if enabled + diagnostics <- Sys.getenv("RENV_STARTUP_DIAGNOSTICS", unset = "FALSE") + if (diagnostics) { + start <- Sys.time() + profile <- tempfile("renv-startup-", fileext = ".Rprof") + utils::Rprof(profile) + on.exit({ + utils::Rprof(NULL) + elapsed <- signif(difftime(Sys.time(), start, units = "auto"), digits = 2L) + writeLines(sprintf("- renv took %s to run the autoloader.", format(elapsed))) + writeLines(sprintf("- Profile: %s", profile)) + print(utils::summaryRprof(profile)) + }, add = TRUE) + } + + # figure out whether the autoloader is enabled + enabled <- local({ + + # first, check config option + override <- getOption("renv.config.autoloader.enabled") + if (!is.null(override)) + return(override) + + # next, check environment variables + # TODO: prefer using the configuration one in the future + envvars <- c( + "RENV_CONFIG_AUTOLOADER_ENABLED", + "RENV_AUTOLOADER_ENABLED", + "RENV_ACTIVATE_PROJECT" + ) + + for (envvar in envvars) { + envval <- Sys.getenv(envvar, unset = NA) + if (!is.na(envval)) + return(tolower(envval) %in% c("true", "t", "1")) + } + + # enable by default + TRUE + + }) + + if (!enabled) + return(FALSE) + + # avoid recursion + if (identical(getOption("renv.autoloader.running"), TRUE)) { + warning("ignoring recursive attempt to run renv autoloader") + return(invisible(TRUE)) + } + + # signal that we're loading renv during R startup + options(renv.autoloader.running = TRUE) + on.exit(options(renv.autoloader.running = NULL), add = TRUE) + + # signal that we've consented to use renv + options(renv.consent = TRUE) + + # load the 'utils' package eagerly -- this ensures that renv shims, which + # mask 'utils' packages, will come first on the search path + library(utils, lib.loc = .Library) + + # unload renv if it's already been loaded + if ("renv" %in% loadedNamespaces()) + unloadNamespace("renv") + + # load bootstrap tools + `%||%` <- function(x, y) { + if (is.null(x)) y else x + } + + catf <- function(fmt, ..., appendLF = TRUE) { + + quiet <- getOption("renv.bootstrap.quiet", default = FALSE) + if (quiet) + return(invisible()) + + msg <- sprintf(fmt, ...) + cat(msg, file = stdout(), sep = if (appendLF) "\n" else "") + + invisible(msg) + + } + + header <- function(label, + ..., + prefix = "#", + suffix = "-", + n = min(getOption("width"), 78)) + { + label <- sprintf(label, ...) + n <- max(n - nchar(label) - nchar(prefix) - 2L, 8L) + if (n <= 0) + return(paste(prefix, label)) + + tail <- paste(rep.int(suffix, n), collapse = "") + paste0(prefix, " ", label, " ", tail) + + } + + startswith <- function(string, prefix) { + substring(string, 1, nchar(prefix)) == prefix + } + + bootstrap <- function(version, library) { + + friendly <- renv_bootstrap_version_friendly(version) + section <- header(sprintf("Bootstrapping renv %s", friendly)) + catf(section) + + # attempt to download renv + catf("- Downloading renv ... ", appendLF = FALSE) + withCallingHandlers( + tarball <- renv_bootstrap_download(version), + error = function(err) { + catf("FAILED") + stop("failed to download:\n", conditionMessage(err)) + } + ) + catf("OK") + on.exit(unlink(tarball), add = TRUE) + + # now attempt to install + catf("- Installing renv ... ", appendLF = FALSE) + withCallingHandlers( + status <- renv_bootstrap_install(version, tarball, library), + error = function(err) { + catf("FAILED") + stop("failed to install:\n", conditionMessage(err)) + } + ) + catf("OK") + + # add empty line to break up bootstrapping from normal output + catf("") + + return(invisible()) + } + + renv_bootstrap_tests_running <- function() { + getOption("renv.tests.running", default = FALSE) + } + + renv_bootstrap_repos <- function() { + + # get CRAN repository + cran <- getOption("renv.repos.cran", "https://cloud.r-project.org") + + # check for repos override + repos <- Sys.getenv("RENV_CONFIG_REPOS_OVERRIDE", unset = NA) + if (!is.na(repos)) { + + # check for RSPM; if set, use a fallback repository for renv + rspm <- Sys.getenv("RSPM", unset = NA) + if (identical(rspm, repos)) + repos <- c(RSPM = rspm, CRAN = cran) + + return(repos) + + } + + # check for lockfile repositories + repos <- tryCatch(renv_bootstrap_repos_lockfile(), error = identity) + if (!inherits(repos, "error") && length(repos)) + return(repos) + + # retrieve current repos + repos <- getOption("repos") + + # ensure @CRAN@ entries are resolved + repos[repos == "@CRAN@"] <- cran + + # add in renv.bootstrap.repos if set + default <- c(FALLBACK = "https://cloud.r-project.org") + extra <- getOption("renv.bootstrap.repos", default = default) + repos <- c(repos, extra) + + # remove duplicates that might've snuck in + dupes <- duplicated(repos) | duplicated(names(repos)) + repos[!dupes] + + } + + renv_bootstrap_repos_lockfile <- function() { + + lockpath <- Sys.getenv("RENV_PATHS_LOCKFILE", unset = "renv.lock") + if (!file.exists(lockpath)) + return(NULL) + + lockfile <- tryCatch(renv_json_read(lockpath), error = identity) + if (inherits(lockfile, "error")) { + warning(lockfile) + return(NULL) + } + + repos <- lockfile$R$Repositories + if (length(repos) == 0) + return(NULL) + + keys <- vapply(repos, `[[`, "Name", FUN.VALUE = character(1)) + vals <- vapply(repos, `[[`, "URL", FUN.VALUE = character(1)) + names(vals) <- keys + + return(vals) + + } + + renv_bootstrap_download <- function(version) { + + sha <- attr(version, "sha", exact = TRUE) + + methods <- if (!is.null(sha)) { + + # attempting to bootstrap a development version of renv + c( + function() renv_bootstrap_download_tarball(sha), + function() renv_bootstrap_download_github(sha) + ) + + } else { + + # attempting to bootstrap a release version of renv + c( + function() renv_bootstrap_download_tarball(version), + function() renv_bootstrap_download_cran_latest(version), + function() renv_bootstrap_download_cran_archive(version) + ) + + } + + for (method in methods) { + path <- tryCatch(method(), error = identity) + if (is.character(path) && file.exists(path)) + return(path) + } + + stop("All download methods failed") + + } + + renv_bootstrap_download_impl <- function(url, destfile) { + + mode <- "wb" + + # https://bugs.r-project.org/bugzilla/show_bug.cgi?id=17715 + fixup <- + Sys.info()[["sysname"]] == "Windows" && + substring(url, 1L, 5L) == "file:" + + if (fixup) + mode <- "w+b" + + args <- list( + url = url, + destfile = destfile, + mode = mode, + quiet = TRUE + ) + + if ("headers" %in% names(formals(utils::download.file))) + args$headers <- renv_bootstrap_download_custom_headers(url) + + do.call(utils::download.file, args) + + } + + renv_bootstrap_download_custom_headers <- function(url) { + + headers <- getOption("renv.download.headers") + if (is.null(headers)) + return(character()) + + if (!is.function(headers)) + stopf("'renv.download.headers' is not a function") + + headers <- headers(url) + if (length(headers) == 0L) + return(character()) + + if (is.list(headers)) + headers <- unlist(headers, recursive = FALSE, use.names = TRUE) + + ok <- + is.character(headers) && + is.character(names(headers)) && + all(nzchar(names(headers))) + + if (!ok) + stop("invocation of 'renv.download.headers' did not return a named character vector") + + headers + + } + + renv_bootstrap_download_cran_latest <- function(version) { + + spec <- renv_bootstrap_download_cran_latest_find(version) + type <- spec$type + repos <- spec$repos + + baseurl <- utils::contrib.url(repos = repos, type = type) + ext <- if (identical(type, "source")) + ".tar.gz" + else if (Sys.info()[["sysname"]] == "Windows") + ".zip" + else + ".tgz" + name <- sprintf("renv_%s%s", version, ext) + url <- paste(baseurl, name, sep = "/") + + destfile <- file.path(tempdir(), name) + status <- tryCatch( + renv_bootstrap_download_impl(url, destfile), + condition = identity + ) + + if (inherits(status, "condition")) + return(FALSE) + + # report success and return + destfile + + } + + renv_bootstrap_download_cran_latest_find <- function(version) { + + # check whether binaries are supported on this system + binary <- + getOption("renv.bootstrap.binary", default = TRUE) && + !identical(.Platform$pkgType, "source") && + !identical(getOption("pkgType"), "source") && + Sys.info()[["sysname"]] %in% c("Darwin", "Windows") + + types <- c(if (binary) "binary", "source") + + # iterate over types + repositories + for (type in types) { + for (repos in renv_bootstrap_repos()) { + + # retrieve package database + db <- tryCatch( + as.data.frame( + utils::available.packages(type = type, repos = repos), + stringsAsFactors = FALSE + ), + error = identity + ) + + if (inherits(db, "error")) + next + + # check for compatible entry + entry <- db[db$Package %in% "renv" & db$Version %in% version, ] + if (nrow(entry) == 0) + next + + # found it; return spec to caller + spec <- list(entry = entry, type = type, repos = repos) + return(spec) + + } + } + + # if we got here, we failed to find renv + fmt <- "renv %s is not available from your declared package repositories" + stop(sprintf(fmt, version)) + + } + + renv_bootstrap_download_cran_archive <- function(version) { + + name <- sprintf("renv_%s.tar.gz", version) + repos <- renv_bootstrap_repos() + urls <- file.path(repos, "src/contrib/Archive/renv", name) + destfile <- file.path(tempdir(), name) + + for (url in urls) { + + status <- tryCatch( + renv_bootstrap_download_impl(url, destfile), + condition = identity + ) + + if (identical(status, 0L)) + return(destfile) + + } + + return(FALSE) + + } + + renv_bootstrap_download_tarball <- function(version) { + + # if the user has provided the path to a tarball via + # an environment variable, then use it + tarball <- Sys.getenv("RENV_BOOTSTRAP_TARBALL", unset = NA) + if (is.na(tarball)) + return() + + # allow directories + if (dir.exists(tarball)) { + name <- sprintf("renv_%s.tar.gz", version) + tarball <- file.path(tarball, name) + } + + # bail if it doesn't exist + if (!file.exists(tarball)) { + + # let the user know we weren't able to honour their request + fmt <- "- RENV_BOOTSTRAP_TARBALL is set (%s) but does not exist." + msg <- sprintf(fmt, tarball) + warning(msg) + + # bail + return() + + } + + catf("- Using local tarball '%s'.", tarball) + tarball + + } + + renv_bootstrap_download_github <- function(version) { + + enabled <- Sys.getenv("RENV_BOOTSTRAP_FROM_GITHUB", unset = "TRUE") + if (!identical(enabled, "TRUE")) + return(FALSE) + + # prepare download options + pat <- Sys.getenv("GITHUB_PAT") + if (nzchar(Sys.which("curl")) && nzchar(pat)) { + fmt <- "--location --fail --header \"Authorization: token %s\"" + extra <- sprintf(fmt, pat) + saved <- options("download.file.method", "download.file.extra") + options(download.file.method = "curl", download.file.extra = extra) + on.exit(do.call(base::options, saved), add = TRUE) + } else if (nzchar(Sys.which("wget")) && nzchar(pat)) { + fmt <- "--header=\"Authorization: token %s\"" + extra <- sprintf(fmt, pat) + saved <- options("download.file.method", "download.file.extra") + options(download.file.method = "wget", download.file.extra = extra) + on.exit(do.call(base::options, saved), add = TRUE) + } + + url <- file.path("https://api.github.com/repos/rstudio/renv/tarball", version) + name <- sprintf("renv_%s.tar.gz", version) + destfile <- file.path(tempdir(), name) + + status <- tryCatch( + renv_bootstrap_download_impl(url, destfile), + condition = identity + ) + + if (!identical(status, 0L)) + return(FALSE) + + renv_bootstrap_download_augment(destfile) + + return(destfile) + + } + + # Add Sha to DESCRIPTION. This is stop gap until #890, after which we + # can use renv::install() to fully capture metadata. + renv_bootstrap_download_augment <- function(destfile) { + sha <- renv_bootstrap_git_extract_sha1_tar(destfile) + if (is.null(sha)) { + return() + } + + # Untar + tempdir <- tempfile("renv-github-") + on.exit(unlink(tempdir, recursive = TRUE), add = TRUE) + untar(destfile, exdir = tempdir) + pkgdir <- dir(tempdir, full.names = TRUE)[[1]] + + # Modify description + desc_path <- file.path(pkgdir, "DESCRIPTION") + desc_lines <- readLines(desc_path) + remotes_fields <- c( + "RemoteType: github", + "RemoteHost: api.github.com", + "RemoteRepo: renv", + "RemoteUsername: rstudio", + "RemotePkgRef: rstudio/renv", + paste("RemoteRef: ", sha), + paste("RemoteSha: ", sha) + ) + writeLines(c(desc_lines[desc_lines != ""], remotes_fields), con = desc_path) + + # Re-tar + local({ + old <- setwd(tempdir) + on.exit(setwd(old), add = TRUE) + + tar(destfile, compression = "gzip") + }) + invisible() + } + + # Extract the commit hash from a git archive. Git archives include the SHA1 + # hash as the comment field of the tarball pax extended header + # (see https://www.kernel.org/pub/software/scm/git/docs/git-archive.html) + # For GitHub archives this should be the first header after the default one + # (512 byte) header. + renv_bootstrap_git_extract_sha1_tar <- function(bundle) { + + # open the bundle for reading + # We use gzcon for everything because (from ?gzcon) + # > Reading from a connection which does not supply a 'gzip' magic + # > header is equivalent to reading from the original connection + conn <- gzcon(file(bundle, open = "rb", raw = TRUE)) + on.exit(close(conn)) + + # The default pax header is 512 bytes long and the first pax extended header + # with the comment should be 51 bytes long + # `52 comment=` (11 chars) + 40 byte SHA1 hash + len <- 0x200 + 0x33 + res <- rawToChar(readBin(conn, "raw", n = len)[0x201:len]) + + if (grepl("^52 comment=", res)) { + sub("52 comment=", "", res) + } else { + NULL + } + } + + renv_bootstrap_install <- function(version, tarball, library) { + + # attempt to install it into project library + dir.create(library, showWarnings = FALSE, recursive = TRUE) + output <- renv_bootstrap_install_impl(library, tarball) + + # check for successful install + status <- attr(output, "status") + if (is.null(status) || identical(status, 0L)) + return(status) + + # an error occurred; report it + header <- "installation of renv failed" + lines <- paste(rep.int("=", nchar(header)), collapse = "") + text <- paste(c(header, lines, output), collapse = "\n") + stop(text) + + } + + renv_bootstrap_install_impl <- function(library, tarball) { + + # invoke using system2 so we can capture and report output + bin <- R.home("bin") + exe <- if (Sys.info()[["sysname"]] == "Windows") "R.exe" else "R" + R <- file.path(bin, exe) + + args <- c( + "--vanilla", "CMD", "INSTALL", "--no-multiarch", + "-l", shQuote(path.expand(library)), + shQuote(path.expand(tarball)) + ) + + system2(R, args, stdout = TRUE, stderr = TRUE) + + } + + renv_bootstrap_platform_prefix <- function() { + + # construct version prefix + version <- paste(R.version$major, R.version$minor, sep = ".") + prefix <- paste("R", numeric_version(version)[1, 1:2], sep = "-") + + # include SVN revision for development versions of R + # (to avoid sharing platform-specific artefacts with released versions of R) + devel <- + identical(R.version[["status"]], "Under development (unstable)") || + identical(R.version[["nickname"]], "Unsuffered Consequences") + + if (devel) + prefix <- paste(prefix, R.version[["svn rev"]], sep = "-r") + + # build list of path components + components <- c(prefix, R.version$platform) + + # include prefix if provided by user + prefix <- renv_bootstrap_platform_prefix_impl() + if (!is.na(prefix) && nzchar(prefix)) + components <- c(prefix, components) + + # build prefix + paste(components, collapse = "/") + + } + + renv_bootstrap_platform_prefix_impl <- function() { + + # if an explicit prefix has been supplied, use it + prefix <- Sys.getenv("RENV_PATHS_PREFIX", unset = NA) + if (!is.na(prefix)) + return(prefix) + + # if the user has requested an automatic prefix, generate it + auto <- Sys.getenv("RENV_PATHS_PREFIX_AUTO", unset = NA) + if (auto %in% c("TRUE", "True", "true", "1")) + return(renv_bootstrap_platform_prefix_auto()) + + # empty string on failure + "" + + } + + renv_bootstrap_platform_prefix_auto <- function() { + + prefix <- tryCatch(renv_bootstrap_platform_os(), error = identity) + if (inherits(prefix, "error") || prefix %in% "unknown") { + + msg <- paste( + "failed to infer current operating system", + "please file a bug report at https://github.com/rstudio/renv/issues", + sep = "; " + ) + + warning(msg) + + } + + prefix + + } + + renv_bootstrap_platform_os <- function() { + + sysinfo <- Sys.info() + sysname <- sysinfo[["sysname"]] + + # handle Windows + macOS up front + if (sysname == "Windows") + return("windows") + else if (sysname == "Darwin") + return("macos") + + # check for os-release files + for (file in c("/etc/os-release", "/usr/lib/os-release")) + if (file.exists(file)) + return(renv_bootstrap_platform_os_via_os_release(file, sysinfo)) + + # check for redhat-release files + if (file.exists("/etc/redhat-release")) + return(renv_bootstrap_platform_os_via_redhat_release()) + + "unknown" + + } + + renv_bootstrap_platform_os_via_os_release <- function(file, sysinfo) { + + # read /etc/os-release + release <- utils::read.table( + file = file, + sep = "=", + quote = c("\"", "'"), + col.names = c("Key", "Value"), + comment.char = "#", + stringsAsFactors = FALSE + ) + + vars <- as.list(release$Value) + names(vars) <- release$Key + + # get os name + os <- tolower(sysinfo[["sysname"]]) + + # read id + id <- "unknown" + for (field in c("ID", "ID_LIKE")) { + if (field %in% names(vars) && nzchar(vars[[field]])) { + id <- vars[[field]] + break + } + } + + # read version + version <- "unknown" + for (field in c("UBUNTU_CODENAME", "VERSION_CODENAME", "VERSION_ID", "BUILD_ID")) { + if (field %in% names(vars) && nzchar(vars[[field]])) { + version <- vars[[field]] + break + } + } + + # join together + paste(c(os, id, version), collapse = "-") + + } + + renv_bootstrap_platform_os_via_redhat_release <- function() { + + # read /etc/redhat-release + contents <- readLines("/etc/redhat-release", warn = FALSE) + + # infer id + id <- if (grepl("centos", contents, ignore.case = TRUE)) + "centos" + else if (grepl("redhat", contents, ignore.case = TRUE)) + "redhat" + else + "unknown" + + # try to find a version component (very hacky) + version <- "unknown" + + parts <- strsplit(contents, "[[:space:]]")[[1L]] + for (part in parts) { + + nv <- tryCatch(numeric_version(part), error = identity) + if (inherits(nv, "error")) + next + + version <- nv[1, 1] + break + + } + + paste(c("linux", id, version), collapse = "-") + + } + + renv_bootstrap_library_root_name <- function(project) { + + # use project name as-is if requested + asis <- Sys.getenv("RENV_PATHS_LIBRARY_ROOT_ASIS", unset = "FALSE") + if (asis) + return(basename(project)) + + # otherwise, disambiguate based on project's path + id <- substring(renv_bootstrap_hash_text(project), 1L, 8L) + paste(basename(project), id, sep = "-") + + } + + renv_bootstrap_library_root <- function(project) { + + prefix <- renv_bootstrap_profile_prefix() + + path <- Sys.getenv("RENV_PATHS_LIBRARY", unset = NA) + if (!is.na(path)) + return(paste(c(path, prefix), collapse = "/")) + + path <- renv_bootstrap_library_root_impl(project) + if (!is.null(path)) { + name <- renv_bootstrap_library_root_name(project) + return(paste(c(path, prefix, name), collapse = "/")) + } + + renv_bootstrap_paths_renv("library", project = project) + + } + + renv_bootstrap_library_root_impl <- function(project) { + + root <- Sys.getenv("RENV_PATHS_LIBRARY_ROOT", unset = NA) + if (!is.na(root)) + return(root) + + type <- renv_bootstrap_project_type(project) + if (identical(type, "package")) { + userdir <- renv_bootstrap_user_dir() + return(file.path(userdir, "library")) + } + + } + + renv_bootstrap_validate_version <- function(version, description = NULL) { + + # resolve description file + # + # avoid passing lib.loc to `packageDescription()` below, since R will + # use the loaded version of the package by default anyhow. note that + # this function should only be called after 'renv' is loaded + # https://github.com/rstudio/renv/issues/1625 + description <- description %||% packageDescription("renv") + + # check whether requested version 'version' matches loaded version of renv + sha <- attr(version, "sha", exact = TRUE) + valid <- if (!is.null(sha)) + renv_bootstrap_validate_version_dev(sha, description) + else + renv_bootstrap_validate_version_release(version, description) + + if (valid) + return(TRUE) + + # the loaded version of renv doesn't match the requested version; + # give the user instructions on how to proceed + remote <- if (!is.null(description[["RemoteSha"]])) { + paste("rstudio/renv", description[["RemoteSha"]], sep = "@") + } else { + paste("renv", description[["Version"]], sep = "@") + } + + # display both loaded version + sha if available + friendly <- renv_bootstrap_version_friendly( + version = description[["Version"]], + sha = description[["RemoteSha"]] + ) + + fmt <- paste( + "renv %1$s was loaded from project library, but this project is configured to use renv %2$s.", + "- Use `renv::record(\"%3$s\")` to record renv %1$s in the lockfile.", + "- Use `renv::restore(packages = \"renv\")` to install renv %2$s into the project library.", + sep = "\n" + ) + catf(fmt, friendly, renv_bootstrap_version_friendly(version), remote) + + FALSE + + } + + renv_bootstrap_validate_version_dev <- function(version, description) { + expected <- description[["RemoteSha"]] + is.character(expected) && startswith(expected, version) + } + + renv_bootstrap_validate_version_release <- function(version, description) { + expected <- description[["Version"]] + is.character(expected) && identical(expected, version) + } + + renv_bootstrap_hash_text <- function(text) { + + hashfile <- tempfile("renv-hash-") + on.exit(unlink(hashfile), add = TRUE) + + writeLines(text, con = hashfile) + tools::md5sum(hashfile) + + } + + renv_bootstrap_load <- function(project, libpath, version) { + + # try to load renv from the project library + if (!requireNamespace("renv", lib.loc = libpath, quietly = TRUE)) + return(FALSE) + + # warn if the version of renv loaded does not match + renv_bootstrap_validate_version(version) + + # execute renv load hooks, if any + hooks <- getHook("renv::autoload") + for (hook in hooks) + if (is.function(hook)) + tryCatch(hook(), error = warnify) + + # load the project + renv::load(project) + + TRUE + + } + + renv_bootstrap_profile_load <- function(project) { + + # if RENV_PROFILE is already set, just use that + profile <- Sys.getenv("RENV_PROFILE", unset = NA) + if (!is.na(profile) && nzchar(profile)) + return(profile) + + # check for a profile file (nothing to do if it doesn't exist) + path <- renv_bootstrap_paths_renv("profile", profile = FALSE, project = project) + if (!file.exists(path)) + return(NULL) + + # read the profile, and set it if it exists + contents <- readLines(path, warn = FALSE) + if (length(contents) == 0L) + return(NULL) + + # set RENV_PROFILE + profile <- contents[[1L]] + if (!profile %in% c("", "default")) + Sys.setenv(RENV_PROFILE = profile) + + profile + + } + + renv_bootstrap_profile_prefix <- function() { + profile <- renv_bootstrap_profile_get() + if (!is.null(profile)) + return(file.path("profiles", profile, "renv")) + } + + renv_bootstrap_profile_get <- function() { + profile <- Sys.getenv("RENV_PROFILE", unset = "") + renv_bootstrap_profile_normalize(profile) + } + + renv_bootstrap_profile_set <- function(profile) { + profile <- renv_bootstrap_profile_normalize(profile) + if (is.null(profile)) + Sys.unsetenv("RENV_PROFILE") + else + Sys.setenv(RENV_PROFILE = profile) + } + + renv_bootstrap_profile_normalize <- function(profile) { + + if (is.null(profile) || profile %in% c("", "default")) + return(NULL) + + profile + + } + + renv_bootstrap_path_absolute <- function(path) { + + substr(path, 1L, 1L) %in% c("~", "/", "\\") || ( + substr(path, 1L, 1L) %in% c(letters, LETTERS) && + substr(path, 2L, 3L) %in% c(":/", ":\\") + ) + + } + + renv_bootstrap_paths_renv <- function(..., profile = TRUE, project = NULL) { + renv <- Sys.getenv("RENV_PATHS_RENV", unset = "renv") + root <- if (renv_bootstrap_path_absolute(renv)) NULL else project + prefix <- if (profile) renv_bootstrap_profile_prefix() + components <- c(root, renv, prefix, ...) + paste(components, collapse = "/") + } + + renv_bootstrap_project_type <- function(path) { + + descpath <- file.path(path, "DESCRIPTION") + if (!file.exists(descpath)) + return("unknown") + + desc <- tryCatch( + read.dcf(descpath, all = TRUE), + error = identity + ) + + if (inherits(desc, "error")) + return("unknown") + + type <- desc$Type + if (!is.null(type)) + return(tolower(type)) + + package <- desc$Package + if (!is.null(package)) + return("package") + + "unknown" + + } + + renv_bootstrap_user_dir <- function() { + dir <- renv_bootstrap_user_dir_impl() + path.expand(chartr("\\", "/", dir)) + } + + renv_bootstrap_user_dir_impl <- function() { + + # use local override if set + override <- getOption("renv.userdir.override") + if (!is.null(override)) + return(override) + + # use R_user_dir if available + tools <- asNamespace("tools") + if (is.function(tools$R_user_dir)) + return(tools$R_user_dir("renv", "cache")) + + # try using our own backfill for older versions of R + envvars <- c("R_USER_CACHE_DIR", "XDG_CACHE_HOME") + for (envvar in envvars) { + root <- Sys.getenv(envvar, unset = NA) + if (!is.na(root)) + return(file.path(root, "R/renv")) + } + + # use platform-specific default fallbacks + if (Sys.info()[["sysname"]] == "Windows") + file.path(Sys.getenv("LOCALAPPDATA"), "R/cache/R/renv") + else if (Sys.info()[["sysname"]] == "Darwin") + "~/Library/Caches/org.R-project.R/R/renv" + else + "~/.cache/R/renv" + + } + + renv_bootstrap_version_friendly <- function(version, shafmt = NULL, sha = NULL) { + sha <- sha %||% attr(version, "sha", exact = TRUE) + parts <- c(version, sprintf(shafmt %||% " [sha: %s]", substring(sha, 1L, 7L))) + paste(parts, collapse = "") + } + + renv_bootstrap_exec <- function(project, libpath, version) { + if (!renv_bootstrap_load(project, libpath, version)) + renv_bootstrap_run(version, libpath) + } + + renv_bootstrap_run <- function(version, libpath) { + + # perform bootstrap + bootstrap(version, libpath) + + # exit early if we're just testing bootstrap + if (!is.na(Sys.getenv("RENV_BOOTSTRAP_INSTALL_ONLY", unset = NA))) + return(TRUE) + + # try again to load + if (requireNamespace("renv", lib.loc = libpath, quietly = TRUE)) { + return(renv::load(project = getwd())) + } + + # failed to download or load renv; warn the user + msg <- c( + "Failed to find an renv installation: the project will not be loaded.", + "Use `renv::activate()` to re-initialize the project." + ) + + warning(paste(msg, collapse = "\n"), call. = FALSE) + + } + + renv_json_read <- function(file = NULL, text = NULL) { + + jlerr <- NULL + + # if jsonlite is loaded, use that instead + if ("jsonlite" %in% loadedNamespaces()) { + + json <- catch(renv_json_read_jsonlite(file, text)) + if (!inherits(json, "error")) + return(json) + + jlerr <- json + + } + + # otherwise, fall back to the default JSON reader + json <- catch(renv_json_read_default(file, text)) + if (!inherits(json, "error")) + return(json) + + # report an error + if (!is.null(jlerr)) + stop(jlerr) + else + stop(json) + + } + + renv_json_read_jsonlite <- function(file = NULL, text = NULL) { + text <- paste(text %||% read(file), collapse = "\n") + jsonlite::fromJSON(txt = text, simplifyVector = FALSE) + } + + renv_json_read_default <- function(file = NULL, text = NULL) { + + # find strings in the JSON + text <- paste(text %||% read(file), collapse = "\n") + pattern <- '["](?:(?:\\\\.)|(?:[^"\\\\]))*?["]' + locs <- gregexpr(pattern, text, perl = TRUE)[[1]] + + # if any are found, replace them with placeholders + replaced <- text + strings <- character() + replacements <- character() + + if (!identical(c(locs), -1L)) { + + # get the string values + starts <- locs + ends <- locs + attr(locs, "match.length") - 1L + strings <- substring(text, starts, ends) + + # only keep those requiring escaping + strings <- grep("[[\\]{}:]", strings, perl = TRUE, value = TRUE) + + # compute replacements + replacements <- sprintf('"\032%i\032"', seq_along(strings)) + + # replace the strings + mapply(function(string, replacement) { + replaced <<- sub(string, replacement, replaced, fixed = TRUE) + }, strings, replacements) + + } + + # transform the JSON into something the R parser understands + transformed <- replaced + transformed <- gsub("{}", "`names<-`(list(), character())", transformed, fixed = TRUE) + transformed <- gsub("[[{]", "list(", transformed, perl = TRUE) + transformed <- gsub("[]}]", ")", transformed, perl = TRUE) + transformed <- gsub(":", "=", transformed, fixed = TRUE) + text <- paste(transformed, collapse = "\n") + + # parse it + json <- parse(text = text, keep.source = FALSE, srcfile = NULL)[[1L]] + + # construct map between source strings, replaced strings + map <- as.character(parse(text = strings)) + names(map) <- as.character(parse(text = replacements)) + + # convert to list + map <- as.list(map) + + # remap strings in object + remapped <- renv_json_remap(json, map) + + # evaluate + eval(remapped, envir = baseenv()) + + } + + renv_json_remap <- function(json, map) { + + # fix names + if (!is.null(names(json))) { + lhs <- match(names(json), names(map), nomatch = 0L) + rhs <- match(names(map), names(json), nomatch = 0L) + names(json)[rhs] <- map[lhs] + } + + # fix values + if (is.character(json)) + return(map[[json]] %||% json) + + # handle true, false, null + if (is.name(json)) { + text <- as.character(json) + if (text == "true") + return(TRUE) + else if (text == "false") + return(FALSE) + else if (text == "null") + return(NULL) + } + + # recurse + if (is.recursive(json)) { + for (i in seq_along(json)) { + json[i] <- list(renv_json_remap(json[[i]], map)) + } + } + + json + + } + + # load the renv profile, if any + renv_bootstrap_profile_load(project) + + # construct path to library root + root <- renv_bootstrap_library_root(project) + + # construct library prefix for platform + prefix <- renv_bootstrap_platform_prefix() + + # construct full libpath + libpath <- file.path(root, prefix) + + # run bootstrap code + renv_bootstrap_exec(project, libpath, version) + + invisible() + +}) diff --git a/renv/profile 2 b/renv/profile 2 new file mode 100644 index 0000000..6d4023b --- /dev/null +++ b/renv/profile 2 @@ -0,0 +1 @@ +lesson-requirements diff --git a/renv/profiles/lesson-requirements/renv 2.lock b/renv/profiles/lesson-requirements/renv 2.lock new file mode 100644 index 0000000..305efe6 --- /dev/null +++ b/renv/profiles/lesson-requirements/renv 2.lock @@ -0,0 +1,657 @@ +{ + "R": { + "Version": "4.3.1", + "Repositories": [ + { + "Name": "carpentries", + "URL": "https://carpentries.r-universe.dev" + }, + { + "Name": "carpentries_archive", + "URL": "https://carpentries.github.io/drat" + }, + { + "Name": "CRAN", + "URL": "https://cran.rstudio.com" + } + ] + }, + "Packages": { + "R6": { + "Package": "R6", + "Version": "2.5.1", + "Source": "Repository", + "Repository": "RSPM", + "Requirements": [ + "R" + ], + "Hash": "470851b6d5d0ac559e9d01bb352b4021" + }, + "RColorBrewer": { + "Package": "RColorBrewer", + "Version": "1.1-3", + "Source": "Repository", + "Repository": "CRAN", + "Requirements": [ + "R" + ], + "Hash": "45f0398006e83a5b10b72a90663d8d8c" + }, + "Rcpp": { + "Package": "Rcpp", + "Version": "1.0.11", + "Source": "Repository", + "Repository": "CRAN", + "Requirements": [ + "methods", + "utils" + ], + "Hash": "ae6cbbe1492f4de79c45fce06f967ce8" + }, + "base64enc": { + "Package": "base64enc", + "Version": "0.1-3", + "Source": "Repository", + "Repository": "RSPM", + "Requirements": [ + "R" + ], + "Hash": "543776ae6848fde2f48ff3816d0628bc" + }, + "bslib": { + "Package": "bslib", + "Version": "0.5.1", + "Source": "Repository", + "Repository": "CRAN", + "Requirements": [ + "R", + "base64enc", + "cachem", + "grDevices", + "htmltools", + "jquerylib", + "jsonlite", + "memoise", + "mime", + "rlang", + "sass" + ], + "Hash": "283015ddfbb9d7bf15ea9f0b5698f0d9" + }, + "cachem": { + "Package": "cachem", + "Version": "1.0.8", + "Source": "Repository", + "Repository": "CRAN", + "Requirements": [ + "fastmap", + "rlang" + ], + "Hash": "c35768291560ce302c0a6589f92e837d" + }, + "cli": { + "Package": "cli", + "Version": "3.6.1", + "Source": "Repository", + "Repository": "CRAN", + "Requirements": [ + "R", + "utils" + ], + "Hash": "89e6d8219950eac806ae0c489052048a" + }, + "colorspace": { + "Package": "colorspace", + "Version": "2.1-0", + "Source": "Repository", + "Repository": "CRAN", + "Requirements": [ + "R", + "grDevices", + "graphics", + "methods", + "stats" + ], + "Hash": "f20c47fd52fae58b4e377c37bb8c335b" + }, + "digest": { + "Package": "digest", + "Version": "0.6.33", + "Source": "Repository", + "Repository": "CRAN", + "Requirements": [ + "R", + "utils" + ], + "Hash": "b18a9cf3c003977b0cc49d5e76ebe48d" + }, + "dplyr": { + "Package": "dplyr", + "Version": "1.1.3", + "Source": "Repository", + "Repository": "CRAN", + "Requirements": [ + "R", + "R6", + "cli", + "generics", + "glue", + "lifecycle", + "magrittr", + "methods", + "pillar", + "rlang", + "tibble", + "tidyselect", + "utils", + "vctrs" + ], + "Hash": "e85ffbebaad5f70e1a2e2ef4302b4949" + }, + "ellipsis": { + "Package": "ellipsis", + "Version": "0.3.2", + "Source": "Repository", + "Repository": "RSPM", + "Requirements": [ + "R", + "rlang" + ], + "Hash": "bb0eec2fe32e88d9e2836c2f73ea2077" + }, + "evaluate": { + "Package": "evaluate", + "Version": "0.22", + "Source": "Repository", + "Repository": "CRAN", + "Requirements": [ + "R", + "methods" + ], + "Hash": "66f39c7a21e03c4dcb2c2d21d738d603" + }, + "fansi": { + "Package": "fansi", + "Version": "1.0.4", + "Source": "Repository", + "Repository": "CRAN", + "Requirements": [ + "R", + "grDevices", + "utils" + ], + "Hash": "1d9e7ad3c8312a192dea7d3db0274fde" + }, + "farver": { + "Package": "farver", + "Version": "2.1.1", + "Source": "Repository", + "Repository": "CRAN", + "Hash": "8106d78941f34855c440ddb946b8f7a5" + }, + "fastmap": { + "Package": "fastmap", + "Version": "1.1.1", + "Source": "Repository", + "Repository": "CRAN", + "Hash": "f7736a18de97dea803bde0a2daaafb27" + }, + "fontawesome": { + "Package": "fontawesome", + "Version": "0.5.2", + "Source": "Repository", + "Repository": "CRAN", + "Requirements": [ + "R", + "htmltools", + "rlang" + ], + "Hash": "c2efdd5f0bcd1ea861c2d4e2a883a67d" + }, + "fs": { + "Package": "fs", + "Version": "1.6.3", + "Source": "Repository", + "Repository": "CRAN", + "Requirements": [ + "R", + "methods" + ], + "Hash": "47b5f30c720c23999b913a1a635cf0bb" + }, + "generics": { + "Package": "generics", + "Version": "0.1.3", + "Source": "Repository", + "Repository": "CRAN", + "Requirements": [ + "R", + "methods" + ], + "Hash": "15e9634c0fcd294799e9b2e929ed1b86" + }, + "glue": { + "Package": "glue", + "Version": "1.6.2", + "Source": "Repository", + "Repository": "RSPM", + "Requirements": [ + "R", + "methods" + ], + "Hash": "4f2596dfb05dac67b9dc558e5c6fba2e" + }, + "highr": { + "Package": "highr", + "Version": "0.10", + "Source": "Repository", + "Repository": "RSPM", + "Requirements": [ + "R", + "xfun" + ], + "Hash": "06230136b2d2b9ba5805e1963fa6e890" + }, + "htmltools": { + "Package": "htmltools", + "Version": "0.5.6", + "Source": "Repository", + "Repository": "CRAN", + "Requirements": [ + "R", + "base64enc", + "digest", + "ellipsis", + "fastmap", + "grDevices", + "rlang", + "utils" + ], + "Hash": "a2326a66919a3311f7fbb1e3bf568283" + }, + "jquerylib": { + "Package": "jquerylib", + "Version": "0.1.4", + "Source": "Repository", + "Repository": "RSPM", + "Requirements": [ + "htmltools" + ], + "Hash": "5aab57a3bd297eee1c1d862735972182" + }, + "jsonlite": { + "Package": "jsonlite", + "Version": "1.8.7", + "Source": "Repository", + "Repository": "CRAN", + "Requirements": [ + "methods" + ], + "Hash": "266a20443ca13c65688b2116d5220f76" + }, + "knitr": { + "Package": "knitr", + "Version": "1.44", + "Source": "Repository", + "Repository": "CRAN", + "Requirements": [ + "R", + "evaluate", + "highr", + "methods", + "tools", + "xfun", + "yaml" + ], + "Hash": "60885b9f746c9dfaef110d070b5f7dc0" + }, + "labeling": { + "Package": "labeling", + "Version": "0.4.3", + "Source": "Repository", + "Repository": "CRAN", + "Requirements": [ + "graphics", + "stats" + ], + "Hash": "b64ec208ac5bc1852b285f665d6368b3" + }, + "lifecycle": { + "Package": "lifecycle", + "Version": "1.0.3", + "Source": "Repository", + "Repository": "RSPM", + "Requirements": [ + "R", + "cli", + "glue", + "rlang" + ], + "Hash": "001cecbeac1cff9301bdc3775ee46a86" + }, + "magrittr": { + "Package": "magrittr", + "Version": "2.0.3", + "Source": "Repository", + "Repository": "RSPM", + "Requirements": [ + "R" + ], + "Hash": "7ce2733a9826b3aeb1775d56fd305472" + }, + "memoise": { + "Package": "memoise", + "Version": "2.0.1", + "Source": "Repository", + "Repository": "RSPM", + "Requirements": [ + "cachem", + "rlang" + ], + "Hash": "e2817ccf4a065c5d9d7f2cfbe7c1d78c" + }, + "mime": { + "Package": "mime", + "Version": "0.12", + "Source": "Repository", + "Repository": "RSPM", + "Requirements": [ + "tools" + ], + "Hash": "18e9c28c1d3ca1560ce30658b22ce104" + }, + "munsell": { + "Package": "munsell", + "Version": "0.5.0", + "Source": "Repository", + "Repository": "CRAN", + "Requirements": [ + "colorspace", + "methods" + ], + "Hash": "6dfe8bf774944bd5595785e3229d8771" + }, + "pillar": { + "Package": "pillar", + "Version": "1.9.0", + "Source": "Repository", + "Repository": "CRAN", + "Requirements": [ + "cli", + "fansi", + "glue", + "lifecycle", + "rlang", + "utf8", + "utils", + "vctrs" + ], + "Hash": "15da5a8412f317beeee6175fbc76f4bb" + }, + "pkgconfig": { + "Package": "pkgconfig", + "Version": "2.0.3", + "Source": "Repository", + "Repository": "CRAN", + "Requirements": [ + "utils" + ], + "Hash": "01f28d4278f15c76cddbea05899c5d6f" + }, + "plyr": { + "Package": "plyr", + "Version": "1.8.9", + "Source": "Repository", + "Repository": "CRAN", + "Requirements": [ + "R", + "Rcpp" + ], + "Hash": "6b8177fd19982f0020743fadbfdbd933" + }, + "rappdirs": { + "Package": "rappdirs", + "Version": "0.3.3", + "Source": "Repository", + "Repository": "RSPM", + "Requirements": [ + "R" + ], + "Hash": "5e3c5dc0b071b21fa128676560dbe94d" + }, + "renv": { + "Package": "renv", + "Version": "1.0.3", + "Source": "Repository", + "Repository": "CRAN", + "Requirements": [ + "utils" + ], + "Hash": "41b847654f567341725473431dd0d5ab" + }, + "reshape2": { + "Package": "reshape2", + "Version": "1.4.4", + "Source": "Repository", + "Repository": "CRAN", + "Requirements": [ + "R", + "Rcpp", + "plyr", + "stringr" + ], + "Hash": "bb5996d0bd962d214a11140d77589917" + }, + "rlang": { + "Package": "rlang", + "Version": "1.1.1", + "Source": "Repository", + "Repository": "CRAN", + "Requirements": [ + "R", + "utils" + ], + "Hash": "a85c767b55f0bf9b7ad16c6d7baee5bb" + }, + "rmarkdown": { + "Package": "rmarkdown", + "Version": "2.25", + "Source": "Repository", + "Repository": "CRAN", + "Requirements": [ + "R", + "bslib", + "evaluate", + "fontawesome", + "htmltools", + "jquerylib", + "jsonlite", + "knitr", + "methods", + "stringr", + "tinytex", + "tools", + "utils", + "xfun", + "yaml" + ], + "Hash": "d65e35823c817f09f4de424fcdfa812a" + }, + "sass": { + "Package": "sass", + "Version": "0.4.7", + "Source": "Repository", + "Repository": "CRAN", + "Requirements": [ + "R6", + "fs", + "htmltools", + "rappdirs", + "rlang" + ], + "Hash": "6bd4d33b50ff927191ec9acbf52fd056" + }, + "scales": { + "Package": "scales", + "Version": "1.2.1", + "Source": "Repository", + "Repository": "CRAN", + "Requirements": [ + "R", + "R6", + "RColorBrewer", + "farver", + "labeling", + "lifecycle", + "munsell", + "rlang", + "viridisLite" + ], + "Hash": "906cb23d2f1c5680b8ce439b44c6fa63" + }, + "stringi": { + "Package": "stringi", + "Version": "1.7.12", + "Source": "Repository", + "Repository": "RSPM", + "RemoteType": "repository", + "RemoteUrl": "https://github.com/gagolews/stringi", + "RemoteRef": "v1.7.12", + "RemoteSha": "e4cf3176bc3943e6c477885be3445cbbd7d4bab6", + "Requirements": [ + "R", + "stats", + "tools", + "utils" + ], + "Hash": "832ef2a01603f8f5b4f2af024080d5d9" + }, + "stringr": { + "Package": "stringr", + "Version": "1.5.0", + "Source": "Repository", + "Repository": "RSPM", + "Requirements": [ + "R", + "cli", + "glue", + "lifecycle", + "magrittr", + "rlang", + "stringi", + "vctrs" + ], + "Hash": "671a4d384ae9d32fc47a14e98bfa3dc8" + }, + "tibble": { + "Package": "tibble", + "Version": "3.2.1", + "Source": "Repository", + "Repository": "CRAN", + "Requirements": [ + "R", + "fansi", + "lifecycle", + "magrittr", + "methods", + "pillar", + "pkgconfig", + "rlang", + "utils", + "vctrs" + ], + "Hash": "a84e2cc86d07289b3b6f5069df7a004c" + }, + "tidyselect": { + "Package": "tidyselect", + "Version": "1.2.0", + "Source": "Repository", + "Repository": "CRAN", + "Requirements": [ + "R", + "cli", + "glue", + "lifecycle", + "rlang", + "vctrs", + "withr" + ], + "Hash": "79540e5fcd9e0435af547d885f184fd5" + }, + "tinytex": { + "Package": "tinytex", + "Version": "0.47", + "Source": "Repository", + "Repository": "CRAN", + "Requirements": [ + "xfun" + ], + "Hash": "8d4ccb733843e513c1c1cdd66a759f0d" + }, + "utf8": { + "Package": "utf8", + "Version": "1.2.3", + "Source": "Repository", + "Repository": "CRAN", + "Requirements": [ + "R" + ], + "Hash": "1fe17157424bb09c48a8b3b550c753bc" + }, + "vctrs": { + "Package": "vctrs", + "Version": "0.6.3", + "Source": "Repository", + "Repository": "CRAN", + "Requirements": [ + "R", + "cli", + "glue", + "lifecycle", + "rlang" + ], + "Hash": "d0ef2856b83dc33ea6e255caf6229ee2" + }, + "viridisLite": { + "Package": "viridisLite", + "Version": "0.4.2", + "Source": "Repository", + "Repository": "CRAN", + "Requirements": [ + "R" + ], + "Hash": "c826c7c4241b6fc89ff55aaea3fa7491" + }, + "withr": { + "Package": "withr", + "Version": "2.5.1", + "Source": "Repository", + "Repository": "CRAN", + "Requirements": [ + "R", + "grDevices", + "graphics", + "stats" + ], + "Hash": "d77c6f74be05c33164e33fbc85540cae" + }, + "xfun": { + "Package": "xfun", + "Version": "0.40", + "Source": "Repository", + "Repository": "CRAN", + "Requirements": [ + "stats", + "tools" + ], + "Hash": "be07d23211245fc7d4209f54c4e4ffc8" + }, + "yaml": { + "Package": "yaml", + "Version": "2.3.7", + "Source": "Repository", + "Repository": "CRAN", + "Hash": "0d0056cc5383fbc240ccd0cb584bf436" + } + } +} diff --git a/renv/profiles/lesson-requirements/renv/.gitignore 2 b/renv/profiles/lesson-requirements/renv/.gitignore 2 new file mode 100644 index 0000000..22a0d01 --- /dev/null +++ b/renv/profiles/lesson-requirements/renv/.gitignore 2 @@ -0,0 +1,7 @@ +sandbox/ +library/ +local/ +cellar/ +lock/ +python/ +staging/ diff --git a/renv/profiles/lesson-requirements/renv/settings 2.dcf b/renv/profiles/lesson-requirements/renv/settings 2.dcf new file mode 100644 index 0000000..169d82f --- /dev/null +++ b/renv/profiles/lesson-requirements/renv/settings 2.dcf @@ -0,0 +1,10 @@ +bioconductor.version: +external.libraries: +ignored.packages: +package.dependency.fields: Imports, Depends, LinkingTo +r.version: +snapshot.type: implicit +use.cache: TRUE +vcs.ignore.cellar: TRUE +vcs.ignore.library: TRUE +vcs.ignore.local: TRUE diff --git a/renv/profiles/lesson-requirements/renv/settings 2.json b/renv/profiles/lesson-requirements/renv/settings 2.json new file mode 100644 index 0000000..3331ef2 --- /dev/null +++ b/renv/profiles/lesson-requirements/renv/settings 2.json @@ -0,0 +1,17 @@ +{ + "bioconductor.version": [], + "external.libraries": [], + "ignored.packages": [], + "package.dependency.fields": [ + "Imports", + "Depends", + "LinkingTo" + ], + "r.version": [], + "snapshot.type": "implicit", + "use.cache": true, + "vcs.ignore.cellar": true, + "vcs.ignore.library": true, + "vcs.ignore.local": true, + "vcs.manage.ignores": true +}