include regression p-value by default

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")
     }
   )
 

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

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"