latest dev version

inst/apps/FreesearchR/app.R

@@ -4750,6 +4750,7 @@ modal_data_missings <- function(data,
     tags$div(
       shiny::renderPlot({
         visdat::vis_dat(datar())+
+          ggplot2::guides(fill = ggplot2::guide_legend(title = "Data class")) +
           # ggplot2::theme_void() +
           ggplot2::theme(
             # legend.position = "none",
@@ -10549,7 +10550,8 @@ server <- function(input, output, session) {
   observeEvent(input$modal_missings, {
     tryCatch(
       {
-        modal_data_missings(data = REDCapCAST::fct_drop(rv$data_filtered))
+        modal_data_missings(data = REDCapCAST::fct_drop(rv$data_filtered),
+                            footer = "This pop-up gives you an overview of how your data is interpreted, and where data is missing. Use this information to consider if data is missing at random or if some observations are missing systematically wich may be caused by an observation bias.")
       },
       error = function(err) {
         showNotification(paste0("We encountered the following error showing missingness: ", err), type = "err")

inst/apps/FreesearchR/www/report.rmd

@@ -7,6 +7,7 @@ toc: false
 params:
   data.file: NA
   version: NA
+  regression.p: NA
 ---
 
 ```{r setup, echo = FALSE}
@@ -65,7 +66,15 @@ if ("table1" %in% names(web_data)) {
 ```{r, results = 'asis'}
 if ("regression" %in% names(web_data) && length(web_data$regression) > 0) {
   reg_tbl <- web_data$regression$regression$tables
-  knitr::knit_print(tbl_merge(reg_tbl))
+  
+  merged <- tbl_merge(reg_tbl)
+  
+  if (params$regression.p == "no") {
+            merged <- merged |>
+              gtsummary::modify_column_hide(column = dplyr::starts_with("p.value"))
+          }
+  
+  knitr::knit_print(merged)
 }
 ```
 

inst/apps/FreesearchR/www/umami-app.html

@@ -0,0 +1 @@
+<script defer src="https://stats.freesearchr.org/script.js" data-website-id="349608b9-78f8-47ee-9185-0d3716095fd5"></script>