From 2554ce50a4274de3c182f529630fc3cba68a9b38 Mon Sep 17 00:00:00 2001
From: Andreas Gammelgaard Damsbo <andreas@gdamsbo.dk>
Date: Thu, 23 Jan 2025 14:25:04 +0100
Subject: [PATCH] added regression types to text

---
 .../cognitiveindex/freesearcheR_dev.dcf          |  2 +-
 inst/apps/data_analysis_modules/www/report.rmd   | 16 ++++++++++++++--
 2 files changed, 15 insertions(+), 3 deletions(-)

diff --git a/inst/apps/data_analysis_modules/rsconnect/shinyapps.io/cognitiveindex/freesearcheR_dev.dcf b/inst/apps/data_analysis_modules/rsconnect/shinyapps.io/cognitiveindex/freesearcheR_dev.dcf
index 568771d..ab5be8e 100644
--- a/inst/apps/data_analysis_modules/rsconnect/shinyapps.io/cognitiveindex/freesearcheR_dev.dcf
+++ b/inst/apps/data_analysis_modules/rsconnect/shinyapps.io/cognitiveindex/freesearcheR_dev.dcf
@@ -5,6 +5,6 @@ account: cognitiveindex
 server: shinyapps.io
 hostUrl: https://api.shinyapps.io/v1
 appId: 13786206
-bundleId: 9688503
+bundleId: 9688582
 url: https://cognitiveindex.shinyapps.io/freesearcheR_dev/
 version: 1
diff --git a/inst/apps/data_analysis_modules/www/report.rmd b/inst/apps/data_analysis_modules/www/report.rmd
index 5bad138..f314587 100644
--- a/inst/apps/data_analysis_modules/www/report.rmd
+++ b/inst/apps/data_analysis_modules/www/report.rmd
@@ -9,7 +9,7 @@ params:
 ---
 
 ```{r setup, echo = FALSE}
-knitr::opts_chunk$set(echo = FALSE, message=FALSE, warning=FALSE)
+knitr::opts_chunk$set(echo = FALSE, message = FALSE, warning = FALSE)
 ```
 
 
@@ -25,6 +25,18 @@ tbl_merge <- function(data) {
     data |> gtsummary::tbl_merge(tab_spanner = names(data))
   }
 }
+
+vec2sentence <- function(data, sep.word = "and") {
+  sep.word <- paste0(" ", gsub(" ", "", sep.word), " ")
+  if (length(data) < 2) {
+    out <- data
+  } else if (length(data) == 2) {
+    out <- paste(data, collapse = sep.word)
+  } else {
+    out <- paste(paste(data[-length(data)], collapse = ","), data[length(data)], sep = sep.word)
+  }
+  return(out)
+}
 ```
 
 ## Introduction
@@ -44,7 +56,7 @@ tbl <- gtsummary::as_gt(web_data$table1)
 knitr::knit_print(tbl)
 ```
 
-Below are the results from the 
+Below are the results from the `r tolower(vec2sentence(names(web_data$regression$tables)))` `r web_data$regression$params$descr`.
 
 ```{r, results = 'asis'}
 reg_tbl <- web_data$regression$tables