From 6ac1f405390f6f094b44e9f097cd4af2f0702ab7 Mon Sep 17 00:00:00 2001 From: ZorzArg Date: Fri, 15 Mar 2024 10:02:11 +0000 Subject: [PATCH] local commit --- shiny/R/loadData.R | 2 +- shiny/app.R | 6 +++--- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/shiny/R/loadData.R b/shiny/R/loadData.R index 0176f96..3708320 100644 --- 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 index 4795f75..4b213d1 100644 --- 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)