tests/testthat/test_viz_ts.R

test_that("viz_ts returns ggplot-object", {
  # expect_identical(class(viz_ts(prepare_data(patientdata), left_right = "left"))[2], 
  #                  "ggplot")
  # expect_identical(class(viz_ts(prepare_data(patientdata), left_right = "right"))[2], 
  #                  "ggplot")
})
gertstulp/ggzcentraal documentation built on May 23, 2022, 1:10 a.m.