fix input error with hospital plots

R/FIN_plot.R

@@ -326,11 +326,11 @@ plot_times <- function(sim) {
 #' @importFrom dplyr summarise
 #' @export
 get_weekly_local <- function(sim, 
-                             market.share = 0.04,
-                             icu_percent = .1, 
-                             start_date = ymd("2020-03-21"),
-                             time_lim = 90,
-                             total_population = NULL){
+                             market.share = market.share,
+                             icu_percent = icu_percent, 
+                             start_date = start_date,
+                             time_lim = time_lim,
+                             total_population = total_population){
 
     # Get h.num and 95% quantile CIs
     sim_mean <- as.data.frame(sim, out = "mean")

vignettes/sirplus_intro_v2.Rmd

@@ -227,5 +227,5 @@ This function takes the following input:
   scaled down) to reduce computational cost.
   
 ```{r hospital visualization}
-plot(baseline_sim, method = "weekly_local", time_lim = 50, start_date = lubridate::ymd("2020-01-01"), return_df = TRUE)
+plot(baseline_sim, method = "weekly_local", time_lim = 40, start_date = lubridate::ymd("2020-01-01"), return_df = TRUE)
 ```