add tests

heike · Jan 29, 2024 · baf9ddb · baf9ddb
1 parent 9409cf1
commit baf9ddb
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 3 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -16,9 +16,11 @@ Imports:
     reshape2 (>= 1.4.2),
     plyr (>= 1.8.4)
 Suggests:
-    RColorBrewer
+    RColorBrewer,
+    testthat (>= 3.0.0)
 URL: http://github.com/heike/ggparallel
 BugReports: https://github.com/heike/ggparallel/issues
 LazyData: true
 RoxygenNote: 7.2.3
 Encoding: UTF-8
+Config/testthat/edition: 3
diff --git a/inst/examples/ggparallel-ex.R b/inst/examples/ggparallel-ex.R
@@ -82,11 +82,13 @@ ggparallel(vars=list("Survived", "SexSurvived", "SexClassSurvived"), weight="Fre
 
 ###########
 
-p1 <- ggparallel(vars=list("Survived", "SexSurvived", "SexClassSurvived"), weight="Freq", data=titanic, label = FALSE) +
+p1 <- ggparallel(vars=list("Survived", "SexSurvived", "SexClassSurvived"),
+                 weight="Freq", data=titanic, label = FALSE) +
   theme(legend.position="none") +
   scale_fill_manual(values = rep(c("Orange", "Steelblue"), 14)) +
   scale_colour_manual(values = rep(c("Orange", "Steelblue"), 14))
-p2 <- ggparallel(vars=list("Survived", "SexSurvived", "SexClassSurvived"), weight="Freq", data=titanic, label = TRUE) +
+p2 <- ggparallel(vars=list("Survived", "SexSurvived", "SexClassSurvived"),
+                 weight="Freq", data=titanic, label = TRUE) +
   theme(legend.position="none") +
   scale_fill_manual(values = rep(c("Orange", "Steelblue"), 14)) +
   scale_colour_manual(values = rep(c("Orange", "Steelblue"), 14))