From e0ce910393829bcd69d2e816e3a97596f007143a Mon Sep 17 00:00:00 2001
From: Andreas Gammelgaard Damsbo <andreas@gdamsbo.dk>
Date: Fri, 24 Jan 2025 11:25:54 +0100
Subject: [PATCH] clean variable names with janitor::clean_names()

---
 inst/apps/data_analysis_modules/server.R | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/inst/apps/data_analysis_modules/server.R b/inst/apps/data_analysis_modules/server.R
index 623e64f..884a82c 100644
--- a/inst/apps/data_analysis_modules/server.R
+++ b/inst/apps/data_analysis_modules/server.R
@@ -162,7 +162,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, {
@@ -543,8 +545,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")
     }
   )