From 787b5139643beab9f22aa780c0ec4391ea733dd1 Mon Sep 17 00:00:00 2001
From: cazodi <cazodi@svi.edu.au>
Date: Thu, 16 Apr 2020 15:37:59 +1000
Subject: [PATCH] update to check if ggplot object
---
tests/testthat/test-plot-model.R | 27 ++++++++-------------------
1 file changed, 8 insertions(+), 19 deletions(-)
diff --git a/tests/testthat/test-plot-model.R b/tests/testthat/test-plot-model.R
index a42de96..c13310c 100644
--- a/tests/testthat/test-plot-model.R
+++ b/tests/testthat/test-plot-model.R
@@ -20,30 +20,19 @@ sim_exp <- simulate_seiqhrf(nsteps = nsteps, s.num = s.num, i.num = i.num,
q.num = q.num, h.num = h.num, act.rate.e = act_rate,
act.rate.i = act_rate * 0.5)
-# Experiment #2
-vals <- c(10, 7, 7, 10)
-timing <- c(7, 14, 21, 28)
-act_rate_relax <- vary_param(nsteps, vals = vals, timing = timing)
-sim_exp_relax <- simulate_seiqhrf(nsteps = nsteps, s.num = s.num, i.num = i.num,
- q.num = q.num, h.num = h.num,
- act.rate.e = act_rate_relax,
- act.rate.i = 0.5 * act_rate_relax)
+# ori_plot <- plot_models(c(baseline_sim, sim_exp),
+# sim_id = c('Baseline', 'Closures'),
+# start_date = lubridate::ymd("2020-01-01"),
+# comp_remove = c('s.num', 'r.num'),
+# plot_title = 'Closures Experiment')
-
-
-ori_plot <- plot_models(c(baseline_sim, sim_exp, sim_exp_relax),
- sim_id = c('Baseline', 'Closures', 'Closures (2 mo)'),
- start_date = lubridate::ymd("2020-01-01"),
- comp_remove = c('s.num', 'r.num'),
- plot_title = 'Closures Experiment')
-
-my_plot <- plot(list('Baseline' = baseline_sim$sim, 'Closures' = sim_exp$sim, 'Closures (2 mo)' = sim_exp_relax$sim),
+my_plot <- plot(list('Baseline' = baseline_sim$sim, 'Closures' = sim_exp$sim),
start_date = lubridate::ymd("2020-01-01"),
comp_remove = c('s.num', 'r.num'),
plot_title = 'Closures Experiment')
-
-expect_equal(all.equal(ori_plot, my_plot), TRUE)
+expect_true(is.ggplot(my_plot))
+#expect_equal(all.equal(ori_plot, my_plot), TRUE)
})
--
GitLab