From 4c60c3b9a25a9c040b6d7136fa62c489c6e6a3f3 Mon Sep 17 00:00:00 2001 From: Konrad1991 Date: Thu, 5 Sep 2024 15:37:23 +0200 Subject: [PATCH] update print status function in single optio --- Rplots.pdf | Bin 0 -> 5370 bytes ToDo.md | 1 + tsf/R/DBA_Server.R | 2 +- tsf/R/GDA_Server.R | 2 +- tsf/R/HG_Server.R | 2 +- tsf/R/IDA_Server.R | 2 +- 6 files changed, 5 insertions(+), 4 deletions(-) diff --git a/Rplots.pdf b/Rplots.pdf index e69de29bb2d1d6434b8b29ae775ad8c2e48c5391..c5e5dff578b5140e148d6a8c25a49e9d9f3086b3 100644 GIT binary patch literal 5370 zcmc&&c|4T+_ZK14E!mQr@(?u&&&-$^Gor*;B4O-nrtx5IV`iEqOU52TzG+d)nxf_F zD?-WWbb7VfoUi9KedlW%0Q1G;21~i${gnf>Ep%RtpW&=GS5hNa~0! zTM!V#OCSa2n=}Au7s!GD(1^mN(3w5}Xif2fIDj?`AOqhg=q#8ZzzNW7h{62=2aT8v zF8s*>2=miHGQ?r>*i@Jw_6L3fz*lqZfEYepUjTywKoc6B3(F6h&|%Y%AS%-f5=hPA z!WQ#G1f*))jgwJ!4P<0LqF-1@vRT*#k{pkEPjRc!Z z2L8bK=G>m#1c-lfk8t1C|7#lI|8$Q8h<{R}zv=Pl zKXv(e#6PLg-;4}!Jo*zqnn(PD8vS=S;sBrp&5HxL0)j0h0|K?lz-N}_xO^9&6ZV~C24I$ORO-zaac$NPqJf?Y?5-8V35zk zvW=1oRN@XSvMCr|tU&7A%aUE4yxl8L;pw%&v8K~cm8L@WWK_01_8H@Ml?xr7ixj=N z!$~6Srz|Jg=L5B|hvI!a#TWfFE+j%1dd4a&G+a4tBAg-|{2+mzA~P*tS-u>2KfAGG zYeKcqr;KA|&MIgj>yrrsZ>GE56y$Fc^c_>xN~~_5yo$AKMwvIOI7eU{j&j~;xCXyV zfh36&m?%AkMox1tG~VB{q3;k;x+)>bQ$c=U$#fZ}YCScQyFJ>Vj@e(J5WEvFggnxt z^@3yTMc1SrL1H2_`vQfYncdzs-VQq5ZINk|tZlyQq9v`G8>_J1%{KbbQJMJXEiIM< z@wInR%XJQ|>qS3EQE*m#&KB}+nRAv6^i#N^viSjlNI>~%`c)x2L*3_2ADP;h>=6|@ zsz6eju6gGelCn(bat>77JrmMnND}>xA1xW1o+SEG6Us`7>^1dm)E#+j|Y)iyPzGLZ*j}0qTLldc{BuuHaP4lZ$ zb1uSIK*-oYWXNFkpoq+k#aC}gl?q8d6A|8qj9t9f6a6eg_V6MSATJwMoVn^)M4sn{ z^J2VADQqO3wTc@~eTF57YlSy@F78=GMlDYdQy)j%HCPdKpkaj^Ife@uH7H&=;B{{89Y3^_N-D_oLN$CgR88Vu`$|u$FZe%l;jTdo=MJf$iin|v=O&X zJHMsVz7zQi;;odW$(}P!ZOwy1Tn$}?w0JEO$IR2MYX%Dkr6vh8a$=EL)C6?ms?Z&Z z>*WfC3l$1icO()IDAXlTatfUOt=pwI9Jj2NeR($>eHF2P#eV7iqMH->k?VT7tgD1w zZhAXoH{G&-=EB;*a%9PrDqNF(vSKVjvUXy;@ijDU5-b_AWNTuEGEyc%;y+Plh8roG zSw~t;2o|Ll0ozoi-^T8|#X1vK8tt@QkECa%s8*$BW9F@jR}WWJ_ER3&kf!ojr4l%L z+r&$ft>?Vsi6LWshVs)5*KIO4I&EBx9G7+2)QRM7bh8P_iFL%z$~E17n#i0Kgcvi>(-nnl!mh(Q`i^!ewx)KqcfIMj(|)mCH~X#K z>HmymrCqEvnvHsQcDa4MrDmGqz&7V#;EoVtHaE%U(xo)X3JjM}LUUKa_B2cLIJDPeC8! zpuHT`ti!-n?J>mf)p7Q2_hdK8Qtx0awIBNhb^nAf)UiNcLa)ZeG_AQS`l6yKMzeM0 z&XtDoV)3hYNOv4fsi8xOF729;noBh+G%}nOoN8VD3WrK&eEpbdjK{wG`sm#9r*rbp|eaxeH?9N5<4!nj&rnPukL@a}NM#Ik{<1O5jhTEkjLvZih()FdC^DI3SJ)tgcCc01O2#C62V z+~UjrB+Q(OV_HUs+mf+9Yi10JUB+o zN)>CKY!5qEY>`_^AJrO_Nf&2|Gmnhj0SBy9%hn&?pl`m<@=3a0N^d$j>5bium3B+h zb7yk9&Q7;(d^A*6AT zQFr{6idt-UOJ~?E(iIQPslH^}qZ8|Obf?VH+36^zXIb|f%f=0F_!HMX!dOyMvPeq<3@+31cDG7$XghVL;BCmT zYrI^Xajg!%lz#qE>_g-OLMd%D=c1*OMSz;TMV`eb^QX)gjH>D5O^(NR@gE*3f-c|9 zqPIBQb$H%2{HUj74boAo1yp*p_DUs3oN9VI@xRni@wkqDiJ4n+ zVy$qDYRuZu)6*kwYqrJg|JUWjBEHYGyPtS*_F0)Bw-Wk>ebf3CvWEpmNv^LdU(0ND(`1q;M@qw>=U0=(iK}HwmC*IrX1YtKB|ze6Wkj& zd%VN3GC#dyC2OR;VJ_+Uu+4qu6SGp~%G(w12OVbe21+=LmL6x0Jinwry}dGS_SDqs z5bTEn_aQ)k%aFeAxMy|bW@=BthON-2$&hP<%I_()QO%@@b&pKz*Yh`kTRo-&=C*eo zP06j@y6KbK?A`uu|LXyB7?j**+();`xsLqPyUt&K@Tq+i8sk2g{NSjN@9lBonoTI@ zndY$Hr;3yQGTLQh1!J4Go(vg$ziRUJXl{a4Mu^B%)Wqz95*_osL`Qt-rx-Kf<^_!b zH&g`o*6&}AG{!athxV0#07*1&ZwPLp2)ZP$02T-O(HJ}qK*WQ4c}y-uhrGE6G!_eb zG2y-sheHEEA2wwle95Iyd4jtxmByy>{JiN<0044nbT63XN1?Kr3;^8Ch6F%(CWT6c z`!Wd7iv};np}{4B7K6$4g1iBcJuf5`zVFlNl;6;Oc?=&4o99QT@VEfT^kFifJ@9Ij zdCnZc)!qF!H}wEEd2ENe*b`m@Q;~Nc)hbxlb)6jVA0vuWg z4;KSJ;0Sp5{{JJ52p2QIr=c){hR2UI;zF7>VId8>P(BonxIjL*m$N_*6alpmM<6V~ zp;3b3?Dz7aQN)Ef%tHI2wNVRkSnY-UaDvM3_iJErM7WCkO5?IAG&;nF8>3jp{8bRWrFxWf~qZn literal 0 HcmV?d00001 diff --git a/ToDo.md b/ToDo.md index d244083..7dc062e 100644 --- a/ToDo.md +++ b/ToDo.md @@ -4,3 +4,4 @@ - [x] adapt plotting functions * [x] plotly functionality * [x] ggplot functionality +- [ ] fix error 3 datasets; 5 repetitions; --> params plot shows datasets and metrices plot shows repetitions diff --git a/tsf/R/DBA_Server.R b/tsf/R/DBA_Server.R index c41195c..4e4e413 100644 --- a/tsf/R/DBA_Server.R +++ b/tsf/R/DBA_Server.R @@ -245,7 +245,7 @@ dbaServer <- function(id, df_reactive, df_list_reactive, nclicks) { # check status print_error(process()$read_error()) m <- process()$read_output() - m <- print_status(m, NULL, NULL, get_Model()) + m <- print_status(m, get_Model()) req(is.character(m)) if(m != "") opti_message(m) }) diff --git a/tsf/R/GDA_Server.R b/tsf/R/GDA_Server.R index 270193e..d1a3c39 100644 --- a/tsf/R/GDA_Server.R +++ b/tsf/R/GDA_Server.R @@ -251,7 +251,7 @@ gdaServer <- function(id, df_reactive, df_list_reactive, nclicks) { # check status print_error(process()$read_error()) m <- process()$read_output() - m <- print_status(m, NULL, NULL, get_Model()) + m <- print_status(m, get_Model()) req(is.character(m)) if(m != "") opti_message(m) }) diff --git a/tsf/R/HG_Server.R b/tsf/R/HG_Server.R index 061c59f..897c547 100644 --- a/tsf/R/HG_Server.R +++ b/tsf/R/HG_Server.R @@ -244,7 +244,7 @@ hgServer <- function(id, df_reactive, df_list_reactive, nclicks) { # check status print_error(process()$read_error()) m <- process()$read_output() - m <- print_status(m, NULL, NULL, get_Model()) + m <- print_status(m, get_Model()) req(is.character(m)) if(m != "") opti_message(m) }) diff --git a/tsf/R/IDA_Server.R b/tsf/R/IDA_Server.R index d82c3f5..e5ae98a 100644 --- a/tsf/R/IDA_Server.R +++ b/tsf/R/IDA_Server.R @@ -251,7 +251,7 @@ idaServer <- function(id, df_reactive, df_list_reactive, nclicks) { # check status print_error(process()$read_error()) m <- process()$read_output() - m <- print_status(m, NULL, NULL, get_Model()) + m <- print_status(m, get_Model()) req(is.character(m)) if(m != "") opti_message(m) })