From e64f9c5d17601d2ebf76d910f32ff1f93c9e9542 Mon Sep 17 00:00:00 2001 From: Andreas Gammelgaard Damsbo Date: Wed, 30 Apr 2025 13:03:20 +0200 Subject: [PATCH] cleaning --- R/regression-module.R | 13 +- R/sysdata.rda | Bin 2358 -> 1981 bytes R/theme.R | 2 +- README.md | 2 + SESSION.md | 307 ++++++++++++++++++------------------------ 5 files changed, 140 insertions(+), 184 deletions(-) diff --git a/R/regression-module.R b/R/regression-module.R index c131f30..57806bd 100644 --- a/R/regression-module.R +++ b/R/regression-module.R @@ -482,6 +482,7 @@ regression_server <- function(id, ## To avoid plotting old models on fail/error rv$list$regression$tables <- NULL + # browser() tryCatch( { parameters <- list( @@ -517,17 +518,9 @@ regression_server <- function(id, ) }) - list( - rv$code$import, - rlang::call2(.fn = "select", !!!list(input$import_var), .ns = "dplyr"), - rlang::call2(.fn = "default_parsing", .ns = "FreesearchR") - ) |> - merge_expression() |> - expression_string() - rv$list$regression$tables <- out - rv$list$input <- input + }, warning = function(warn) { showNotification(paste0(warn), type = "warning") @@ -639,7 +632,7 @@ regression_server <- function(id, ############################################################################## return(shiny::reactive({ - return(rv$list) + rv$list })) } ) diff --git a/R/sysdata.rda b/R/sysdata.rda index d77ab95cb016bf329440288de556030464f3378c..91626ca2d4f1d5bfc7229c1edc4eb0d8daa2e59c 100644 GIT binary patch literal 1981 zcmV;u2SWHlT4*^jL0KkKS(>O5J^&FY|G@wMXaz!l|KNXXpTNKW|MWxv2m#;-e;mZO zs5qmr9RW9@igv_K8ksakLn-MngCjy@3Vx^_kPL=^(dh<;k5T0YiK*xbpea8owJ|5D zWpLVdM2{ios^pgncWQm4oIGu>= zx28SKFsLC_VE`c2WQu5*sYi46W4WRYRFyy{!CZ zoOM|2t(QYzW$#2YX6{+BbomB~g_jju*vwnPW*zSAQ>9czG78}4s$xzhR&R}wGpiV6 zhK`|v8?9GDs}AQA7}aTnNmraiVzV-syhU10W&&_DNtUrR^5K~%=qD2J-778dRJl;0k z>C;ZwVS@2#wvf(pU=}vQwR&uty6dj3$)kaa0-B+fbCkvIA*OXqM!GmUQwfJDlr&Ac z8k*$83!6qUOw!w0bTEr}mhDQJ7%fHx5QyHu$r)7`$rfRpVr6A0P)$wFj7Ujg<2O#O z09a%yH}TPxjVV^FS!7LS3!^cMn5|L((kM(s0Z6EUmrQKBXC~~^bEeoxOLl{%6A`x= zxmtqJhXJiJ)KrNiBvGURQ6!2KfkDb`Tto)kBM}j0(p2Or7N|ynhoH~^2{1%VTq%*3 zv~q=`q9!5cY*kbe;Swf62#hs}(P~(*XB&KuSud-rs`iuV?@$2XYEq(z3=x(zPNqPZ z7bsPWJ|Otd5yClhFj!feFk&n|Oxz|}-hgZd5s&~$0N%(=sRKaX$%HZ3#=UeYS6XW% zgu!M+vW%`RQH`~@O6`W`MI$VrS~eCkEH~U^>`KE1@QmwFg=7(kka^k$^a?W0Sceo2 zuMQg7N;OMSv`Q&qa}DrGnpEm>?PTMjFIR*&{KO%Zge9b-Qit13zF-*3##%2^jWb2#|1r*=R2m%=X z7JG6>EjRP^Dl^BU551)G%QS$1H97v5w(SA{?6=wo0-Vy~o^Kbj?~JSJv8b=h)!;et z6|-FLRoxytDMfA|Jox%Y=iTZeA?4q~dB?5fIg3H=P}%qt)1y)^lD~_Js|)+VL@zuH zWZB9v1vg0vg`1UH<}p=z1pe8gjQ9uHmCq%0R-Tu3FZaPO(*D)1A)6$~Fncq;;u0v2 z2-#g#%0n*8G$aH!oNPM@ne9I}WR+<+Q_(c(-7`jQ>et9wT@*;%IXJi<8*S2C2&M(B z*0Qvmx=D>kK_UclO_IN8Z#3VLgiYDPvy-%0q#d*mQY*$s2U+}O4Jcnw&cv0)1&Kwx z9K;#ttU`Qu->xvQUfJH+`Hpy_ii!E&Vrq)e2&RZxAWWLZLt~%@;)+~m zcA~Rxy@{rgr8=1^z9ZS1V7bj$tj#|e}MH&)ZgTe~}mC_^Y(8AO4_T#u!;#o9AJQl*S@ngpem9R literal 2358 zcmV-63CZ?CT4*^jL0KkKSqB*{(*PCUf6)K`Xaz!l|KNXX-@w2B|L{Nn00;;H;0j+p z-b8!D;Bh5JfkO`pEO#%T75lqSrlnj6X0qQg~^#-ZwrhrVNB|k}l zsivmMGBjw=000^Q0icQLkV;Sk)Ea0Wpa1|g000000Va|pDxaz3k5qaMOivWh+9m-E zMuvdM^%*q6Fd0c1sgNcCKTwS_X@fvOG-wPH5IsFaF$76XL_J0k05s8~C#V_#000dJ zjDTdpE^-r0qeTpcDnizz6fngFP7l3{l|;JY8U78;jGGzjpc)(g?hW%8p4g@`OHvgK z9VA?5m(BY?l9Uob1c|5wt{BqO+gR0p{{pr&hZn6d0=0Yft}id?U-fHDO3(Mk9zM58 z&a!cQl4f8WjCm{MQkJF~>5Rmbl1#iX#gm^Bh-fSvv)v$&V$Q7;))*3;YK$m)7Fj!0 z)X;&4x+&ckI?cAzzSdEf?W_CC@pS|D+9=LztnIX}6Tq)E;>8#wg(;_#n6ft{QD2#U zy7|XLjBvR)X&Xy&nv>Bxib$YpHU~J2F+0o4wh~YH_ku0=Ki(}fV`fG%WmGRE403f% zj<>C3bRRm>WvVBP+g?CzZXnsdo%op=rYc0qJSz$~wU=s9m!}A`prKqDkuOqUqsg{- zdd^-BTFX4cNui=dRp`9lT)br3hs(xd^HiADYVbu|MCL=tl;lJ*YXBhi8xYJjOm(`c zvnAD94OW)qHo+Z}Ho0TV#lzXj%FfZatU8r`YAlL|j7I)8hP}0COb+Z+5a~`nKEBR@sdG= z0Yp@SAfT{ORxCyfBv6V$NU=c}EJRUcSst%Pp11i+AI}VAdn(hOutq2uz3(&&2Pjml z;-QQ%MFUAh;fCF{rjswGhV{cRt(Na9_?d!Zp)|v6=c}`f#*LW5y4B4z z7%I5iYiyyDrFAgT2|PpwyNQ@6G9kDFF4uFJu!CH%6LSV0j!G{;mJc-exPT!bt}$7; zlNW0Z1wITTUo2f#iC9x{W||skW^@R}Ow%jhE_BW{vHgzw+E$G5?+Q`GSJyghy}JBS^`4<)Pu>ng^hYL!nbL<1t}3MfCm!H4iX_XJ&1 z>Lr+&HD-*8Pvfm&r^4bN7mNwe5J(~kl}?% zQQ>=(?X(3K{L;RMI2fVB0Ydcebl>2%wXKyH@te`0V1h(sQH(?mEt7Ux5fVzln_vOa`?X7-@(hoE^V={to%AT?X4=+v&IYt_YiLnhZ^<~5dVC55$_+Y6qJJ! z1$ylbuEr90j!~+ndmpl1EPxKV9zJzL09KIB%1RFvO|d$aRhh9+mgNbvD0k@_M6@@Q zdbhYzMOGdwS?P~Z{`l`gR#>-e(I1?w5Y>seB*E-e#f*ie5!okao$AGR8g5+LF``2 z)Ymc;Txt)@aE-hHhb^Z2i3w}iGEy%hlZKo(g0W;=#*G<@g$GO6YHA~uVc{#5C0d2H zGlSMmSh(aXaFx3^<*L}QV`D`Wwfu*7K8Om4Tu~JlLMEn6Dj_On_oatS_b#jEK{(WU zlr1SB3BX)ALZ>XVgA-1YrRE@8%ASzD-gF0kcE+|3kze1eN|SYAL8ATeCbAO}1y}H5eG;T(Vp@V`ud%E`S5fw#-z%MvYqrOhoxdSNVeM*F3B6j_tIF{kEx3Y`YmbtFz zU}Uj0$cZ0+9<{b1u@G1Vaa|!5I6C5T8!TeYb)_PU>JPF8XM&N!xsI&b$;4<^THj}Z zq;bU>_4X_b)UI&nk92 zgE&im0h);&wm#0od2@UL$aZ=o9-bOuO%S~KU8fkN1#0DJga~f((IKAeVSX$FYK7@} zCrq>E+Cfz8^t-KqEh?Tj_invnwes?W3UeOs9FogGm86j`1BIBtZE|Ml0)^$gcQvppl_x4zP2*xzI3KnYF%rIwQK{ComZj|ij+d8g$f*( zWLR@z@USKW%Vokr@VHco?W#QNeQ`