push back data date, dashboard w/out external

scripts/covid_hosp_explore.R

@@ -140,7 +140,7 @@ ensembles_params_grid_target <- list(
 hhs_signal <- "confirmed_admissions_covid_1d"
 chng_signal <- "smoothed_adj_outpatient_covid"
 eval_time <- epidatr::epirange(from = "2020-01-01", to = "2024-01-01")
-training_time <- epidatr::epirange(from = "2021-01-01", to = "2023-06-01")
+training_time <- epidatr::epirange(from = "2020-08-01", to = "2023-06-01")
 fetch_args <- epidatr::fetch_args_list(return_empty = TRUE, timeout_seconds = 400)
 data_targets <- make_data_targets()
 

scripts/dashboard.R

@@ -1,4 +1,5 @@
 tar_project <- Sys.getenv("TAR_PROJECT", "covid_hosp_explore")
+external_scores_path <- Sys.getenv("EXTERNAL_SCORES_PATH", "")
 debug_mode <- as.logical(Sys.getenv("DEBUG_MODE", TRUE))
 use_shiny <- as.logical(Sys.getenv("USE_SHINY", FALSE))
 use_aws_s3_only <- as.logical(Sys.getenv("USE_AWS_S3_ONLY", FALSE))
@@ -31,7 +32,7 @@ ensemble_options <- setNames(
 
 external_options <- unique(tar_read(external_names))
 EXTERNAL_PREFIX <- "[external] "
-if (!is.null(external_options) && length(external_options) > 0) {
+if (!is.null(external_options) && length(external_options) > 0 && external_scores_path != "") {
   external_options <- setNames(
     # File names
     # Get names of all branches of `external_scores` target by index. The way these

scripts/one_offs/step-through-smoothed-scaled.R

@@ -8,7 +8,7 @@ library(epidatr)
 library(epiprocess)
 devtools::load_all(export_all = FALSE)
 
-forecast_as_of <- as.Date("2021-11-29")
+forecast_as_of <- as.Date("2021-11-16")
 
 data_start_date <- as.Date("2020-08-01")
 target_geo_values <- c(tolower(state.abb), "dc", "pr", "vi") # TODO consider national-level