more tests

ShixiangWang · Sep 11, 2021 · a173442 · a173442
1 parent 514b0f6
commit a173442
Show file tree

Hide file tree

Showing 16 changed files with 56 additions and 22 deletions.
diff --git a/R/clean_model_dir.R b/R/clean_model_dir.R
@@ -6,7 +6,11 @@
 #' @export
 #'
 #' @examples
-#' clean_model_dir
+#' \donttest{
+#' clean_model_dir()
+#' }
+#' @testexamples
+#' expect_message(clean_model_dir(), "Done")
 clean_model_dir <- function(model_dir = file.path(tempdir(), "ezcox")) {
   if (dir.exists(model_dir)) {
     message("Cleaning...")

diff --git a/R/show_forest.R b/R/show_forest.R
@@ -26,10 +26,13 @@
 #'   covariates = c("sex", "ph.ecog"), controls = "age", merge_models = TRUE,
 #'   drop_controls = TRUE
 #' )
-#' show_forest(lung,
+#' p <- show_forest(lung,
 #'   covariates = c("sex", "ph.ecog"), controls = "age", merge_models = TRUE,
 #'   vars_to_show = "sex"
 #' )
+#' p
+#' @testexamples
+#' expect_s3_class(p, "ggplot")
 show_forest <- function(data, covariates, controls = NULL,
                         time = "time",
                         status = "status",

diff --git a/docs/reference/Rplot001.png b/docs/reference/Rplot001.png
diff --git a/docs/reference/Rplot002.png b/docs/reference/Rplot002.png
diff --git a/docs/reference/Rplot003.png b/docs/reference/Rplot003.png
diff --git a/docs/reference/Rplot004.png b/docs/reference/Rplot004.png
diff --git a/docs/reference/clean_model_dir.html b/docs/reference/clean_model_dir.html
diff --git a/docs/reference/figures/README-unnamed-chunk-2-1.png b/docs/reference/figures/README-unnamed-chunk-2-1.png
diff --git a/docs/reference/show_forest-1.png b/docs/reference/show_forest-1.png
diff --git a/docs/reference/show_forest-2.png b/docs/reference/show_forest-2.png
diff --git a/docs/reference/show_forest-3.png b/docs/reference/show_forest-3.png
diff --git a/docs/reference/show_forest.html b/docs/reference/show_forest.html
diff --git a/man/clean_model_dir.Rd b/man/clean_model_dir.Rd
diff --git a/man/show_forest.Rd b/man/show_forest.Rd
diff --git a/tests/testthat/test-roxytest-testexamples-clean_model_dir.R b/tests/testthat/test-roxytest-testexamples-clean_model_dir.R
@@ -0,0 +1,12 @@
+# Generated by roxytest: Do not edit by hand!
+
+# File R/clean_model_dir.R: @testexamples
+
+test_that("Function clean_model_dir() @ L14", {
+
+
+  clean_model_dir()
+
+  expect_message(clean_model_dir(), "Done")
+})
+
diff --git a/tests/testthat/test-roxytest-testexamples-show_forest.R b/tests/testthat/test-roxytest-testexamples-show_forest.R
@@ -0,0 +1,21 @@
+# Generated by roxytest: Do not edit by hand!
+
+# File R/show_forest.R: @testexamples
+
+test_that("Function show_forest() @ L36", {
+
+  library(survival)
+  show_forest(lung, covariates = c("sex", "ph.ecog"), controls = "age")
+  show_forest(lung, covariates = c("sex", "ph.ecog"), controls = "age", merge_models = TRUE)
+  show_forest(lung,
+    covariates = c("sex", "ph.ecog"), controls = "age", merge_models = TRUE,
+    drop_controls = TRUE
+  )
+  p <- show_forest(lung,
+    covariates = c("sex", "ph.ecog"), controls = "age", merge_models = TRUE,
+    vars_to_show = "sex"
+  )
+  p
+  expect_s3_class(p, "ggplot")
+})
+