Fix use of modifyList list

epiforecasts · Nov 3, 2023 · 29774f1 · 29774f1
1 parent 2d3fa46
commit 29774f1
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/vignettes/epinow.Rmd b/vignettes/epinow.Rmd
@@ -128,7 +128,7 @@ If instead, we wanted to use the Gaussian Process for `testland` and a weekly ra
 
 ```r
 gp <- opts_list(gp_opts(), cases)
-gp <- modifyList(gp, list(realland = NULL))
+gp <- modifyList(gp, list(realland = NULL), keep.null = TRUE)
 rt <- opts_list(rt_opts(), cases, realland = rt_opts(rw = 7))
 region_separate_rt <- regional_epinow(
   reported_cases = cases,

diff --git a/vignettes/epinow.Rmd.orig b/vignettes/epinow.Rmd.orig
@@ -92,7 +92,7 @@ If instead, we wanted to use the Gaussian Process for `testland` and a weekly ra
 
 ```{r regional_epinow_multiple, fig.width = 8}
 gp <- opts_list(gp_opts(), cases)
-gp <- modifyList(gp, list(realland = NULL))
+gp <- modifyList(gp, list(realland = NULL), keep.null = TRUE)
 rt <- opts_list(rt_opts(), cases, realland = rt_opts(rw = 7))
 region_separate_rt <- regional_epinow(
   reported_cases = cases,