From 823adeb8136c02453a2f13ae933528a26cef76fa Mon Sep 17 00:00:00 2001 From: Tymoteusz Makowski Date: Thu, 12 Oct 2023 09:16:20 +0200 Subject: [PATCH] refactor: replace teal.data with RDS snapshot --- app/main.R | 13 +------------ 1 file changed, 1 insertion(+), 12 deletions(-) diff --git a/app/main.R b/app/main.R index 7ce8034..29db1ce 100644 --- a/app/main.R +++ b/app/main.R @@ -4,11 +4,9 @@ box::use( textOutput, renderText, actionButton, observe, bindEvent, icon, ], teal[ui_teal_with_splash, modules, module, srv_teal_with_splash], - teal.data[cdisc_data, cdisc_dataset], ) box::use( - app / logic / adam_data[get_adsl, get_adas, get_adtte, get_adlb], app / view / user_guide, app / view / demographic_table, app / view / km_plot, @@ -17,17 +15,8 @@ box::use( app / view / completion_table, ) -adsl <- get_adsl() -adas <- get_adas() -adtte <- get_adtte() -adlb <- get_adlb() +teal_data <- readRDS("teal_data.rds") -teal_data <- cdisc_data( - cdisc_dataset("ADSL", adsl), - cdisc_dataset("ADAS", adas, keys = c("STUDYID", "USUBJID", "PARAMCD", "AVISIT", "QSSEQ")), - cdisc_dataset("ADTTE", adtte), - cdisc_dataset("ADLB", adlb) -) teal_modules <- modules( module(