local commit

OdyOSG · Mar 15, 2024 · 6ac1f40 · 6ac1f40
1 parent fdf983a
commit 6ac1f40
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/shiny/R/loadData.R b/shiny/R/loadData.R
@@ -183,7 +183,7 @@ txPatDatAll <- dplyr::bind_rows(
 )
 
 ### Sankey pickers
-cohortName2 <- c(cohortName)
+cohortName2 <- c("hmb", "hmb_age_lt_30", "hmb_age_30_45", "hmb_age_45_55")
 
 sankeyCohorts <- tibble::tibble(
   id = c(1L, 1001L, 1002L, 1003L),

diff --git a/shiny/app.R b/shiny/app.R
@@ -1398,7 +1398,7 @@ server <- function(input, output, session){
       lineKM <- "1003"
     }
 
-    ttd_km_name <- here::here(glue::glue('shiny/data_0603/ttd/wo/tte_{input$databaseNameTtd}_{lineKM}.rds'))
+    ttd_km_name <- here::here(glue::glue('shiny/data/ttd/wo/tte_{input$databaseNameTtd}_{lineKM}.rds'))
 
     ttd_km <- readr::read_rds(ttd_km_name)
 
@@ -1449,7 +1449,7 @@ server <- function(input, output, session){
       lineKM <- "1003"
     }
 
-    ttd_km_name <- here::here(glue::glue('shiny/data_0603/ttd/with/tte_{input$databaseNameTtd2}_{lineKM}.rds'))
+    ttd_km_name <- here::here(glue::glue('shiny/data/ttd/with/tte_{input$databaseNameTtd2}_{lineKM}.rds'))
 
     ttd_km <- readr::read_rds(ttd_km_name)
 
@@ -1602,7 +1602,7 @@ server <- function(input, output, session){
       lineKM <- "1003"
     }
 
-    ttd_km_name <- here::here(glue::glue('shiny/data_0603/tti/tti_{input$databaseNameTti}_{lineKM}.rds'))
+    ttd_km_name <- here::here(glue::glue('shiny/data/tti/tti_{input$databaseNameTti}_{lineKM}.rds'))
 
     ttd_km <- readr::read_rds(ttd_km_name)