Add tests for MR-GRIP in scatter plot

Author: remlapmot

tests/testthat/test_plots.R

@@ -17,3 +17,17 @@ test_that("Scatter plot for default set of estimates", {
   expect_true(is.list(p2))
   expect_true(length(p2) == 1L)
 })
+
+test_that("Scatter plot for mr_grip", {
+  m3 <- mr(dat, method_list = "mr_grip")
+  p3 <- mr_scatter_plot(m3, dat)
+  expect_true(is.list(p3))
+  expect_true(length(p3) == 1L)
+})
+
+test_that("A second scatter plot for mr_grip", {
+  m4 <- mr(dat2, method_list = "mr_grip")
+  p4 <- mr_scatter_plot(m4, dat2)
+  expect_true(is.list(p4))
+  expect_true(length(p4) == 4L)
+})