scripts/tables--combine_costeffectiveness_tables.R

In n8thangreen/LTBIscreeningproject: LTBI screening cost-effectiveness analysis

#
# LTBI screening
# N Green
# combine-costeffectiveness-tables.R
#
# combine all CE output in to single table


flder <-
  list.dirs(parent_folder)[-1] %>%
  sort()

tab <- NULL

for (i in seq_along(flder)) {

  tab <-
    read.csv(paste0(flder[i], "/costeffectiveness_table.csv")) %>%
    add_column('policy' = i) %>%
    rbind(tab, .)
}

policy_desc <- read.csv(paste0(parent_folder, "/policies-inputs.csv"))

tab <- merge(policy_desc, tab,
             by = 'policy',
             all.y = TRUE, all.x = FALSE)

write.csv(tab, file = paste0(parent_folder, "/combined_costeffectiveness_tables.csv"))