Merge pull request #49 from priism-center/dev

Dev
priism-center · Jan 10, 2024 · 8269056 · 8269056
2 parents 7c9c583 + 09a2389
commit 8269056
Show file tree

Hide file tree

Showing 4 changed files with 9 additions and 9 deletions.
diff --git a/thinkCausal/R/mod_analysis_balance.R b/thinkCausal/R/mod_analysis_balance.R
@@ -29,14 +29,14 @@ mod_analysis_balance_ui <- function(id){
         ),
         selectInput(inputId = ns('analysis_balance_select'),
                     label = 'Filter variables in balance plot:',
-                    choices = c('Plot varibables with most imbalance',
+                    choices = c('Plot variables with most imbalance',
                                 'Manually select variables to plot')
                     ),
         # checkboxInput(ns('analysis_balance_show_table'),
         #               label = 'Show balance table',
         #               value = TRUE
         #               ),
-        conditionalPanel(condition = "input.analysis_balance_select == 'Plot varibables with most imbalance'",
+        conditionalPanel(condition = "input.analysis_balance_select == 'Plot variables with most imbalance'",
                          ns = ns,
                          sliderInput(ns('analysis_balance_cat'),
                                      label = 'Categorical variables in balance plot:',

diff --git a/thinkCausal/R/mod_learn_fundamental.R b/thinkCausal/R/mod_learn_fundamental.R
@@ -149,9 +149,9 @@ mod_learn_fundamental_server <- function(id){
     ns <- session$ns
 
     # load in everything we need
-    datImputed <- readr::read_csv('inst/extdata/fundamental_table2.csv') %>%
+    datImputed <- readr::read_csv(app_sys('extdata/fundamental_table2.csv')) %>%
       dplyr::mutate(estITE = Y1 - Y0)
-    datTruth <- readr::read_csv('inst/extdata/truth.csv')
+    datTruth <- readr::read_csv(app_sys('extdata/truth.csv'))
     datCombined <- data.frame(
       datImputed[, 1:3],
       estY0 = datImputed$Y0,

diff --git a/thinkCausal/R/mod_learn_versionA.R b/thinkCausal/R/mod_learn_versionA.R
@@ -106,7 +106,7 @@ mod_learn_versionA_server <- function(id){
       imputedY0 <- "#2297E6"
       imputedY1 <- "#DF536B"
 
-      dat18 <- readr::read_csv('inst/extdata/fundamental_table2.csv')
+      dat18 <- readr::read_csv(app_sys('extdata/fundamental_table2.csv'))
       items$position3 <- div(
         style = 'visibility: hidden;',
         reactable::renderReactable({
@@ -138,9 +138,9 @@ mod_learn_versionA_server <- function(id){
 
       )
 
-      truth <- readr::read_csv('inst/extdata/truth.csv')
+      truth <- readr::read_csv(app_sys('extdata/truth.csv'))
       truth$ITE <- with(truth, Y1 - Y0)
-      imputed <- readr::read_csv('inst/extdata/fundamental_table2.csv')
+      imputed <- readr::read_csv(app_sys('extdata/fundamental_table2.csv'))
       imputed$ITE <- with(imputed, Y1 - Y0)
       combined <- cbind(truth[, 1:3], imputed[, 4], truth[, 4], imputed[, 5], truth[, 5], truth[, 6])
       combined[combined$hyperShoe == 0, 4] <- NA

diff --git a/thinkCausal/R/mod_learn_versionB.R b/thinkCausal/R/mod_learn_versionB.R
@@ -106,7 +106,7 @@ mod_learn_versionB_server <- function(id){
       imputedY0 <- "#E6C0F0"
       imputedY1 <- "#E6C0F0"
 
-      dat18 <- readr::read_csv('inst/extdata/fundamental_table2.csv')
+      dat18 <- readr::read_csv(app_sys('extdata/fundamental_table2.csv'))
       items$position3 <- div(
         style = 'visibility: hidden;',
         reactable::renderReactable({
@@ -140,7 +140,7 @@ mod_learn_versionB_server <- function(id){
 
       truth <- readr::read_csv('inst/extdata/truth.csv')
       truth$ITE <- with(truth, Y1 - Y0)
-      imputed <- readr::read_csv('inst/extdata/fundamental_table2.csv')
+      imputed <- readr::read_csv(app_sys('extdata/fundamental_table2.csv'))
       imputed$ITE <- with(imputed, Y1 - Y0)
       combined <- cbind(truth[, 1:3], imputed[, 4], truth[, 4], imputed[, 5], truth[, 5], truth[, 6])
       combined[combined$hyperShoe == 0, 4] <- NA