From dee2e22159a6a6d12216ed4686ff67ff2c16faa2 Mon Sep 17 00:00:00 2001 From: Kiweler Date: Thu, 10 Oct 2019 14:34:12 +0200 Subject: [PATCH] c tool for ltq_orbitrap_ms --- R/load_meta_functions.R | 34 +++++++++++++++++++--------------- inst/bin/MARMoSET.exe | Bin 25600 -> 26112 bytes inst/bin/MARMoSET.pdb | Bin 62976 -> 62976 bytes 3 files changed, 19 insertions(+), 15 deletions(-) diff --git a/R/load_meta_functions.R b/R/load_meta_functions.R index 0e45282..ba388ea 100644 --- a/R/load_meta_functions.R +++ b/R/load_meta_functions.R @@ -72,24 +72,28 @@ flatten_json <- function(json) group_count <- group_count(json) for(group_numb in group_count) { - if(!is.na(json [["Group"]][[group_numb]][["Instruments"]][["Thermo EASY-nLC"]][["Method"]][["Gradient"]][[group_numb]]["Time [mm:ss]"])) + gradient_data <- json [["Group"]][[group_numb]][["Instruments"]][["Thermo EASY-nLC"]][["Method"]][["Gradient"]][[group_numb]]["Time [mm:ss]"] + if(length(gradient_data) != 0) { - time <- c() - duration <- c() - flow <- c() - mixture <- c() - for(i in json [["Group"]][[group_numb]][["Instruments"]][["Thermo EASY-nLC"]][["Method"]][["Gradient"]]) + if(!is.na(gradient_data)) { - time <- c(time, i["Time [mm:ss]"][[1]]) - duration <- c(duration, i["Duration [mm:ss]"][[1]]) - flow <- c(flow, i["Flow [nl/min]"][[1]]) - mixture <- c(mixture, i["Mixture [%B]"][[1]]) + time <- c() + duration <- c() + flow <- c() + mixture <- c() + for(i in json [["Group"]][[group_numb]][["Instruments"]][["Thermo EASY-nLC"]][["Method"]][["Gradient"]]) + { + time <- c(time, i["Time [mm:ss]"][[1]]) + duration <- c(duration, i["Duration [mm:ss]"][[1]]) + flow <- c(flow, i["Flow [nl/min]"][[1]]) + mixture <- c(mixture, i["Mixture [%B]"][[1]]) + } + json [["Group"]][[group_numb]][["Instruments"]][["Thermo EASY-nLC"]][["Method"]][["Gradient"]] <- NULL + json [["Group"]][[group_numb]][["Instruments"]][["Thermo EASY-nLC"]][["Method"]][["Gradient"]][["Time [mm:ss]"]] <- time + json [["Group"]][[group_numb]][["Instruments"]][["Thermo EASY-nLC"]][["Method"]][["Gradient"]][["Duration [mm:ss]"]] <- duration + json [["Group"]][[group_numb]][["Instruments"]][["Thermo EASY-nLC"]][["Method"]][["Gradient"]][["Flow [nl/min]"]] <- flow + json [["Group"]][[group_numb]][["Instruments"]][["Thermo EASY-nLC"]][["Method"]][["Gradient"]][["Mixture [%B]"]] <- mixture } - json [["Group"]][[group_numb]][["Instruments"]][["Thermo EASY-nLC"]][["Method"]][["Gradient"]] <- NULL - json [["Group"]][[group_numb]][["Instruments"]][["Thermo EASY-nLC"]][["Method"]][["Gradient"]][["Time [mm:ss]"]] <- time - json [["Group"]][[group_numb]][["Instruments"]][["Thermo EASY-nLC"]][["Method"]][["Gradient"]][["Duration [mm:ss]"]] <- duration - json [["Group"]][[group_numb]][["Instruments"]][["Thermo EASY-nLC"]][["Method"]][["Gradient"]][["Flow [nl/min]"]] <- flow - json [["Group"]][[group_numb]][["Instruments"]][["Thermo EASY-nLC"]][["Method"]][["Gradient"]][["Mixture [%B]"]] <- mixture } } diff --git a/inst/bin/MARMoSET.exe b/inst/bin/MARMoSET.exe index 351ac9620ecb7dbcc38e6176ad7e185ac48461fa..c371953e12fd18ee792edd28be64020ab63d82fe 100644 GIT binary patch delta 2271 zcmaKu4Qx|Y6vxkP_g>%YYrDR_wcR?#*v44bF9+jeg>JAhHYORcAp%MH$YdcnvEz*d z2E-A=ri3L3caShAannQ*2?@o7gb#@^0~8{P8jS)mVH%8tVTd15)N@~N$1u?*yY27% z&pr2?bKkvhyDpJkSI8?bd&=Iua2xn%6beBxl>s#GKhiI(PXJWV!KN7PBwnks6rCpF zUo-6|LGlzGCN%<70IW~iO&^;{oPI6j*M{w8T?1%OOarinMA2g&3fjzi9-92+XtIia z0uT%OMxO$lRN6jE3IUaSe2nHRY=t}A5BJGHmr-=u&#R!A8Di3 z%sr%@_GQL!{->D}O(@*Y^yRa({Vgm^jpXUqyIBYW%NZV|0p}6&C%x><&1I6kBaW_G zhF24ef;G{jS#Wp%cDlP-%>XW|e+_d`Jeo~aQoT2F^r_0fdT;Y;wuB}m_ay`VJ9th%`P14a*%jb+uG13OF~DN&eO=RPS*u>}M5w^j@4MCJrE&{S?O=_wZT~6Mal|>lawiaZ^8IVn+xEv11jEO2=Y! zwBbnq@H$K;i7MICa$ORZau|iMPu3TY0hZlES7y&s?h)XD%w%a=hf-lk4eit3j))Z+I*ve+kxT`_DkKo9J8RtiN>F@@0~ zsFoKAQ(%ulJ<^C6gHqVf=`YcV)X(XlB?bW);`Fw~iFAz9C1I5ige0fy!fK?moPL8< zLI^(W;;4|-h*vp9Z7~SL7n~YxPNbWhRMaByJ*Q&SA~2ew?4ynr;R%RigIP&lSDR1{ zr#MCAt-?$=9Y|>pq^-g%=nHkFP(-l;&W2NT1H~v@!#58LGXb^P@BrUltTV$(w=f4H z(+v$56d?vPQzTu-KEBQdCiC7fO*PNbF7fvw*owMjkZDp<$GEz(}0 z3N~_TRbwz0HgnpnI+3<>TBgKc9=ymYt~inQa&k#0p&BTsJjp9m!vLo!YBlgC65ggg zQX`5raGZ;G?45Y_-{bVFogkg(bi#2GYGIhu2M(`L3)fPFy_g^@fSq_pU`(Skb+9|x zU3g@oBuAhblUb20sQyTz?>G49NW%i>0ipfMoNZb|_l2*HYL#cdNyeVMBD#CusO)7S z@Bs$=ZvzH!7@&DgMd6EgI^MbUg1&Hf=oyRomoUB#0pjsR4dG>FQ_Cyj)h%1X)sy3! c+BR-&eXf;0-E=xR+TtX1w52oYX#QFK2aGq-p8x;= delta 2204 zcmaKuYitx%6vxlq-I<-)S9f;0yWOP^Xlc8&)ADEw+d3`u0ToDXDe{U`D2hhGY#m5= z6jD?u5D+bwhZIC9prAw^YYbmN@j)s=Vj#o_)(@Z|#1B3YtQydBXYZDx(M@)GfA@dR zx#yg@_iopmCu@4is~ZBYp03TnKR-b>I4z?9n!5IO3$_?Qlq$_ST|t75ZH;I&6u(Wh zn-r2}dY04(z2gA%xZCoDl{C_?g{-J1iUDg+q04Hh0Bw;H0Ea`25P-rWr;){`%5bW{ zViB#j2reW>it$kZR2PprTbN#hy3tDSh`A4No;^}LNJq<9En3F>_)r{*D7Fs=uo;6) z;;ZcM6Y>NdEe|E@XtSJ8UZ*SN(PTe8BIlA%=tX>9rTwyoHo1<4o zXpJ{JUm>`{HCKMdf2~lbNX9Li=dL9(ebzlfa}#JYFh-(WRfw)sxJ>v>=n7Vt(Tr;JhDwx%)VnDSgM$(eUm?ZP8 z9no5J^*It*I|HgqaVFlFnRr-n{^O0gf~qTensw1>uxb(o4%l_vuaFt;NEjYW8sdg< z8mE$^6(KRrxXh;5jx@zV_#+CuVGU?}>jBrlm}`n9={gKY!;F#v9^~sw)`30s_=4Vg zG>R<8^@>th6JxZ@R}mU$bRh{Su6f#2d(1!+O{MSnX5ss>sM+D2Ec!~*QIQQs=pS2* z6ST`0qO(*#*-4*M3&=kDn!1l1rWL8P$Z@(gb&?8Doep5Zj$olM6WhLv-b}5^JI-=3 z&$VoP#lknU@NU`YOM>P!uG0p8W{Sg}ls$^g@Y0q3g4FA5d$40~?zsS37@72>Unec} zwm*vukNX2l2&tzVgIP~ip=!1K>#QfwhZ)99rH|z)#=0=97BF5!H!-#q!5X3X?7K#o zx{axR;{z6Skn3mEla_Dkx6^THV}?i)X1ogxi^8%|Hvm}OD!Mjpf~`?D-lLb(c3G}S zv@Mi6`42Sd$qiZBBX}QeE(ahzxnbj;IXmQkQtyfE!9~p6zYVKyL!=i%L7&-iY_|E) zuq2J%4mF0-Wq_O+)8R?HLcOTv)X$h)hkuvGTf&0aF$(WOfKFKJtrT)V%VV?ys^zId z9;`O0Q~F-iVFaw>bWijmZQ-=tu0sLr;B?6DMS6o%uP{d_gts|e5?YXsaq5RTf(9o$ zI66rS;u%imE**;Cb50E|FVaO$3Tnl0g;OqS#qeE%(hhqT2qU2h+sR4_`W6W#aEMc} zyi6DiM+y?!uhKGM9Bj}!5-6e=g=0kt>O-*{KEwgpc>YN5YG*Q))o5 z243LeP4@~sv>Q47hQBJcu$9wM&k3l5ZcZP2fc(^g9*_lZ&JANvA zZ)SX9b+1Glri}Lil)1L|N1NtPe7Af-!?~AVs*LZMa$fZBm&(pDKisu28^1dKKcUmr n({cg_7kycCp!A0+J^7a7r+0sJ2M;4ORnQC5PR2ct{-XR1P}08` diff --git a/inst/bin/MARMoSET.pdb b/inst/bin/MARMoSET.pdb index dcafc777b13d2ada94a227b669f2f38d6fe8150a..5ef65df937f36e86935f11a02231888e2cb7673e 100644 GIT binary patch delta 7478 zcmeI%dsJ3c-oWv*AD#!HAVE`8l*=gUhz?#NY)}aiMMV@9ui!QC2HvnlF*#ncv@GG* zjj~ZHm)HVtj|8KJHW_16HZ`x>*bHXVSlOuEr;BCp_jiDmGqZ&Ek9q&=S!C5N}K+L<)3 zY}m37ChY6?OrH^<>t8GQ{FSpML!_ z5@s#ymCz+4cfq{nSvgs;47 zc@8-_nmf-w!do^|p7RGZM|0=ty}w11=jqwZIrc={+~nU!$ka;Bas6`W6|P^e5%P59 zjZOZ2gdEx5rkQh`u59D!KpUSZN@zFgW_sPshMwnixQ0!Cmt}1r?B>`PglY7O3c?VM zYxYFKNshPI-qP^fAkm%QDjHK$+$E*3V`zP%o})X_kiYdd$8LV-^jzY4ZvA^bmQ|n4 z+3NWl^Y%S+=sV4;*VVjw?Ap9q=El5_dxLJ(ym~L1mt(*Fm&{to#>_>poq1a`YvDDs z9=rC$C!|kg>!b}F(W55_*B;fXXgt$*gHuZMOj<>nSC3trcZgJUY3Hv;w9>MQ64veS zx-8Ia@ZQyLbfD{IE#u_h=CS5LEGnx`GTiBCv4bH)}xDeN2KCZ`=cpt9A`*AaF z#3I~`kK-0B#bVSu6g-5F;>-9rp28Yg6H#iQrNyM-vW~9il z$!51)8W!uf&Qsr)>&RQEcx`J!D>xgwfIFxGWi6XlBS~ zqode%8gs~OkuzhWDWQK_KQmSarp1}{vLfvP(^@=ZquIucU1x5W-;OOXp%ODLnr+s& zL&47E+R)te3g0%;XM8u0rnd2Bj*m8;ETWlGlpf{DAeJpJrN^0k`5`^lOp%xg(Pn{U zO~^Crq|d|<37_be;{yX+n>;e8ZwGdRsJA{7qbOA-+fpafrvu$mHZj0eR-frjGVPW3 zI9w%xlcK0ZJ=69$ zhW%J%+}ZIB>6FXKM>(wd(q?KLEtfVmr0_2C=r!)f09=l(Fdy6F3Jk}U*cn%06za9~ zn!0~G>WE6mH8=;?;yk<;3s6VUR@{VT_#oEkpFKpRmV_cai8_SdK^;OLq7I#}@JYOa zoW#D0I%52&uu{AUpTqXJ1GS=eVsCsNZ^Lr@HSWecP;X$cq1c)*oP@oo6Q&-}IYHAG z;eK3-UR;J%crWUm3u=Cy0}ivl3y)wGzJ$l{82$-g!9U}1473JVfmVMjP%dN~DxBe8 zKS6mps=potHs1m1rPNBBXX=FaL-bQVoKVwHcgW5iS!E4(`_qBcMa4??5X?PA7 z;QO?Jy^P2QBv2a`b#Bv0)&+bFKSpLL>mojbmyxQnKE-PM0=4~UBl~sy8sEil@bCC7 zevY)A?coN$$3Xl6b%6Y6&9UrIBF50u(1qH7Zj43#$ex0}I2UPjdjaa5tw62+`!JaF zhmi%&ej3~24!i~TVF&S_?q$w-ae7E$Bx%~~yQ0==H`H3~j#{fdFaq`5T^shJu@~tB zF&Y`c79GrHFu3+jL}WAU=ihNJkxE4JJa*w34tAhvHF8My*9H zfQ|w!z(+WeeQMlFMQYAULw{~+oRrSUD-7ixbcLhtonKqFy3Xrw8aee=r=#BL4Afht zt2?(k8?U`p-FGGx)LW&>?R=b%Hs&JBpT*Fy1(z6Ws57z|8%_sVjujkW9d$Yg>!^K< zeLeA?P;coRu4Z3vZ4J_Sto7VVgnT!1P~k~8GkswFEj6wM%yrgr()C9xJGZn2^_GfI zZ>boy^&Y`+d=zy|Jcc@^oy&%Coo} zpF^eri*DwOnVqeA)T&0E%nl-5$U2PFuT_KDcm(tCC{oYXOGrIiuONlCevcH!dKEdR^*SEI zH}JJWB7Y>pj>W`f{{>Itdw3c@!83Rj-$4&k6?tqwtiu32i@|sf2jJf@3IC4zobw^h z!jEwYUc`L7goOn}E)%hli`ft1=eQNW#8Uhxmg6^Ah2LT=Uco;ig|pA1<+AMa=)#YY zdDZ?FTcEFxW%=Wccq0bmO)locjzoe;=z*>AHf)3au^kS=_LzVjFbO+iGIqjL)Xp@f zVSfUKk*-fG;kXDR@P5>M5260uW7yd>%(6>}bRpp>?2h_iubuJ`>L0v{y-0rxd*fN` zix)8lzr$FWoV6>kuhq#)Cqxr^%8ywWT>V}0arOtrbJv>;xp!_9+kJDtHWOsmya#wX zi<#ea-@cgJZDcp9xf8Ro zt~;TqW9%2G>rNylAbISO*d0@ly!KQiukCNeuo^}a;w5_FFZKEh2Nk}X#NlTe{%i+M zVqb4Q6LtSi+=)3@hB`8Lp^ixAR(l1Vu9Ge~eOIc9m&m(g%}~i? zn<|gq-H%p(m2IZ{K+2sGvpm-1Nbd4DlP9~_7RY&0)=H=RSl&?5*%ry>{8+z|RyvpS zXjf6%PTtRtG~300MItXNqgKS3J+hH)mAtYd-qeU^WxT1Cq?KVUYU}?4vgCgrG8(${M z>T_+mCy4Tw-lOjcC)n0Fne=7imem2=N95{fUDJHLe^@;w(lx~8?fTq7W5#&j+fm@l z$Vn(~=ewS9deF$U^0st=qVf>lSt{6W5>pYvYl_B8oOr1dFLUC1op_ZKKjOq|ojC7u z*R-u5KmkSo*ZOfc{|SrV(*CA-HsQtwA~?|);BWc>Apvw9lq8)zPjXo?;~%N zx9t>6cl(t#89z@w&Q_D+rEYf!4bf*$2)#n%=}tV;iQnnObDVgd6EAS$Yn}KeCtl>l zOPu(2Ctl{n_c-w?Ctjm*k9LCX@*c(1m-zAW)!uIApmf?7A2XPeY$WhJY=uy)d4$~r z-EZpKk$#u+Yv$`v@9@U2ZrA??rRQ-={WrDda@Bt^Ybsa$H?iyIXzrUD-?Lndum9P< zvG_noSB^_U4@5Wlfy?>$*d;n|>Fnt2c{y2m(M^3(ixj>v{@*j7KhUAcYsWTuR6qZP zHIw7%%C^nqI9(Z$zVK7(q~WKXSf@~ifz^uSmUsg}pNwB3FdVG*bRPzT)0G$s*6-NY z>Gu}|-q5T?gd4mmFSItr)qZWi;Vk`0*~zI?{pGtQwE8x4SkkM*{B?E9Ao$9f>aaFb zi0Q?H2wD(2w$)lHsyoZc>f?b!*&9ya>C+k}yMEi*j4euFqV<}C!(9K}uh&QY-2MmK za2bG{w!6cF&klT$ z3CH^Vg}mqAUA;7Ueb3n~eE!)h;^)a+{=X-4cZWBr`Rh;Ug@?mv7?yyKcwEcD6qb%V znE$)*P@-=mcM!YTdjrs delta 6433 zcmeI$dsJ0r-oWww95@EWQSe6NQ7$2nf*>YQGD3)o7rYRfqT+-^Dq?xT6cx^H94Ad3 zJN|SW$1a+dspIwJ4Q#TS8ng1H>0;T`sEw6xsaaFavaC-)2brgs{sWeE-;?+^^bJk4aCw=bzhVoAW>HEa|i9&!5%SZ+N-k)qMrOGixG- zBy`(RvgyhY&yK2T-{u8+4_^Atx@*<>ebaX)ymfg%?JH-BwA}u#5#iT0y7;=${lp*W z5oXQmCwWPU*WWw6rYfUyZZJDpniC>j!6WVT$kaLa&zsfiaQ?IHS`N#$#11a!T*;B8 zRkd0s_QIpLBmgtkiZtxhAE!qF1M2p8o&MB=5Q2 zW_=*K?=)gPe>zEzRgpp;{k~Ay*dtBhT2`+^%j&V#WqV0^YOGI>=vB2oqE{F?%i{~z zHR@Tk23l5+wJxhQ2$l7}_Wmg?t2NWIdaQNXW#om*&X{rAGRpRI+Dr@U!PbSfNkWDD zyx(+{!cJ3ZSv^+eFIckw=30*#ADEXt%Huk01zs62(!>;TEcBUZS#5G8d0>)Tb8}?G zz^~msH3|$GRB24MY#*F!>g4?3d{ZgOMN=blI%q!`t4P)rUGmujs7M2KFGicc3HTsZ z;4g6oF2R}jYkUA7LTxPSWB&?Q;={Na*PKa;?SIk2i(C?CKoq)W%V$(6c0-<^)ho`FXkL(A#f9d$ zTw&WR*(2gz&2IUqM;}=>;;-gisTz5|=`HV!TwyY#VpJ;I<)cc?-SXk6MKp2Q=rp!V zM>m=6Qc#jW zOH8^P8MDa5NcPxFwpC-BVoryJ`r5Jv(%TV|byuoeb0Y%fcV!xPA>nB8k4tm+BPx>@ z#^stB^5eK1lP1~YGtJMXYW!UDfMk_fMspw+p+`v|CnL8dp`$cCAzB z%lvS8rYy>}F<7XXLR;i4hj)l)LK=;zXWDc}xQw3=ijug)%p`ABR@|Lmk*llQvGHi>C zd^-lq@kYEGb(&XTZ@hH*n%$>mKL;zx*L7X<3tRGsVwH3%*C|p`?)A;0jDE*#jKVqC z9_QlEuoe?=9wy;@OhY}Vey8r=jtg-tF2<=?kJHiSZxJp*2D`NspFy2bf3z&0wVdD; zGIUD4jlaRu_y~TAg5Tge{2p~GUBe9+L4)ZGYKu?c&u|lJLqCbV@hQ9&w_!irj(4C| zV1V%jGlr6}lLNX2=z*y%1@FgQeX~F1GF;-Pitk4+r4;I2k{{8Tb)>VAILgSu$u1>l{9ee@B)t>pZeLS@eZXn_3re zFMf`C$Kr0~^xv2GI{RPY-|%bX9M(UOJnLI@Q^D`hga1UGAXlxamK{g%0~rbUBWef! zggMB{?X1xTr?DS~x<+fw>QLMNA&eq_HMYaYFb1DOW~03iJ4s|kfHmj23a^jvaauJI zwN-CIZPg^yR!zo4)N`k_>}TT5Y7 zqivl}XSN+Vs-H4S>Hy+4=TvnfYE>tpR&_GAuBz@kiwbI0D{%oti5ay{mChi2=TvPm>IC;ul|;E(ndjRY&PwkIRw;BZ zsG!8}$kz{dUZ+YcP-EGJOww}Q=$Z}yb zkE|Vd5qIMEe807efbnecEa6O&J($A&UStef0o29p01iUd8=H=@j^Mr6h_t`egbjEU zAH-wGMOiQ6AMj=5f2=>_^Y|*h;UjpR;IH@wevBva6Kux+#y9aYzJ*;}mh}!M;VI0* z(|8Adh@sPFW@!2jK*czS1}AD!g#pAju?TR@p>2QVON4EGUCyLN!SikFdEZQ2TMlF zeqU@)zCMj~z!BIH??o+FgZh89*csNR^CK_UnCV0S!}UgebwKYp|X9(3Ldz!Ym(TO)rk2(F4n9z z_elNBUl>b1oar-JQhr|=+vWESH$&u|`#$A=pSwSGco#-vHx}49B-sgg6Q*M_>hwv) zJiHn6k=u?v5}9Ilq?OGLE|ZihnX`K6_s`1neKd%}n>jojnHctX)CMYV*}n&$Ccg&t zhFy!#piVNqaWBE0xC(dSbEx-aokV+3C((ZV2L@0d7@oyAhUx*m(G(KsjruOs3%CdM z0`vyo#Qp;0r1nC59`(ke$CtP4ufZ3{XGO4H#3x$vnZZuE!}zk)&lcJ=W{$T)Z`->1 z>TO$>s<*H$zKt=c=hmf5_hV6SYP7R;3TaR0ww;Z7+rAyOe1FvPh4_K2nv-w32i}-7 z&bZD+OG<5=GPw4HxlLl`y~Ix7-FerH>ynXo=Z`eelDr_t#7a5acv-jL7Ly{cvdxem z$;p=Nx*XGAX4d7JfwG-#v79G|hxvs$W}=K`J4IG4%!#OOugfz_>aH!Z^6|oCGg~4T z74l3uVo|QKWjWhr^75j5vs&DX^UZo0v^f5{^}&CVc0K(vsed#V-s2He0%w*R~NDCqq#DFeVQwyy~O49TH$=H622XjWA)1T7(vaq=ZZ8e_J-K8(W$5=oU9i+6zG$w0voDS7 ze}nC6r;z?WxRDiky(HUPT*F*}6ZV8;*CrE4dAiYN@kEz?HtqNl^;)1o8&B)slUsMzadIU9TC5JD3@I;q%bJ4x#YvgExjk-Y&`Q zyhxhmyrtruQs+>3@=$y*O!s8Yol}{quc_u{wv?NHIC1PJB|7DUA8m4-@N}BBj5cqF z`WQ?HS=WrnX|6Ys;k8J3~xA18Q#JrO0`p-+T|HDhM6Wya)uQ#U_UH_l;#{7G& zH{o5jL}Z`P_4cV5%>%af{e0Mysjhv0+<5HUfA4iDybHe;tp9y2%32vuoms#>