From 29774f19a4e144ad037e9d9ceaf72bb0765bafc7 Mon Sep 17 00:00:00 2001 From: jamesaazam Date: Fri, 3 Nov 2023 11:34:06 +0000 Subject: [PATCH] Fix use of modifyList list --- vignettes/epinow.Rmd | 2 +- vignettes/epinow.Rmd.orig | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/vignettes/epinow.Rmd b/vignettes/epinow.Rmd index 508f07bc1..1365e07de 100644 --- 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 index 4f27e76e9..94a5f8d2b 100644 --- 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,