R/possible_plots.R

In PPML/MITUS_Calib_Plots: Provides Code to Generate Comparison to Recent Data Plots from the MITUS package

#' Produce a table of all possible plots
#' This table will have columns:
#'
#'     - category
#'     - shortname
#'     - name
#'     - plot
#'
#' This function does not produce the plots, but simply leaves an empty list()
#' item for each the place of each plot. Plots are produced by the calib_plots
#' function.
#'
#' @importFrom tibble tibble
#' @inheritParams calib_plots
all_possible_plots_df<-function(loc){

  short_names_vec<-c("Total_Population",
                     #"Pop_Nat_Time",
                     # "Deaths_Time",
                     "TB_Cases_Time",
                     "TB_Cases_Recent_Time",
                     "TB_Cases_Nativity",
                     "TB_Cases_Age",
                     # "TB_Cases_Age_Time",
                     "TB_NUS_percent",
                     # "TB_recent_NUS_percent",
                     "ltbi_prev_US",
                     "ltbi_prev_NUS",
                     "TB_Deaths_Year")
                     # "TB_Deaths_Age_Time",
                     # "Treatment_Outcomes")
  plot_cats<-c(rep("Demography",1),rep("Epidemiology",8))
  long_names_vec<-c("Population: Total, US, and Non-US Born",
                   #"Population by Age for Non-US Born and US Born",
                   # "Mortality: Total, US, and Non-US Born",
                   "Total TB Cases Identified",
                   "Total TB Cases Identified in Recent Years",
                   "Total TB Cases by Nativity",
                   "Total TB Cases by Age",
                   # "TB Cases by Age in Recent Years",
                   "Percent of TB Cases in Non-US Born Population",
                   # "Percent of Non-US Born TB Cases Arrived in Past 2 Years",
                   "LTBI in US Born Population by Age",
                   "LTBI in Non-US Born Population by Age",
                   "TB Deaths in Recent Years")
                   # "TB Deaths by Age Group",
                   # "TLTBI Treatment Outcomes")

  category<-as.factor(plot_cats)
  shortname<-as.vector(short_names_vec)
  name<-as.vector(long_names_vec)
  plot<-lapply(1:length(plot_cats), function(x) list())
  possible_plots<-tibble::tibble(category,shortname,name,plot,target_data_list(loc), output_data_list(loc))
  return(possible_plots)
}