From de52a56b1f9b2efd4e31505a85a6ac44d4506607 Mon Sep 17 00:00:00 2001
From: Andreas Gammelgaard Damsbo <andreas@gdamsbo.dk>
Date: Tue, 31 Mar 2026 20:42:22 +0200
Subject: [PATCH] new version ready

---
 CITATION.cff                 |   2 +-
 DESCRIPTION                  |   2 +-
 NEWS.md                      |   6 ++
 R/app_version.R              |   2 +-
 R/data_plots.R               | 113 ++---------------------------------
 R/hosted_version.R           |   2 +-
 R/plot_bar.R                 |  18 ------
 R/sysdata.rda                | Bin 2704 -> 2770 bytes
 SESSION.md                   |  14 +++--
 man/data-plots.Rd            |  13 +---
 man/vertical_stacked_bars.Rd |   2 +-
 11 files changed, 27 insertions(+), 147 deletions(-)

diff --git a/CITATION.cff b/CITATION.cff
index 5578f1a5..ae7ae538 100644
--- a/CITATION.cff
+++ b/CITATION.cff
@@ -8,7 +8,7 @@ message: 'To cite package "FreesearchR" in publications use:'
 type: software
 license: AGPL-3.0-or-later
 title: 'FreesearchR: Easy data analysis for clinicians'
-version: 26.3.5
+version: 26.3.6
 doi: 10.5281/zenodo.14527429
 identifiers:
 - type: url
diff --git a/DESCRIPTION b/DESCRIPTION
index 3a60d461..23174866 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: FreesearchR
 Title: Easy data analysis for clinicians
