updates

priism-center · Jan 6, 2024 · fd844d9 · fd844d9
1 parent c86686a
commit fd844d9
Show file tree

Hide file tree

Showing 2 changed files with 24 additions and 24 deletions.
diff --git a/thinkCausal/R/app_ui.R b/thinkCausal/R/app_ui.R
@@ -231,22 +231,22 @@ app_ui <- function(request) {
               text = 'Estimands 2',
               tabName = 'learn_estimands2'
             ),
-            bs4Dash::menuSubItem(
-              text = 'version A',
-              tabName = 'learn_versionA'
-            ),
-            bs4Dash::menuSubItem(
-              text = 'version B',
-              tabName = 'learn_versionB'
-            ),
-            bs4Dash::menuSubItem(
-              text = 'Sandbox',
-              tabName = 'learn_rand_dist'
-            ),
-            bs4Dash::menuSubItem(
-              text = 'Fundamental',
-              tabName = 'learn_fundamental'
-            ),
+            # bs4Dash::menuSubItem(
+            #   text = 'version A',
+            #   tabName = 'learn_versionA'
+            # ),
+            # bs4Dash::menuSubItem(
+            #   text = 'version B',
+            #   tabName = 'learn_versionB'
+            # ),
+            # bs4Dash::menuSubItem(
+            #   text = 'Sandbox',
+            #   tabName = 'learn_rand_dist'
+            # ),
+            # bs4Dash::menuSubItem(
+            #   text = 'Fundamental',
+            #   tabName = 'learn_fundamental'
+            # ),
             bs4Dash::menuItem(
               text = 'Variable Selection',
               tabName = 'learn_variable_selection',
@@ -271,10 +271,10 @@ app_ui <- function(request) {
             #   text = 'Scrollytell example',
             #   tabName = 'learn_scrolly'
             # ),
-            bs4Dash::menuSubItem(
-              text = 'Randomization',
-              tabName = 'learn_randomization'
-            ),
+            # bs4Dash::menuSubItem(
+            #   text = 'Randomization',
+            #   tabName = 'learn_randomization'
+            # ),
             bs4Dash::menuSubItem(
               text = 'Observational studies',
               tabName = 'learn_observational'

diff --git a/thinkCausal/R/utils_global.R b/thinkCausal/R/utils_global.R
@@ -15,10 +15,10 @@ module_ids <- list(
     colinearity = 'learning_colinearity',
     estimands = 'learning_estimands',
     estimands2 = 'learning_estimands2',
-    versionA = 'learn_versionA',
-    versionB = 'learn_versionB',
-    fundamental = 'learning_fundamental',
-    rand_dist = 'learning_randomization_dist',
+    # versionA = 'learn_versionA',
+    # versionB = 'learn_versionB',
+    # fundamental = 'learning_fundamental',
+    # rand_dist = 'learning_randomization_dist',
     bias_efficiency = 'learning_bias_efficiency',
     rct_covariates = 'learning_rct_covariates',
     ignorability = 'learning_ignorability',