From ffe80bf04376a2bb93a773e0c96fa8646f0e1e23 Mon Sep 17 00:00:00 2001
From: Andreas Gammelgaard Damsbo <andreas@gdamsbo.dk>
Date: Thu, 24 Apr 2025 13:05:54 +0200
Subject: [PATCH] polish

---
 R/sysdata.rda                                 | Bin 2057 -> 2097 bytes
 SESSION.md                                    |   3 +++
 inst/apps/FreesearchR/app.R                   |   9 ++++++---
 .../shinyapps.io/agdamsbo/FreesearchR.dcf     |   2 +-
 inst/apps/FreesearchR/server.R                |   2 +-
 inst/apps/FreesearchR/ui.R                    |   7 +++++--
 6 files changed, 16 insertions(+), 7 deletions(-)

diff --git a/R/sysdata.rda b/R/sysdata.rda
index 953abdafe040167a1038ed0537a0b5b139c9c25f..51dd6d0980b3ba31b0d5d615ddd3926f286af25c 100644
GIT binary patch
literal 2097
zcmV-12+sFHT4*^jL0KkKStBPkDgY9p|KR`sXaz!l|KNXXp1{BV|L{NnKmZ5<;0XUN
zM`q)}&t@QXKraKy5FtZTCWO!ifIuc_jZ@V9Q1qXv0MG*?(i!O{n<zChX{LnHGD+lV
zg*<~$8UWA$0000DO_NhaDD>0-4FCWDWB>pFGyo*hNQ8-+n1-5YWCy4K0004?00GS!
zG&I5irUcVK84V0T8ZjCeBOn4LAt~)h_Eg$|pba0T0ib9A#A%`G1Jh6pmP(t+s!-yA
zd6J7=bOZwwQBdL0Sx_PsR6`$|?S=Sb8$#X<?j8c+J<v;uE27dCcPD+BQjJoAoIn7j
zC=191beJ>Q@IP&Ldyt*e!LS&QJlx85wSRt?Ta80bw$Ltnx^;|dAVELvUG-xUw9{mg
z6?h>?D5#d^CSnaIA)=_>X(^c3lpDPv;lkYaz3*z&ZbSr*JB2x}p*!<<Gt%gXuRxCE
z7}rXx6%-B^EeUHzlGw(bhPTbL+cs2Q;~QYRdKbZM)@fZ7)=`Y+*F4D2{Vy%2%ThVS
zP;YT9AVw~RX4^AkzPQm3CAV)1wa#1tZFWq>Zm2_=io7JJvrE}vu}B$$RCqIdM3o^7
z;iY`nGa~OsZ<dJ42S8?o)4fov98MKg^km)Q888UNF@V-tP29!JDW?&U6Ev2dJ+|61
z#Vib9+do~|^lpy~{9(RiX|jdIQG`;I01qGo`MULVCuk28MOQEgp%oP*7!nc@5CoAB
zq)|kFP!SHKPzJ0e3v_@Xo8z3==Ys3NMZd4pyWvYRZsmdqUw)+^b1DLekYf~5D#d_^
zuofvI$e<z$EJOu*UN0SO-7LOXDITS#8wssw+fb-EVOozxlTPOQ?$<`m5mW^?W{qhr
z^HAS?t1uGnaZZH9$4R6%O}OrFi>Zt;)~;!>ia7)lV4D~cW^q?-CYu;CqXOh2IB+sW
zW@-X~e29~bH<>~io81RO7(py5S*le4D-bm}{G7(~a{_v-+2)3_jN*$UAkk)J0nRL(
z1UNNDX4rANYey$f7nb~?2{62cH^i~GTDnIQPCQ!eDw|xJ*Dm~bH_B@gG(ajPB|=ar
zR5>RR5ob0sl5%1qizex@BvQD6F=(3rECC^qY5{LDtfk4QHblfcyNllNOu{5KAc>Yx
z#7ZzAZwBkGc=!Hs>vuKL(b3u6?+`j~RSL*+^W{+~Yg>BS2{JB_ZB`!$d`E4@I(0C!
z9GbI6MJLCriKcgg9034ikOYJdWB}rjJRRZENr|RcwVWNw7FBo5&7_2sp@Ljy496{0
z8*5_mhbBcMIh>dUDA_DzP|KP1rDVgHkq*TISPURQf=lH9wv+-9qem=DqMVGGF<DAC
z+01ZiG@~f8lI$HQGHTAAQ&#-dmRJQjHx8v<zy~}<&jA9#up&S<p+GN%gu+N=C_p)S
zI@E&5r;XLXF%ElsDWi(*ZAZ}V++snIV1(I~g<XW_PQ9QkU%J<tN<1mWfx#5lYnHdA
zZER-QzO*33NQ{dSh{9@=h=~faLIo0bpb!&}HJc&3I2fYE;8Y+KG8o4wqW6;*FLN>4
z(u->vuyqbB4->cV^*4L{`87FhrqY#Faf5N}8LjVpo9@G5b`aE=O*XcQjX`;$-~>1S
z8~AK}KoHV#Hf=X@{(QKu$3qPp&YcbSc77!vDJOUUC<=b>PgdLD015-ATqZknfC7N&
z-&-jsRd+1d3?d!aIn7t`>i3RZ0#g)f$A66yBDRnojXJ>(=gsOOA?4qcQ3v|RAy6w3
zvwiF(?i=Vv{&fFwDvFik+K;n=;8K=|r<z#;oat5#S?{rKF+G`tUJjud+&?a><0Wx|
zeh<BV%_)8{<=TlzYj#1bAEPWQ$W&AheHOw|3TYi(wc?YB@;Wd(36<J>{wkGeJa224
z^R{tL<!9^`LP-Ti@z(Ol_*-rzsEQ!B&F?N@N#(^=icaL96yJQQk7!;pY{VY%yIEo?
zM@B6muLwo!eknwTX|?~ug1YRsiNP<(R=i(w@Ja-O8(=4j8g}2Fn?>x3Hg6pGY<y)f
z*s7M535{*tTv9_@rK<q4J%%bNFaewkjv(ll3FB_2mZ~+FjJTZo2G0}?*P+r((eT&Z
zsIu!s2Cg6~geoWr+i@%K(K>~lYGB)Swnr>M5G+{Trbtzf1Ie|(=DAtNDe%}$!yFtF
zim7w<VO_|y@t8>I>1;(8#&SSe3nhYv&4U>ZT&bR>8e)}^ndC=rhU{9%Ofx4ILVjni
zsv-#UR;8K2O+b}VD6NceKt!`&60WldLQ`+ph87jTtU?zBo=c^cix<sjx6DmY+~y>J
zZXjgHmZ`78fc0cfS<Ra**VZMfQ&j1+d~KG%$_^Zvcq@PDHAF%uS61D2=6D>cl1{^q
zgXKQS_D_QwVeiK1DSEfiHF;jj0ZU5M7Fuj=(`pHYm$Q2n8eLpDXoEW0my~l9Ecv(V
zT}~kiiDDeiO~8DV4G~`Um9J#ch7yw7j(`abL^Bn4r17Mys?}9#!s;v=Ic<tVQBXbj
zXuCsA_HXCDi^<1kedH{yS4d^YZOIeOdv4mn$|#2EUJe<U9ITE?LKKcW8%Ac=2jFpv
zfyliXLIpz(i|J}#NGd-R0$lvMa2LvW3cDVww%9G4r?^;!4fx*rw<7@^x~0nNt#Jc5
zXW1>sjF<W>OZdm6nWsKF205eO!_Qlypo8#@i(to0x^NNbDk@(#dhKO$mTPn=o%FDz
b5~N#nkDwfc1*m}lLH`$WML1B9BPTT~OIfiA

literal 2057
zcmV+k2=@0vT4*^jL0KkKS=#vc3;+@*|G@wMXaz!l|KNXXp1{BV|L{Nr2m#;--!0j(
zxbSctoeBYc-$fNbszXyCOq0__NrW^eYG~ACjW&=O01Sbrlxc`HPYIzk&?%|nn*?ac
zj6efJKmce4gK7;=5Je~mY=9A(i~s-tm?oGZf*2&yM5dB5dYFNxgFt8i0004?007d6
z4FGzY0MVcTWB>qY05kvsB@m_*_Eg9K0s4>{007Wv9-uJ*$!x2EHA)%4z|lpr$_lN~
z5kr4&!k`FNq%wH^*x`;r${BaP+xx}hdtjH6Sw*BR>`vXe_$i114IqF55C#MSJRleS
z`;WeN(xPvFgDeGyo*l%x`dI6jm0yr<Uj(W$k%2Tli{eTQl_vK%%*-SCNfaiTh-I=>
zx`8d+R9kTei408DvER$RYg8!EY;!>=c8c(}D)nLBzsa-@UZDGwF`Q8`SxDt_R7puO
zX0@>GG`bwWsBn$#F}_LD>@RXzxYan<GI-W)bp&V7TRJ%Nquxb(`$UTZF^287>OG^1
z`c+Nn+rQg4DUOiBV}Zgu-bBwPD!Fq@^y4_GtBFX|Fq5&Wi88Y-)~|Cyr)ISY4KTJ1
zD-m;7V)C7;so9rPqbU%EW^zo8N{FOoTZ)o$3`MuR<ZXVtdwZNY+8h}iE9$}fI6oKj
zmrNAHT}h&|3J3rI;y@0^dUh8u2bho|xPYP&R8m2KAt4bJ2^0!MKu7fe5a-2JD~zF+
zbQBGLj+0}Q3($ZIhfke<!j|aT)`Fm6hH4?2NCbi;7{!YPSg;Wk6c#8!Kt?QBj1+sX
z6PCByEWTJN9;K%$6I#)bP;Cm89^EGo9C5>48)%B4DZ?~tNpG5l_}a__ySS%qF)`9<
z4W{{V#x9Iuj<s`5j8Vpx*4bTMMsB8CmohS;oQgrNDaMe!MUcp?0}DBs)G%f$q)me%
zhVt#|?b!mdLZyEUWi^a~>b7O5Rjb)?T0~~^oX{A-c(8F~B0<BJGNvGEGRCV|0Ama-
z0!1<w3Q-COEQl=RqahL{F-a!#B5WvOU=~|$gfN~VrIJn}0*2kfB;`yuQ6b2;K!`Xo
zfs6nWlogPsbq@|E6_tjOGpV6fMJO#GwSq9EEYc_?B*+l7N@H>S2_-G+=hxSR3)T<@
zf{GQ8=;+H5mbJI5ppymC4XVT84~Xoz%~MkgG0CemWKw*3xSD5hA<PVnQ35IkXaHn_
z99xq-8p|U|$*!chp=DQ$%-n$`C}5WvgE7lh2HM!Xq0Y#pXGzJDQjL<tiWzf0w5*tP
zf+5$SO2{GzBp&ggbJ_wj%5_+E5*==zPm3u=`x%&8jVQ{pjV%o62Fg4LYT>VOZL3Zl
z<C?y;Q%nWZ1OsH)FhJc4B)$eiAt98c0O#~|sRfZw7rekRofh~hqmu60K8I^Di3UXk
zCepC0u{sm2Y>OA}wdqMmnw*#%$fmm)zICf?P3IcWgApP!EJh*|RHQ^mRgfT2hhh={
zoVr$R4jIg1ix-%w04QWJj!{MKCN5teH>+(b+QzIM5_o-|d#Sg*<C9aC^x9get}t#r
zb2Y{8(~cNyU5IK-rkiCbNd}>Tx1baa&&K9EA5c&?O-}YxYg_Z;y8M(A7tmc-XX1uq
zn^kV<00@8&F>I4634kI1cARG?zls461Hbl~>n7QEZmb3r4=xRB5$gSYqshoBx*m*r
zeetD8;6QqE+z5QTp8_HqK6~(hk2vHP0>G_5Gl@5bs};Rg{b5CyQPae+w67tpkfrVj
zgK0=KYPxA@h))qmgJPxmN8P^Xk~-wCvEC&6GF9%+#+`MBGkln__%71Cg@qCAj+tl@
zuCdYMo+_wSnZ$(ED^I({S}iR@rH%74p<fhh>lVrH5;qQ~7H7*&oJ(mF!DKW-z)?cg
zHhR-y$O&Xf%WHr(vWD3NL5^{>q};383dIqAiLH(riS$|SH8Bysp!KThRFPy^#mglL
z(IHh5%Z2*u(l1>PUr6rdz0W8O=&>rWK+?`LqM2@Pi!ccz-eSV102j!);to16sqEUq
z+a1OpT+Xe7f4xDQwl<hBbMErYRb^qrMxZ97CL{`u3t2DCOv6(-m^fpGoKSc&1zgd!
zE`xZEgt_a!gd3lpf}=Lc0bMXuQ^HWSv_57O{QP=Vh0mrc3khMUNZ||MWIQ;REX+cY
zDa6e1ts1Z1#fy{%rE^@W?mgB<fTtQZq|QiUf~<~#HLamQi6)+9Ihaum2lS<(AsmX;
z5V$1sO>5FEPjXL($V@=u)vAy<kTP8fL@&Z2$jq9PhJ0?2rn*fKR{_|{W*1S}+Pi^T
z{f!{jZm*(vP>#sG{YLJWQhiX{!u7Ieo*HC?<(x)e3)c`@D@q2-R+e21gD|%B=CnCi
zPF<TMzDwiqd<s+ev)r2+Lb)VM%yjVswj*U1xrL?6gTl!Q({aQCQJ{vRhAv3XQ_)*9
zLYG-4bTXE=yFo}jFU^_pwyc?MlX7dTFI7tvCqsqviwjka!V*AWNg?(FR;GiZmfZEP
z-x@80w(EBVre^oB9fsnIoKi7E(!{FyIh>a`Evb)2(7H6<Dx(JFoHYub=h{_@O*2Yi
zN0NXW*S+5|BT@(%uP!dk@xRk*Z}B@KURv?kG1UHDUU@c%kah1`Rxry(SBL8;*q!g_
ns)iwjwyc<EbgC$YnHLUm_XB)@tyCxqKjQ94rwS4qUmpR0Jw2_(

diff --git a/SESSION.md b/SESSION.md
index f0c8047..8620ab6 100644
--- a/SESSION.md
+++ b/SESSION.md
@@ -24,6 +24,7 @@
 |package       |loadedversion |date       |source         |
 |:-------------|:-------------|:----------|:--------------|
 |apexcharter   |0.4.4         |2024-09-06 |CRAN (R 4.4.1) |
+|askpass       |1.2.1         |2024-10-04 |CRAN (R 4.4.1) |
 |assertthat    |0.2.1         |2019-03-21 |CRAN (R 4.4.1) |
 |backports     |1.5.0         |2024-05-23 |CRAN (R 4.4.1) |
 |bayestestR    |0.15.2        |2025-02-07 |CRAN (R 4.4.1) |
@@ -44,6 +45,7 @@
 |correlation   |0.8.7         |2025-03-03 |CRAN (R 4.4.1) |
 |crayon        |1.5.3         |2024-06-20 |CRAN (R 4.4.1) |
 |crosstalk     |1.2.1         |2023-11-23 |CRAN (R 4.4.0) |
+|curl          |6.2.2         |2025-03-24 |CRAN (R 4.4.1) |
 |data.table    |1.17.0        |2025-02-22 |CRAN (R 4.4.1) |
 |datamods      |1.5.3         |2024-10-02 |CRAN (R 4.4.1) |
 |datawizard    |1.0.2         |2025-03-24 |CRAN (R 4.4.1) |
@@ -97,6 +99,7 @@
 |munsell       |0.5.1         |2024-04-01 |CRAN (R 4.4.1) |
 |nlme          |3.1-168       |2025-03-31 |CRAN (R 4.4.1) |
 |nloptr        |2.2.1         |2025-03-17 |CRAN (R 4.4.1) |
+|openssl       |2.3.2         |2025-02-03 |CRAN (R 4.4.1) |
 |openxlsx2     |1.14          |2025-03-20 |CRAN (R 4.4.1) |
 |parameters    |0.24.2        |2025-03-04 |CRAN (R 4.4.1) |
 |patchwork     |1.3.0         |2024-09-16 |CRAN (R 4.4.1) |
diff --git a/inst/apps/FreesearchR/app.R b/inst/apps/FreesearchR/app.R
index 6db32fd..0a1616c 100644
--- a/inst/apps/FreesearchR/app.R
+++ b/inst/apps/FreesearchR/app.R
@@ -9351,7 +9351,8 @@ ui_elements <- list(
           update_variables_ui("modal_variables"),
           shiny::tags$br(),
           shiny::tags$br(),
-          tags$h4("Advanced data manipulation"),
+          shiny::tags$h4("Advanced data manipulation"),
+          shiny::tags$p("Below options allow more advanced varaible manipulations."),
           shiny::tags$br(),
           shiny::tags$br(),
           shiny::fluidRow(
@@ -9364,6 +9365,7 @@ ui_elements <- list(
               ),
               shiny::tags$br(),
               shiny::helpText("Reorder the levels of factor/categorical variables."),
+              shiny::tags$br(),
               shiny::tags$br()
             ),
             shiny::column(
@@ -9375,6 +9377,7 @@ ui_elements <- list(
               ),
               shiny::tags$br(),
               shiny::helpText("Create factor/categorical variable from a continous variable (number/date/time)."),
+              shiny::tags$br(),
               shiny::tags$br()
             ),
             shiny::column(
@@ -9386,10 +9389,10 @@ ui_elements <- list(
               ),
               shiny::tags$br(),
               shiny::helpText(shiny::markdown("Create a new variable/column based on an *R*-expression.")),
+              shiny::tags$br(),
               shiny::tags$br()
             )
           ),
-          shiny::tags$br(),
           tags$h4("Compare modified data to original"),
           shiny::tags$br(),
           shiny::tags$p(
@@ -10021,7 +10024,7 @@ server <- function(input, output, session) {
     input$modal_column,
     modal_create_column(
       id = "modal_column",
-      footer = "This window is aimed at advanced users and require some R-experience!",
+      footer = shiny::markdown("This window is aimed at advanced users and require some *R*-experience!"),
       title = "Create new variables"
     )
   )
diff --git a/inst/apps/FreesearchR/rsconnect/shinyapps.io/agdamsbo/FreesearchR.dcf b/inst/apps/FreesearchR/rsconnect/shinyapps.io/agdamsbo/FreesearchR.dcf
index 54b1e10..969a60a 100644
--- a/inst/apps/FreesearchR/rsconnect/shinyapps.io/agdamsbo/FreesearchR.dcf
+++ b/inst/apps/FreesearchR/rsconnect/shinyapps.io/agdamsbo/FreesearchR.dcf
@@ -5,6 +5,6 @@ account: agdamsbo
 server: shinyapps.io
 hostUrl: https://api.shinyapps.io/v1
 appId: 14600805
-bundleId: 10170130
+bundleId:
 url: https://agdamsbo.shinyapps.io/FreesearchR/
 version: 1
diff --git a/inst/apps/FreesearchR/server.R b/inst/apps/FreesearchR/server.R
index b6c78d2..c16cba0 100644
--- a/inst/apps/FreesearchR/server.R
+++ b/inst/apps/FreesearchR/server.R
@@ -321,7 +321,7 @@ server <- function(input, output, session) {
     input$modal_column,
     modal_create_column(
       id = "modal_column",
-      footer = "This window is aimed at advanced users and require some R-experience!",
+      footer = shiny::markdown("This window is aimed at advanced users and require some *R*-experience!"),
       title = "Create new variables"
     )
   )
diff --git a/inst/apps/FreesearchR/ui.R b/inst/apps/FreesearchR/ui.R
index 0ce31ef..4dc60a5 100644
--- a/inst/apps/FreesearchR/ui.R
+++ b/inst/apps/FreesearchR/ui.R
@@ -197,7 +197,8 @@ ui_elements <- list(
           update_variables_ui("modal_variables"),
           shiny::tags$br(),
           shiny::tags$br(),
-          tags$h4("Advanced data manipulation"),
+          shiny::tags$h4("Advanced data manipulation"),
+          shiny::tags$p("Below options allow more advanced varaible manipulations."),
           shiny::tags$br(),
           shiny::tags$br(),
           shiny::fluidRow(
@@ -210,6 +211,7 @@ ui_elements <- list(
               ),
               shiny::tags$br(),
               shiny::helpText("Reorder the levels of factor/categorical variables."),
+              shiny::tags$br(),
               shiny::tags$br()
             ),
             shiny::column(
@@ -221,6 +223,7 @@ ui_elements <- list(
               ),
               shiny::tags$br(),
               shiny::helpText("Create factor/categorical variable from a continous variable (number/date/time)."),
+              shiny::tags$br(),
               shiny::tags$br()
             ),
             shiny::column(
@@ -232,10 +235,10 @@ ui_elements <- list(
               ),
               shiny::tags$br(),
               shiny::helpText(shiny::markdown("Create a new variable/column based on an *R*-expression.")),
+              shiny::tags$br(),
               shiny::tags$br()
             )
           ),
-          shiny::tags$br(),
           tags$h4("Compare modified data to original"),
           shiny::tags$br(),
           shiny::tags$p(