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

write(formats2h2("Export cost & cost-effectiveness data"), stderr())

No data cleaning for the lock.

if (!is.null(medical_cost_data)){
  out <- knitr::knit_child('database_export_medicalcost_sub.Rmd',
                           envir = environment(),
                           quiet = TRUE)
  cat(out, sep = '\n')
}

if (!is.null(hospital_cost_data)){
  out <- knitr::knit_child('database_export_hospitalcost_sub.Rmd',
                           envir = environment(),
                           quiet = TRUE)
  cat(out, sep = '\n')
}