Update phenotype_sensitivity_table_collation.R

opensafely · Sep 25, 2024 · 9daeb7e · 9daeb7e
1 parent 75dd254
commit 9daeb7e
Showing 1 changed file with 7 additions and 7 deletions.
diff --git a/analysis/collation_code/phenotype_sensitivity_table_collation.R b/analysis/collation_code/phenotype_sensitivity_table_collation.R
@@ -18,19 +18,19 @@ fs::dir_create(here("output", "collated", "descriptive"))
 
 # import phenotype sensitivity by cohort
 collated_phenotype_sensitivity = rbind(
-  read_csv(here::here("output", "sensitivity", paste0("phenotype_sensitivity_", 
+  read_csv(here::here("output", "exploratory", paste0("phenotype_sensitivity_", 
            cohort, "_2016_2017.csv"))) %>% mutate(subset = "2016_17"),
-  read_csv(here::here("output", "sensitivity", paste0("phenotype_sensitivity_", 
+  read_csv(here::here("output", "exploratory", paste0("phenotype_sensitivity_", 
            cohort, "_2017_2018.csv"))) %>% mutate(subset = "2017_18"),
-  read_csv(here::here("output", "sensitivity", paste0("phenotype_sensitivity_", 
+  read_csv(here::here("output", "exploratory", paste0("phenotype_sensitivity_", 
            cohort, "_2018_2019.csv"))) %>% mutate(subset = "2018_19"),
-  read_csv(here::here("output", "sensitivity", paste0("phenotype_sensitivity_", 
+  read_csv(here::here("output", "exploratory", paste0("phenotype_sensitivity_", 
            cohort, "_2019_2020.csv"))) %>% mutate(subset = "2019_20"),
-  read_csv(here::here("output", "sensitivity", paste0("phenotype_sensitivity_", 
+  read_csv(here::here("output", "exploratory", paste0("phenotype_sensitivity_", 
            cohort, "_2020_2021.csv"))) %>% mutate(subset = "2020_21"),
-  read_csv(here::here("output", "sensitivity", paste0("phenotype_sensitivity_", 
+  read_csv(here::here("output", "exploratory", paste0("phenotype_sensitivity_", 
            cohort, "_2021_2022.csv"))) %>% mutate(subset = "2021_22"),
-  read_csv(here::here("output", "sensitivity", paste0("phenotype_sensitivity_", 
+  read_csv(here::here("output", "exploratory", paste0("phenotype_sensitivity_", 
            cohort, "_2022_2023.csv"))) %>% mutate(subset = "2022_23")
 )