fix test for old data and add new test

OHDSI · Sep 26, 2023 · 20bbac3 · 20bbac3
1 parent bba449f
commit 20bbac3
Showing 1 changed file with 15 additions and 1 deletion.
diff --git a/tests/testthat/test-helpers-sccsPlots.R b/tests/testthat/test-helpers-sccsPlots.R
@@ -6,7 +6,8 @@ test_that("convert to dates", {
   testthat::expect_equal(as.character(convertToEndDate(2020,12)), "2020-12-31")
 })
 
-test_that("plotTimeTrend", {
+# Note - this is the old plot
+test_that("plotTimeTrendStability", {
   df <- data.frame(
     calendarYear = c(2011,2012),
     calendarMonth = c(1,1),
@@ -15,11 +16,24 @@ test_that("plotTimeTrend", {
     adjustedRate = runif(2),
     stable = rep(1,2)
   )
+  res <- plotTimeTrendStability(df)
+  testthat::expect_is(res, "ggplot")
+})
+# New plot
+test_that("plotTimeTrend", {
+  df <- data.frame(
+    calendarYear = c(2011,2012),
+    calendarMonth = c(1,1),
+    ratio = runif(2),
+    observedSubjects = rep(100,2),
+    adjustedRatio = runif(2)
+  )
   res <- plotTimeTrend(df)
   testthat::expect_is(res, "ggplot")
 })
 
 
+
 test_that("plotTimeToEventSccs", {
 
   df <- data.frame(