-Version: 26.3.5
+Version: 26.3.6
 Authors@R: c(
     person("Andreas Gammelgaard", "Damsbo",email="agdamsbo@clin.au.dk", role = c("aut", "cre"),
            comment = c(ORCID = "0000-0002-7559-1154")),
diff --git a/NEWS.md b/NEWS.md
index 7c2bbc32..5773bef8 100644
--- a/NEWS.md
+++ b/NEWS.md
@@ -1,3 +1,9 @@
+# FreesearchR 26.3.6
+
+*FIX* Plot single variable in Likert plot.
+
+*FIX* Horisontal stacked plot crashed. Fixed!
+
 # FreesearchR 26.3.5
 
 *FIX* Labelled categorical variables were not handled correctly importing from REDCap resulting in lost labels. Fixed!
diff --git a/R/app_version.R b/R/app_version.R
index bdf15ee5..ac06a8a2 100644
--- a/R/app_version.R
+++ b/R/app_version.R
@@ -1 +1 @@
-app_version <- function()'26.3.5'
+app_version <- function()'26.3.6'
diff --git a/R/data_plots.R b/R/data_plots.R
index 1ae13694..439b0ccf 100644
--- a/R/data_plots.R
+++ b/R/data_plots.R
@@ -117,18 +117,7 @@ data_visuals_ui <- function(id, tab_title = "Plots", ...) {
 #' @export
 data_visuals_server <- function(id,
                                 data,
-                                palettes = c(
-                                  "Perceptual (blue-yellow)"   = "viridis",
-                                  "Perceptual (fire)"          = "plasma",
-                                  "Colour-blind friendly"      = "Okabe-Ito",
-                                  "Qualitative (bold)"         = "Dark 2",
-                                  "Qualitative (paired)"       = "Paired",
-                                  "Sequential (blues)"         = "Blues",
-                                  "Diverging (red-blue)"       = "RdBu",
-                                  "Tableau style"              = "Tableau 10",
-                                  "Pastel"                     = "Pastel 1",
-                                  "Rainbow"                    = "rainbow"
-                                ),
+                                palettes,
                                 ...) {
   shiny::moduleServer(
     id = id,
@@ -150,100 +139,6 @@ data_visuals_server <- function(id,
                                       title = i18n$t("Download"))
       })
 
-      # ## --- New attempt
-      #
-      # rv$plot.params <- shiny::reactive({
-      #   get_plot_options(input$type) |> purrr::pluck(1)
-      # })
-      #
-      # c(output,
-      #            list(shiny::renderUI({
-      #   columnSelectInput(
-      #     inputId = ns("primary"),
-      #     data = data,
-      #     placeholder = "Select variable",
-      #     label = "Response variable",
-      #     multiple = FALSE
-      #   )
-      # }),
-      # shiny::renderUI({
-      #   shiny::req(input$primary)
-      #   # browser()
-      #
-      #   if (!input$primary %in% names(data())) {
-      #     plot_data <- data()[1]
-      #   } else {
-      #     plot_data <- data()[input$primary]
-      #   }
-      #
-      #   plots <- possible_plots(
-      #     data = plot_data
-      #   )
-      #
-      #   plots_named <- get_plot_options(plots) |>
-      #     lapply(\(.x){
-      #       stats::setNames(.x$descr, .x$note)
-      #     })
-      #
-      #   vectorSelectInput(
-      #     inputId = ns("type"),
-      #     selected = NULL,
-      #     label = shiny::h4("Plot type"),
-      #     choices = Reduce(c, plots_named),
-      #     multiple = FALSE
-      #   )
-      # }),
-      # shiny::renderUI({
-      #   shiny::req(input$type)
-      #
-      #   cols <- c(
-      #     rv$plot.params()[["secondary.extra"]],
-      #     all_but(
-      #       colnames(subset_types(
-      #         data(),
-      #         rv$plot.params()[["secondary.type"]]
-      #       )),
-      #       input$primary
-      #     )
-      #   )
-      #
-      #   columnSelectInput(
-      #     inputId = ns("secondary"),
-      #     data = data,
-      #     selected = cols[1],
-      #     placeholder = "Please select",
-      #     label = if (isTRUE(rv$plot.params()[["secondary.multi"]])) "Additional variables" else "Secondary variable",
-      #     multiple = rv$plot.params()[["secondary.multi"]],
-      #     maxItems = rv$plot.params()[["secondary.max"]],
-      #     col_subset = cols,
-      #     none_label = "No variable"
-      #   )
-      # }),
-      # shiny::renderUI({
-      #   shiny::req(input$type)
-      #   columnSelectInput(
-      #     inputId = ns("tertiary"),
-      #     data = data,
-      #     placeholder = "Please select",
-      #     label = "Grouping variable",
-      #     multiple = FALSE,
-      #     col_subset = c(
-      #       "none",
-      #       all_but(
-      #         colnames(subset_types(
-      #           data(),
-      #           rv$plot.params()[["tertiary.type"]]
-      #         )),
-      #         input$primary,
-      #         input$secondary
-      #       )
-      #     ),
-      #     none_label = "No stratification"
-      #   )
-      # })
-      # )|> setNames(c("primary","type","secondary","tertiary")),keep.null = TRUE)
-
-
       output$primary <- shiny::renderUI({
         shiny::req(data())
         columnSelectInput(
@@ -258,13 +153,12 @@ data_visuals_server <- function(id,
 
       # shiny::observeEvent(data, {
       #   if (is.null(data()) | NROW(data()) == 0) {
-      #     shiny::updateActionButton(inputId = ns("act_plot"), disabled = TRUE)
+      #     shiny::updateActionButton(inputId = "act_plot", disabled = TRUE)
       #   } else {
-      #     shiny::updateActionButton(inputId = ns("act_plot"), disabled = FALSE)
+      #     shiny::updateActionButton(inputId = "act_plot", disabled = FALSE)
       #   }
       # })
 
-
       output$type <- shiny::renderUI({
         shiny::req(input$primary)
         shiny::req(data())
@@ -610,6 +504,7 @@ supported_plots <- function() {
       primary.type = c("dichotomous", "categorical"),
       secondary.type = c("dichotomous", "categorical"),
       secondary.multi = TRUE,
+      secondary.extra = NULL,
       tertiary.type = c("dichotomous", "categorical"),
       secondary.extra = NULL
     )
diff --git a/R/hosted_version.R b/R/hosted_version.R
index 19c31921..f7e99a89 100644
--- a/R/hosted_version.R
+++ b/R/hosted_version.R
@@ -1 +1 @@
-hosted_version <- function()'v26.3.5-260330'
+hosted_version <- function()'v26.3.6-260331'
diff --git a/R/plot_bar.R b/R/plot_bar.R
index 909c9edd..f820cc6b 100644
--- a/R/plot_bar.R
+++ b/R/plot_bar.R
@@ -56,30 +56,12 @@ plot_bar_single <- function(data, pri, sec = NULL, style = c("stack", "dodge", "
 
 
   if (nrow(p_data) > max_level) {
-    # browser()
     p_data <- sort_by(
       p_data,
       p_data[["Freq"]],
       decreasing = TRUE
     ) |>
       head(max_level)
-    # if (is.null(sec)){
-    #   p_data <- sort_by(
-    #     p_data,
-    #     p_data[["Freq"]],
-    #     decreasing=TRUE) |>
-    #     head(max_level)
-    # } else {
-    #   split(p_data,p_data[[sec]]) |>
-    #     lapply(\(.x){
-    #       # browser()
-    #     sort_by(
-    #       .x,
-    #       .x[["Freq"]],
-    #       decreasing=TRUE) |>
-    #       head(max_level)
-    #   }) |> dplyr::bind_rows()
-    # }
   }
 
   ## Shortens long level names
diff --git a/R/sysdata.rda b/R/sysdata.rda
index e57187506ab34278de0c95073a5e1f6f763aa4ac..be267dbfe3b40f25930e615ab562574760211f60 100644
GIT binary patch
literal 2770
zcmV;@3N7_QT4*^jL0KkKS<yee@&Fn*|HA+OXaz!l|KNXb-@w2B|L{Nn5C8}P;0#|M
zcb*tt9|P6uvX`^a6aam=0raB#14<k<F#sS0#L=M|o`Pg4;(Cx~r>Fs-&^=8&O$Mp@
z0HSJ7BzjDyZ4)Wv$e1Unz>NS641-LK3^hEO5>x;NgFpZSKmY&$000tcA{0~8O+;zr
zfY4^37=R2w10x8?4KWg#4^!0BMn*tr0MGyp0001KrXT?lku*&<k)u(y4^YXq0MVe(
z00U_NJwObXB~GC+6g1G(Eua<GKmcrl0PS;j>6<oDuu)zu7s`YYs-hTtA4~Y<)Gr0@
z9Q<4+u$%EqNh_cfh7fGro3>)yuId4LASyB=_+6AuW8oP|xcXdv47x%ra+Ev<<ly>i
zQvIBGa3RY~eC)tU1575pz9iOlkWIR%D1eZNpZ?HH+Y7X1EUZD4cYPcRMyh7&=8Oby
zLJ%(RH5AG<3ohFc3HPT<nXARRdJ9@i+H+GBl~J07qkv7)Y$I0*W0iLoor2%*r^6OC
z!zk7G8*+K=Zp-bv1ZKk<35{Y5U65;<5)NDq;T*wbldXRbj~s2%C)EVptw`8rnBlVf
z$yshVL+PZ^V7?_<&1)vw-F!>q2m%;eG+(TzPUmRHY%t>4wJDpEGPdq)i{W}aRqAkA
zFwcK9*5^4T%>#E^5u;|!)>UpKZZ=U6z^3mX!$mowVx^kunN&$xC`+;g1Q!icOCdxo
z78LMta|@0$4wWl%^KAxM96lyoO;I@GGOTFDTU(ijx`#(|%Ay-7La|Lx4U&;llDs=9
zgrs+8xGs>%2IU&^gXqT`Y~DdH3rpN+Fzj17M9ZfPyYQxnJs_}jly`L?isOI;hy;Q%
zBA6jaf=H#Z-c^?E+}M|Z-hd*V06|6opb#V^H>fHi)l~!$L-zm?*?^!G^kogNuqZm&
z_zhg50A+$9ubSJPeEBZn^=rXUbe&Qj7K~UTiYXYyQYyuYixoiyMPyY}6^M~kQAROE
z7AQp^s|AWGF%VP{Po3ZNI?o>!RP#?&85Hx{!fnm=d9CwthK>q=vztnaB6GW!T)ef-
zlWba8?#rEPjwNt-9x2OFb)}kiwq0#OGG?tYhO<EloJct{4duC%v5GA;7G5O586s(h
zo>zRF-R%>mqAyQ8aPLkfOzW)1fRYISFvE2jxw5W6Wi^?+@C+NHD?*|HM+t*7D;X;i
zr5WB$-BJT@buz+YTGmCA5HmMs<Q7nePYWq$88JBu6Q6#BLhBoYMCEv75grnhG%Gx?
zITJ>Lm8GauQGfsiEQ%o#1!V{fpe~I=lMXfRXDy7GJ#}#B4!Y$yoEd4gv}?<ba^f+}
z%<A!yvxkOZs@HCFW!Gl3$Ux0oP8tra5<`hNg9Kbu<}}V_IW(N8S+GqY;lvTFwz{WS
z+|1_dXD<2O5XrhNVzg^DPIu2HyBo{A$Ew=sfCVEV0@;+SZ%qUUpn_3JBM>RpZa`p?
z3aCVwB)Eebv?MdYUNh<ROS4Yy-g&gD`hWt`0-{okfKm{Zw8q-mga9cKAgucA5_@mA
zkJC!1#{f$#EfU2g229I{R8Me3s_+yABA_u1hy#)+hLk{W*iRy9G>4?tL14I(=lWUO
zDb`lpGKq%p#hNJw)fQq~LaQZ24(Z(zQ%u$n)ctOZkhi}vCPY~jCMG6Y9zWxw1qZl*
zo<_hJ$O@o>6SK18CKRH;ve0L-VTS)E%{}QVz9jTezF#k&+9r!yH7i$g5H29(u&kph
zB36hX;M4|~B=JCG5_tS6dR3Ly8r4x{+7!TGf#^U3f&zyHNoy7pg2`kpSz#riWF$Lm
z3n3*vZ==1EEGGPU+{0GD#%kqK+7@5Gm<$CJbk-q7wiMDU;-`ZGu^4|!b%;MU!<;&L
zO)gS>FDDXlwuLrs;*60<Wuii?=c*m)4-_N_%<iG?c6Q;~hjM8pb?0oh6^$yZC_q?B
zz%hiVMoS?fI@Oa&e(jl;>NAwha?xtEu@cz{8ld9LR76-lUu(mjIP*6eQ7<P{wW?92
zT3bbNf>+KE@QqDz?O=DNbZ@I_qf3JcsiaL=Tj*WuTeh_*s3oPSq*70<xNZ4|zvu*j
z0#p}OwS-EbUmyVp09}BJ7z<H?#sTFaK%Mf{)wD|{s0@33Y!f9naN^Si2OOpy|6gaS
zY54N-!9mfJWE34A9C_GR`);QEy*mB^sSGo7ny=5(-|zVjJ_B<$N`+hB=lowv{moZj
za|2cfaUWmS;~(NH>>_E8r{CPxN|`BtfB6wXa4nViiCJwfGJ`wAJvSX*h<v5OO8;&X
zQz44I(qyw9Cuu;qKDuTk6zM)|QG~c_g=EMWt-C}&^9r@ocsC!A{v7=anJ8WAjppxE
z^G;cCW`>BIXnjrcZs`lv7)Jzx*sDK|E69S%B8u@V81tZZU2S0f0`#OrywzfhCS9<#
zMq}aOVzv~6xxGBJb5&z^sWm9k-Y~uP&t?d?j3_R2?8u*}Y8Wz;mXcZ{pn<C+sgH9G
zhRTv#rW9s5Z>eLQ(H#rT54u1u)rpMklL!|oAUNJThuuP7nK-MI0S1*HI?|`#@}U_O
zU8SL+C~g)D4$K@aoFUWn9hAOK9Hf*BAz5o9etK)UyUW$~@aw)e5YJb^&^%qt#-oLf
zm^kt=9c|^_q9!zo5@K%on%`PtXvu8W;!&31NID(FlVDN!&(pvznT@o@PT=mbPf%Ew
z%=-{^Tfjh-`1CN)Pj?6Mglc3z(GI^OXrqq$suD2{UEx`<BS_E=9qSszv|)VbZ%Ev|
z{Py2h{Lx7hk0&dQ@IzmMrp|VmS=*u<d90W#pfIdRDC0Ui8G4kthY7%!tE#uE_QkQf
zfqN!MMz}Yt+tH92&&ZrogF>g7Wt~<OY=b2bLQq08RABS@w`p>)#JZ)oDT!26o6R(0
zpO)|3=4`E7^zNB_$e{6UjOPZV-ToPS1nLS!AZ~q2pq{E16M%RixZT3sa}Zm5wku%Y
zmT(Y(ia6tHC>)3p8%EZ-V~MZHpJ7lH$Pm<u4rLvLpkSF4RZ0~r&Oz$rO;2J|Uzwf1
zvrGj5Tbb`KL0cDN>wFiH0xfSu7~i1x7~8<8c_4GKzuOL3i0V-#dn!r#PDSAg4y#2y
zziREl(6?y!(Mx7sx9OFL0{3vVM)DlKnL9%5D+<ELHYjjo8s-E#O(9w)-LK>ee+G>=
z$H1JWFxRszY3mYmMLYXFb7^F<)JqZz`ua6?z=hV54x+#Hn5OL2<xt}oGWqJVjGT2L
zu#|YwT7oiJ2sh5ryvlBD;aAxYS!uW6y$0f<*#{erq&UxoCPcELI;8l?DS0q&*JB&{
zdv?D3v)ba0+iO(=ZIedWX_e2xc0oeoK{gl;;e*H$!>_C)g4aeav69%@X{w{4{cE&q
zcs_=_L<a++d>R#;LLtIP29#r^)$@hmZkDGu(AT=wvrQp%(At-)jcV9-Yf<-C8m}rY
z3{19Hyo47sA`z|7$sXHSUd5{%89x3}?^XiU5H==!mO91s^Tv&QcI)SzWoZ)<ttsL*
z>5TYxFWnY(!x>;%l@&?I)o^rat1&BycBZSuq&U?$!m?CJHm<ju9=EJfB7&Dmc4|HV
Yd<Y7wtgHmA%n$rs$rRy2Lqz`f$X3Mtng9R*

literal 2704
zcmV;B3UBp7T4*^jL0KkKSqf-34*(g<f5iX)Xaz!l|KNXb-@w2B|L{Nn00amD;0ym3
zI}=vp!0J6^F2D)^e0&d}3+w@+8kqnH03nbd5uq7BRD(2t$Y}JKk46YJPtXbxFi6^r
z${C_G02u%P0000Qr{vIzpfqFv00000000002{e%jQ^aaO@l1dZPzEN0Lm&a500D+n
zN$P%~>YGvM^$h|v(*TSRz#}G_0}V7y8Z^Qs5@?9?RQ)6#ra&~v05kvqW}pF(8&d?U
zaW5!v5V*%cEV6<sTLDz(W}+gxKK7MBMztZQ;ri^~FrkPsZ|-Q{E)#AkjFQR$NMtSP
zPQ|z7vj_o-2%<70y}R_{W8MF0Z(PsQ@bzFlv-&LPf4acfR6a9Oef3s8_tp9RR?!h`
zpzEvTcNN44@1<!80#aY?kl4L5l~7zV4XJsG6pd8OigIDaWQGjRF;PsTP_XT>5TAb{
z+}4v4@*ypkFwYLKi4a~XEoTH&t1ww<zhgc;$DHFYzi+n{v7;zbOU0*}@3y-xO7Agw
zEsIFOxP~=>FKV7{32MbvN~M4QcKj^a1LXAiHw{TFGfylry7X+&-v5*0l>+w_N;N2%
zV>kGhx$gyk2`4X^lcz^+Td^?G#tEWLPQtR@wZgU1MlL)CE{UU3>CFjtr4O}2{W^29
zt8JrhGKhu+Gwy1lf#K#Es%4c#m6C+JAV5KI)ikmcL{VcCM>1+Ln`adnsjRv-)QKjT
ztFm#MwPR_Dwykqe?@;LOcT_`LC}F9o;qFo@u3KhY8d*~=aYj`&M>d{$ImW|pw%clN
zh>cL=R@4n{LYKw{U7BUzeG_?yq#XqP+>#yu2m%CvgbRoSNTsW8O?(=&5F1cc6J${l
zf*=G52@R?$ptY?PL__x#LDPyL7Hmo!&%%f|?q@h!$N+0W5a-{I2VZZEhbOC2B7>w|
z<0TYDV!;&^U@TBnSgQssM2f1YDk>yZiYpLNMI=xZQ9(gPL`7n;QBR@d^}5e56;$-k
zqKu2`wIth{?diAE#u_*(0?utJD2dMQYdO5N&68|eSninTTH}da9ggYCQFW!7cD7w@
zK{7!tKx-5bsnS8gn0Sb7Ei|IjL1F182<ax6Y2@E0H+w|ssEgCj96QsAQ#$G)pd^Ao
z3^3_VE^Mo<8AY5<F~2ZwjI5Xx3XrsI!!}~B3YT=VoM8i*&TiPcw}_Es#0*W@xdoIV
z(+J?KX@e7hp*i>Dg+WeamAb6CA!QJ(GepaTxPqpFm8yhCumAv3$f6M-RuF*7(&*GV
zEylUa#5030U0f-|$%gGTwvBe<oVbj0Gda9utl{C9YPH*(*>&4mWFTg(rws>In?s2r
z3=t745u3SAO(!Zd7{DgbmXQ$(*Hqb;E^~FWmwfJ_lXYtqqgkuY`Q+aFIm^Y)t4pW=
z2^k0+W=&GN-)<<X2qi_M5GmF!Kzb6Y5he*XMAL%_aLq$D#){?5UXMdxHL~w|xnNxY
zq(-qRDMD71rD$XT3PeaNK5GP?^Y3Hw5~?x463YujqLRd!mk_9)`3Pq~P>@Lgj1Mvd
z^Q0hlKqkrNOiW?uWGft``2LLTDdfuAhEX$kV$BqTYN%pcLaQZ24*B00Q%u$n)ckIY
zA#am0CPY~jCMG6ZKTZ@-dx#0<Yypgbst6%E>o5!{MS*3Y&u+sF`+GF_B&zqP#X|Y~
z{yw0ZEojuOUC2PVgOb9sjHroPAcKQY8eo&c10a**c+&cGYeDd`$;w{yg9Fk426ze?
z>X_KDZ78%-l#!w`(4-_iO9IGAeP`@%WQz#*Ft)(*vzp?iwpEutzO)Pl6mhIVi)<;T
zCx!7~RwEDDPl=s~q0Kt{SF&w&N%DOB$;R3g-tH*L6oy(PD$cuE<Vbl!K#b1{9{*}~
zXL~Uvd%Lz<3YD~~tg-;Gl_ZK0lL$yowLsE+WVwD?a+$7LEmoAYve^j|gNrd%GCq%Y
z$DTO)O~#Z<$<-}tlxbF$(Oh7a?iu4PHN_7Eyqf0Pt4o6ksiaL=Tk75GTeh_*s3oPS
zq*57-5W>(#mWc!c;Mn68)V(K}i39_vKD3bSIKNj>;Q4Vv<Hs_3muI*TiJhE_HoazA
zNg#k!vh3x_Vwg?|F$n|$>vG8i0`7H2X=QgpWlh!R`y8nd;~^Yo<osB_M82^lh>4mk
z@bY|JLcMH9KJ|tu4)Q*I8e`c7c9Ag0%h}$=#)zR_&%i+<&{$RCBVCj<$?Nb7^V)Rz
zpYM+NkIAA)Tk%Kb6~{5+b`#5cs-i+64U43t7)_&F>Lt9zOxW`Ftg21Gn0*J^)#g-5
z0?$R)8+{VZJaXQ>rj)0I-Ag(%bVbO6;d)-BqQAQpWI;s%I<YF&<CyKX%7OWX$)H27
zoK&J-7iyK`<?_~y3L(8tPfe|2D`tpJr3v^8?sbyF^r`~+msJ>KPSi0b46l||M2b-C
zQv6X>35IXhEjR^;gJ}k=wY+y{*=P+~y2f=yWDAVmI9fZ$-!$8aG^&fi1{D4kCYN3B
znpXr{vcSNZviikmUF{Y*-JiVcn_$t#36QPymXUUP>$!RtqwC+!=vqRG^Yo9W#$vKV
z#h{_qq8oEgZXniF92!h(`;z5eZz<%Z>1iO#a3qeyw38)-AB?>F!l;nhL?Yf?9CULE
z5%?c!M=Ljnl0H3#7#!VQ#qgzW{77@?Y!lz5G>Djg4*-d%5U5BJJnt8Vsfd4hSx~|H
zPQ};pQygq;J9`#11Qm7YlKQMNue)ka9ZDsNrWRGD=r~G!tGNhNnk4d8t)|XbG7N>Y
z7cNASH9efYU5j|mT?j?%K$c~l6%`dZaCr!3k~2ge<M=aSaje97M`ltHq^LI<cC8M}
zclB!UsTwKWFYcm)x0GR<8k0ZKmy}LGq*4ao$hZmELgH)>LJN(=EpA#1R_%(|H|3oI
z5HzEw7jmF+;6!RRwaXk$T^IEf&^VCPiS1nbNdUnv2}LLrk0A#mi7`Hu(N|jgzn<H~
zz_T;Zyv1Z2kIv_-A_Q98l;d{M>oKrzn~1|(jozp6%tKOvBhyM{=Qx*@^Ezx4cYSKI
z_Svw1DbTo=b=z{OAS-tI#4RDm<&$=oaaUR4lF&D;Y-++zgubPxJl(_=o7gt#4=FSu
zW~?&Cj$$ofqfXzROe~aIjARw`_AypGg|;MeE55@NTbepjI7REaTBxBGohdbv4;j>e
zl^O_WR1>C0hP)EJShqr#uY2T6YTWZ2)-Gbi_#B9oQ--OR2&RV;#+s>r!@D-yvn`D+
zn=Gjl8!M7oS*I&qdaHT`q>&|>8@~4tB?jG4OhT1BTUz6V6jMpfywgEXFu5u43=Ric
zdYBcQLLst929#Zm)$qdd8x%fJ^BE!bc6IYfCdAy16(a-Ii#zItHx%t!Z>0^&CPW`g
z9g1Aa)?Sq(3zshrG4Msgv=B31TogHrsOrLgId1Ysk`=8qY@VY%m`hIITouXqM&it;
zO$|#Ct6@bs2--@qIx7;0-%OzTi4Y{_taS9W;|=E98(8mXA7DNt3{1g=frj}1i@744
KC`bh~8;5{P73&xP

diff --git a/SESSION.md b/SESSION.md
index f232def3..ae10ad0a 100644
--- a/SESSION.md
+++ b/SESSION.md
@@ -4,18 +4,18 @@
 |setting     |value                                      |
 |:-----------|:------------------------------------------|
 |version     |R version 4.5.2 (2025-10-31)               |
-|os          |macOS Tahoe 26.3                           |
+|os          |macOS Tahoe 26.4                           |
 |system      |aarch64, darwin20                          |
 |ui          |RStudio                                    |
 |language    |(EN)                                       |
 |collate     |en_US.UTF-8                                |
 |ctype       |en_US.UTF-8                                |
 |tz          |Europe/Copenhagen                          |
-|date        |2026-03-30                                 |
+|date        |2026-03-31                                 |
 |rstudio     |2026.01.1+403 Apple Blossom (desktop)      |
 |pandoc      |3.6.4 @ /opt/homebrew/bin/ (via rmarkdown) |
 |quarto      |1.7.30 @ /usr/local/bin/quarto             |
-|FreesearchR |26.3.5.260330                              |
+|FreesearchR |26.3.6.260331                              |
                                                                                 
                                                                                 
 --------------------------------------------------------------------------------
@@ -84,7 +84,7 @@
 |foreach           |1.5.2         |2022-02-02 |CRAN (R 4.5.0) |
 |foreign           |0.8-91        |2026-01-29 |CRAN (R 4.5.2) |
 |Formula           |1.2-5         |2023-02-24 |CRAN (R 4.5.0) |
-|FreesearchR       |26.3.5        |NA         |NA             |
+|FreesearchR       |26.3.6        |NA         |NA             |
 |fs                |1.6.7         |2026-03-06 |CRAN (R 4.5.2) |
 |gdtools           |0.5.0         |2026-02-09 |CRAN (R 4.5.2) |
 |generics          |0.1.4         |2025-05-09 |CRAN (R 4.5.0) |
@@ -150,6 +150,7 @@
 |pkgload           |1.5.0         |2026-02-03 |CRAN (R 4.5.2) |
 |plyr              |1.8.9         |2023-10-02 |CRAN (R 4.5.0) |
 |polyclip          |1.10-7        |2024-07-23 |CRAN (R 4.5.0) |
+|polyglotr         |1.7.1         |NA         |NA             |
 |pracma            |2.4.6         |2025-10-22 |CRAN (R 4.5.0) |
 |processx          |3.8.6         |2025-02-21 |CRAN (R 4.5.0) |
 |promises          |1.5.0         |2025-11-01 |CRAN (R 4.5.0) |
@@ -187,10 +188,12 @@
 |rprojroot         |2.1.1         |2025-08-26 |CRAN (R 4.5.0) |
 |rsconnect         |1.7.0         |2025-12-06 |CRAN (R 4.5.2) |
 |rstudioapi        |0.18.0        |2026-01-16 |CRAN (R 4.5.2) |
+|rvest             |1.0.5         |NA         |NA             |
 |S7                |0.2.1         |2025-11-14 |CRAN (R 4.5.2) |
 |sass              |0.4.10        |2025-04-11 |CRAN (R 4.5.0) |
 |scales            |1.4.0         |2025-04-24 |CRAN (R 4.5.0) |
 |see               |0.13.0        |2026-01-30 |CRAN (R 4.5.2) |
+|selectr           |0.5-1         |NA         |NA             |
 |sessioninfo       |1.2.3         |2025-02-05 |CRAN (R 4.5.0) |
 |shiny             |1.13.0        |2026-02-20 |CRAN (R 4.5.2) |
 |shiny.i18n        |0.3.0         |2023-01-16 |CRAN (R 4.5.0) |
@@ -211,10 +214,13 @@
 |tidyselect        |1.2.1         |2024-03-11 |CRAN (R 4.5.0) |
 |timechange        |0.4.0         |2026-01-29 |CRAN (R 4.5.2) |
 |toastui           |0.4.0         |2025-04-03 |CRAN (R 4.5.0) |
+|triebeard         |0.4.1         |NA         |NA             |
 |tweenr            |2.0.3         |2024-02-26 |CRAN (R 4.5.0) |
 |twosamples        |2.0.1         |2023-06-23 |CRAN (R 4.5.0) |
 |tzdb              |0.5.0         |2025-03-15 |CRAN (R 4.5.0) |
+|urltools          |1.7.3.1       |NA         |NA             |
 |usethis           |3.2.1         |2025-09-06 |CRAN (R 4.5.0) |
+|utf8              |1.2.6         |2025-06-08 |CRAN (R 4.5.0) |
 |uuid              |1.2-2         |2026-01-23 |CRAN (R 4.5.2) |
 |vctrs             |0.7.1         |2026-01-23 |CRAN (R 4.5.2) |
 |viridis           |0.6.5         |2024-01-29 |CRAN (R 4.5.0) |
diff --git a/man/data-plots.Rd b/man/data-plots.Rd
index 8f6534f4..6da5a230 100644
--- a/man/data-plots.Rd
+++ b/man/data-plots.Rd
@@ -21,16 +21,7 @@
 \usage{
 data_visuals_ui(id, tab_title = "Plots", ...)
 
-data_visuals_server(
-  id,
-  data,
-  palettes = c(`Perceptual (blue-yellow)` = "viridis", `Perceptual (fire)` = "plasma",
-    `Colour-blind friendly` = "Okabe-Ito", `Qualitative (bold)` = "Dark 2",
-    `Qualitative (paired)` = "Paired", `Sequential (blues)` = "Blues",
-    `Diverging (red-blue)` = "RdBu", `Tableau style` = "Tableau 10", Pastel = "Pastel 1",
-    Rainbow = "rainbow"),
-  ...
-)
+data_visuals_server(id, data, palettes, ...)
 
 create_plot(data, type, pri, sec, ter = NULL, color.palette = "viridis", ...)
 
@@ -170,7 +161,7 @@ mtcars |> plot_hbars(pri = "carb", sec = "cyl")
 mtcars |> plot_hbars(pri = "carb", sec = "cyl", ter="am")
 mtcars |> plot_hbars(pri = "carb", sec = NULL,color.palette="Blues")
 mtcars |> plot_hbars(pri = "carb", sec = NULL,color.palette="Magma")
-mtcars |> plot_hbars(pri = "carb", sec = NULL,color.palette="Viridis")
+mtcars |> plot_hbars(pri = "carb", sec = "am",color.palette="Viridis")
 mtcars |> plot_likert(pri = "carb", sec = "cyl")
 mtcars |> plot_likert(pri = "carb", sec = "cyl", ter="am")
 mtcars |> plot_likert(pri = "cyl",color.palette="Blues")
diff --git a/man/vertical_stacked_bars.Rd b/man/vertical_stacked_bars.Rd
index 495588fe..75335365 100644
--- a/man/vertical_stacked_bars.Rd
+++ b/man/vertical_stacked_bars.Rd
@@ -9,7 +9,7 @@ vertical_stacked_bars(
   score = "full_score",
   group = "pase_0_q",
   strata = NULL,
-  t.size = 10,
+  t.size = 8,
   l.color = "black",
   l.size = 0.5,
   draw.lines = TRUE,