Update plot.R

epiforecasts · Aug 21, 2020 · ff5aec6 · ff5aec6
1 parent 9e945bc
commit ff5aec6
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/plot.R b/R/plot.R
@@ -85,7 +85,7 @@ plot_estimates <- function(estimate, reported, ylab = "Cases", hline,
   ## Scale plot values based on reported cases
   if (!missing(reported) & !is.na(max_plot)) {
     sd_cols <- c("upper", "lower", "bottom", "top")
-    cols <- setdiff(colnames(reported), c("date", "confirm", "breakpoints"))
+    cols <- setdiff(colnames(reported), c("date", "confirm", "breakpoint"))
 
     if (length(cols > 1)) {
       max_cases_to_plot <- data.table::copy(reported)[,
@@ -230,4 +230,4 @@ plot_summary <- function(summary_results, x_lab = "Region", log_cases = FALSE,
   plot <- cases_plot + rt_plot + patchwork::plot_layout(ncol = 1)
 
   return(plot)
-}
+}