From b47a8bb1c021e45ffd882f2e01fc65041801e2d2 Mon Sep 17 00:00:00 2001
From: Andreas Gammelgaard Damsbo <andreas@gdamsbo.dk>
Date: Fri, 24 Jan 2025 11:26:14 +0100
Subject: [PATCH] include regression p-value by default

---
 inst/apps/data_analysis_modules/app.R                  | 10 ++++++----
 .../rsconnect/shinyapps.io/agdamsbo/freesearcheR.dcf   |  2 +-
 inst/apps/data_analysis_modules/ui.R                   |  2 +-
 3 files changed, 8 insertions(+), 6 deletions(-)

diff --git a/inst/apps/data_analysis_modules/app.R b/inst/apps/data_analysis_modules/app.R
index 2651506..a48ac8e 100644
--- a/inst/apps/data_analysis_modules/app.R
+++ b/inst/apps/data_analysis_modules/app.R
@@ -2470,7 +2470,7 @@ regression_table_create <- function(x, ..., args.list = NULL, fun = "gtsummary::
 
   if (any(c(length(class(x)) != 1, class(x) != "lm"))) {
     if (!"exponentiate" %in% names(args.list)) {
-      args.list <- c(args.list, list(exponentiate = TRUE))
+      args.list <- c(args.list, list(exponentiate = TRUE, p.values = TRUE))
     }
   }
 
@@ -4078,7 +4078,9 @@ server <- function(input, output, session) {
   ##############################################################################
 
   shiny::observeEvent(rv$data_original, {
-    rv$data <- rv$data_original |> default_parsing()
+    rv$data <- rv$data_original |>
+      default_parsing() |>
+      janitor::clean_names()
   })
 
   shiny::observeEvent(input$data_reset, {
@@ -4459,8 +4461,8 @@ server <- function(input, output, session) {
           }
         })()
 
-      gtsummary::as_kable(rv$list$table1) |>
-        readr::write_lines(file="./www/_table1.md")
+      # gtsummary::as_kable(rv$list$table1) |>
+      #   readr::write_lines(file="./www/_table1.md")
     }
   )
 
diff --git a/inst/apps/data_analysis_modules/rsconnect/shinyapps.io/agdamsbo/freesearcheR.dcf b/inst/apps/data_analysis_modules/rsconnect/shinyapps.io/agdamsbo/freesearcheR.dcf
index 66c2db2..f0c07b2 100644
--- a/inst/apps/data_analysis_modules/rsconnect/shinyapps.io/agdamsbo/freesearcheR.dcf
+++ b/inst/apps/data_analysis_modules/rsconnect/shinyapps.io/agdamsbo/freesearcheR.dcf
@@ -5,6 +5,6 @@ account: agdamsbo
 server: shinyapps.io
 hostUrl: https://api.shinyapps.io/v1
 appId: 13611288
-bundleId: 9687629
+bundleId: 9693816
 url: https://agdamsbo.shinyapps.io/freesearcheR/
 version: 1
diff --git a/inst/apps/data_analysis_modules/ui.R b/inst/apps/data_analysis_modules/ui.R
index 04fffdd..df3add4 100644
--- a/inst/apps/data_analysis_modules/ui.R
+++ b/inst/apps/data_analysis_modules/ui.R
@@ -351,7 +351,7 @@ ui_elements <- list(
               inputId = "add_regression_p",
               label = "Add p-value",
               inline = TRUE,
-              selected = "no",
+              selected = "yes",
               choices = list(
                     "Yes" = "yes",
                     "No" = "no"