In Thaliehln/timci: Data management and visualisation for the TIMCI project

knitr::opts_chunk$set(echo = FALSE,
                      warning = FALSE,
                      message = FALSE)

Hospital costs

write("Export hospital cost data", stderr())

hospital_cost_export_name <- "02a_timci_hospital_cost_data"
if (!is.null(hospital_cost_data[[1]])) {
  fn <- timci::export_df2xlsx(hospital_cost_data[[1]],
                              cost_dir,
                              hospital_cost_export_name)
  cat(paste0("* Raw hospital cost data are exported in file ", hospital_cost_export_name, ".xslx in the ", cost_dir, " folder"))
}

hospital_cost_export_name <- "02b_timci_hospital_cost_exemption_data"

if (!is.null(hospital_cost_data[[2]])) {
  fn <- timci::export_df2xlsx(hospital_cost_data[[2]],
                              cost_dir,
                              hospital_cost_export_name)
  cat(paste0("* Hospital cost exemption data are exported in file ", medical_cost_export_name, ".xslx in the ", cost_dir, " folder"))
}

hospital_cost_export_name <- "02z_timci_hospital_cost_audit"
i <- length(hospital_cost_data)

if (!is.null(hospital_cost_data[[i]])) {
  fn <- timci::export_df2xlsx(hospital_cost_data[[i]],
                              cost_dir,
                              hospital_cost_export_name)
  cat(paste0("* Hospital cost audit log is exported in file ", hospital_cost_export_name, ".xslx in the ", cost_dir, " folder"))
}