From 07b4dcc24ad45ed9c76708c9b16aa8557b30fc7d Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Todor=20Kondi=C4=87?= <kontrapunkt@uclmail.net>
Date: Fri, 7 Apr 2023 06:20:20 +0200
Subject: [PATCH] Starting from a trimmed down state in test-plotting to enable
 prescreening.

---
 inst/testdata/plotting-state.rds | Bin 0 -> 3220 bytes
 tests/testthat/setup-plotting.R  |  14 +++++++++-----
 tests/testthat/test-plotting.R   |   7 +++++--
 3 files changed, 14 insertions(+), 7 deletions(-)
 create mode 100644 inst/testdata/plotting-state.rds

diff --git a/inst/testdata/plotting-state.rds b/inst/testdata/plotting-state.rds
new file mode 100644
index 0000000000000000000000000000000000000000..07de59172ac67fd76d7c9af9cd1c704c538482ec
GIT binary patch
literal 3220
zcmV;F3~TcriwFP!000001MOW4Y#hZIUf<b1pC3salR$t5lNb^cV(#VGhD6-40nWuf
zTR9U@!7O`wbG~ivcCWj8!A^=Ggol(OT8e~9AA%5&`cNf8RS9TIOGrzJT3S-IRn?;M
zQbh$)izotBE$KhIGy6I_4LF3u9?8FV=KtsM&CEZKU4Og2ww2?!AlDcOaKR=Ba!XQ~
z?67ccyf3jaI<#pJj9q35E`YDC<k|qT%)B;oVYr4;DZNk9cXCjYOWmZ1Wu*JkHkD-E
zz{(FmaABNPuvsWKM+MEYo=ZfcR{0IbeAdRiXoyycX6{CRmHpk7O4(mzq_4kwtLW3V
zMEW9;XstekQ<r7MhoF&WE9=qjf~+7CZ^dy*6*Zk|f=HG~FrXPOu>PjD=2byajiRhf
z&C%SIWm(t3EL1ckRW)7J1X(Glz7FUxb2QxfkR9g2hn+AU(+|_aCD0<M#t@96hV-JN
zjn!&{dQ2g~<r)H`Tt<RklnW44OD>!NABJEi)jg}q11Ug9P%{J!*cB6}y^dwp67m(f
zcD$P7i>N#z8%RLY6;)TuvZM>KNGu+S#s(};HnWEP?lGcDVu{ag$8E>@OUHAgN8kR=
ze_S2g<O_RRV`X)#mYUVZ;}L=SxSiYIJ?pMkBvnz6WS~5+mMdyi$zLIt45VE+tgD7v
zK~~I{ZOO307l*GxGt}zo%`i#THHwTYG;wMx%%z;DqluXc_1*KazKj%O9Em$dMMEm4
za=Kco8faA1^{r^9EE=+^%$a%{DnWvsv!-54>&qfhJATrY1R*afc^RfWx<-?6d&s=W
zisecPWnjr6nq{Nnv|O&1Cp3h%qKZM?b1f-nTtnlUDj{<+*@co$vXb`Dq^fSroz`+_
z><@uU|7kfMz0TpfOKBe=Ei0)SMSSL1p-_TVWEjfdDd($VX;jUmtQ1ZqL4PH4R2C$q
zwu8TqqP)O^zZgW<kx~>D53yU>J`Qby$!zJYiR4DzI-CcyT#)VlX{T;zcDrvObES5C
zy4?pdM3<j@PAJGF+7nF`Q4`B_AYp~kWJQ-HLC1Ze(_YLI-|?v>7$3nb06_;+^>Rrq
zm0<1&5*<EjX;LaMwpN2Z;95z7utb_kb9Cs{a#_@71gPJ^oJYCpl+ysCNRx+Q*+ZJB
zNHl2(O&gjh(T)$pO0G-brqtC#1$nCKw5VA_6;-3DL(r@O_z&mVMCgKQZrE+40h>vd
zhA7>8q61VFvsHss6{mrOZF5o$QDZ+1Y_e^3M!WPu+h&&)i%{c`ZS1#05j*4*8)fi6
zQTWy-w>g;&?0tXVKsvd7@9pAuclRVew>P>hoPIJn*?9YrBR_3OPTp}x{LR2i$r~D@
zGrf1;pS)quQ_sJ+p)+~o-pgLN<G`eI-T(G)-@EK!^2TSBzb4w&Cv!Qi>8|{P$(;1f
z)2CC9C3AcJ(RFy^%4F`DmtJW3Qz0qcW*mBI*Tu>Fp+gV6yGKo;*IqDwef{T?g+pI^
zyXTFIlk$PHUVY=7XBocv;iKbxi@A@49%k2tdF8yDLi2T_8`6^-Sd7J3>?6gz^C^%@
zEsW4rV+$j6&BUiX<n^y$Dy6d^3)V-_>zkn~OEZ%5{4<m)iHZ|#&LYia9M{y6%eY;1
z#ljOs4XLiYE&PmbAlIYSVI6L!tM1B1Jki#aj_>`aTxFUX1Mc{#;>uFh5X&wMBQv@y
zy=8XNw~ivCD7#UG)3R>Jc}LMPUPQ`FN%XY4C8YrjSA1edQ(YCcO=vR}L#-4=r!lM}
zSx44MM|!7tSU0q)WK`{^l}y1DOtHWf-Zh{l!}IIMdbiLcb{j-9y&hG2hF{N*d37CQ
z{Q51Ri}F05p$|j5ATQs09iL23`pY<j2Q}7@&2I0^5IdjsXXLF6a}<1<Stmb7p<u(!
z+2TXL(yq-?d#%gOY_sL-g3jV+uZw1?Ep7>)<!d{2l>;HVh0nlG)Q^$3Y`pp7vz}&E
zmoZWLieBw08uEg%wuE!N0Qi_)Q_P!?c?k0m<{`{OKAMO4ZYud$x<4}(v!n6!Kut7m
zNBh%5j<p4%(WpCh0-NKu*(xh*$2X;;ad&oqJdqyE#9Xx{aDMvNwJ@$N;<ATv{sbsu
zUU;4iQ6GSzOx#uBkOx00Fj13$*4WBNqv>eOQzh#@)_teG`@EBQ<#6`0L?kMtQbN|q
z3l&xGEAJW|VOD0HmvuR@UNy!n%n}u@nP8U1Y4LLQ+DOX4@Kzcs@1h}_L)R?k^HrOF
z7c@l5+Y9Q5Y8zc#(xx4XdXr5x&W;X`Tu%4S&=smyu9ifa%VaTniSS`fy{V6q;V~03
za4Y;ecI?<;KVx1hi8}q;icP!3G{-(S)6misG?R4cDWJ1Y#-vh3EcNNARM1cXFQi01
z;2ch8J$6&Gu4)F#b6)zYt11@&jMi+;tbE7%pa-xRi+x&SjM`Gyp}L@_%qPV7=?wn7
z;WK{vqQJ*7e)^)ga*R{Ps8FmU7j#E5P8m}$#o|^lP8s8aaEvj;JcM}&^AN@<`*g5+
zSog8+W1KQ(UC7q@VKXsHJy`0C=fo_hkW*%Ul63Q}@M|%NMaT+ZF5N6NwV?kqh9|&G
ztKsF%Nhv!%6Ky^$GZN-6k47v|jTqGNSaJ0L(jf)PN*+x^Jsq4qM2=Aq4D(Zf#7LVn
z>t`n$@plYq*!gJgtY4XhM&~%sr&>*>9sQyyJ&M)M_b6D91v$oAtLso*Fwf=_Vk~18
zW3i8mW$fZ1I($Dz=a3EKcF3V3I$S}AAvj=%9KxYZRJ4n8n1?kC$67XHEr-$OD>C?>
z41DYCyP2~-Fuok*G!XpNfBaeqW)608)_(-R2WR}h5n4FT{Qn0_IqN{%41x>8_k8W7
zJnWb&K+XqQ4{{dBIUs95&I4J;S+@^ofSe6-I>=g(RUl`Ad<JASNH@s2AUz<xAQuy?
z7lFh<Hi6(aTmo_d$b}#g5Ii{sKsJK(fnc^Peh!)d=?59~o!gs8hs^%EjQ57dxr=F%
zL_^M>{M)`c@37_%Gvxo*6en7gnY;Da95+%SK_HcQ+$l_4qLsMPQsP4NjiXNDLd%JZ
zHIw|*1p_X3TS45So4Cdr;xcCt*XkjzwTigiI^s&_x?FIj%iVg3TO^2UY$7gmA#tri
z;#wPt+g(Cjso&*-7r5MwjFWkv*U7Q7bX|w);ygT`kawO1$Q)_poFzF#<_=w&@tmW}
zGo6deh_BN5hv(f2GEYt?bBiv?XOX!>mu5WYx;blp(YZ+HAf11B-u04svVqJkx+Gsj
z<_=w&@tmW}Go6cc4$}FznPV?4EDC%adud@&Tsbz*i{i?$ab6Tx&e@-D{>dvD1NN7j
z8@e9c2m8zV8w28BV1L=2{+2Qb`^)aTrc+PC{<7{s;_-jM{_@z7C%@7G`^pw{^>ER-
z?tg3YiGM!_`-?0-GX5IuFFTHHTe}VRm;0B!GEs&7<?q2QGYaf4fBg2BSDgd<i*mzx
zYm%_P{ODIZ&TfJI<+=3T+;3oixp()gH%DQA>H1>kk?%2l^TX#F=Y8>b_t}8+ONUb1
zp9Y*mKU;Ru{ebhHk@uG#0i5@|JbAbQa9%RDx-bYh5C8IwU#tLp>46{qcbjwF|K8UA
zecu3_#`VwsybL&}+kX7$TY&T7)l2){1f1{oeD>w10q1M)-1flt0q5>@V@DH!^ZBV;
z{`LpJ`TPA#o@fG`4;7}eJmBmZ-t+Z8Gko*IXOHu?SIK!%BIiZPIxk-TIyo;Q>%2Jm
zIyo<j<h-bpb0WRoOU{c2$$4=bIWK0(dGQP6ym*kD7d3KTe4LyYe@D)XkCXG_eb#xF
z;hPseXFjhXI1dn<2grRv55f5;xi9D;IQJ8r_Yr*bdXV6Jk>Jz_PMzSqm*9Mn;QT7V
zd6eLMhu}O)aQ=YYw=jJ3!N;BWa|0|V^SJ?*llj~L%ZGVx@KM{{ev;eWeUjUq_&@DF
zMe8@c*6aGXu<>yp`}$4SoqAm#7Y9C$-Cr#Vd>p&KS`_#=_G%8ZvR8AMg}s`?ET{f+
z&z-f*A3_!)OoQ3JYOEPTSytRJahk;1%DaSutRPncM`fq#0F|VQn(j{LR@y0>D;kn)
zG+|j+tt3RT1QfL;d9-#>?O5x>=F-{eT%T4xC6q2U1jieKkiV<_AF)0zE3HcqY`lU%
z8ggPU`vhSO=vd;6RZUkleU=RLL)(p#suXBuwQ5u6@;RT=*zX?c=GVrc#Qy=;zI~ZU
Gi~s;_L0h)~

literal 0
HcmV?d00001

diff --git a/tests/testthat/setup-plotting.R b/tests/testthat/setup-plotting.R
index db9b6ea..e11124c 100644
--- a/tests/testthat/setup-plotting.R
+++ b/tests/testthat/setup-plotting.R
@@ -1,7 +1,7 @@
 
 
 
-PLOTTING_STATE_DB = readRDS(system.file(package="shinyscreen","testdata","plotting-state-db.rds"))
+PLOTTING_STATE = readRDS(system.file(package="shinyscreen","testdata","plotting-state.rds"))
 
 
 synthetise_cgm_ms1 <- function(n,fac,shift) {
@@ -109,15 +109,19 @@ synthetise_pseudo_state_db <- function(db) {
     extr$cgm$ms2 = extr$cgm$ms2[!is.na(intensity)]
     db$extr = extr
     db$extr$spectra = synthetise_spectra(n_mz,db$precursors,db$extr$cgm$ms2)
-
+    setkey(db$extr$cgm$ms1,precid,rt)
+    setkey(db$extr$cgm$ms2,precid,ce,rt)
+    setkey(db$extr$spectra,precid,scan)
     set.seed(NULL)
-
-    browser()
-    1+1
     db
     
 }
 
+
+fix_testing_state_conf <- function(conf) {
+    conf$prescreen$ret_time_shift_tol="5.0 min"
+    conf
+}
 ## synthetise_eic_ms1 <- function(precursors) {
 ##     ## N = 
 ##     dt = empty_cgram_ms1(
diff --git a/tests/testthat/test-plotting.R b/tests/testthat/test-plotting.R
index bfcf5a3..04cd8d9 100644
--- a/tests/testthat/test-plotting.R
+++ b/tests/testthat/test-plotting.R
@@ -1,6 +1,9 @@
 test_that("get_data_from_key",{
-
-    s = synthetise_pseudo_state_db(PLOTTING_STATE_DB)
+    m = PLOTTING_STATE
+    m$db = synthetise_pseudo_state_db(m$db)
+    m$conf = fix_testing_state_conf(m$conf)
+    m = prescreen(m)
+    browser()
     expect_identical(1L,1L)
 })
 
-- 
GitLab