Update Poisson example

doccstat · Dec 20, 2023 · 836118a · 836118a
1 parent f9b6930
commit 836118a
Show file tree

Hide file tree

Showing 5 changed files with 14 additions and 3 deletions.
diff --git a/.gitignore b/.gitignore
@@ -48,3 +48,4 @@ vignettes/*.aux
 .vscode/
 docs
 pkgdown/favicon/
+CRAN-SUBMISSION
diff --git a/R/fastcpd_wrappers.R b/R/fastcpd_wrappers.R
@@ -373,7 +373,7 @@ fastcpd_mv <- fastcpd.meanvariance
 #' except that the data is by default a matrix or data frame with the response
 #' variable as the first column and thus a formula is not required here.
 #'
-#' @example tests/testthat/examples/fastcpd_poisson.R
+#' @example tests/testthat/examples/fastcpd_poisson.txt
 #'
 #' @md
 #'

diff --git a/man/fastcpd_poisson.Rd b/man/fastcpd_poisson.Rd
diff --git a/tests/testthat/examples/fastcpd_poisson.R → tests/testthat/examples/fastcpd_poisson.txt b/tests/testthat/examples/fastcpd_poisson.R → tests/testthat/examples/fastcpd_poisson.txt
@@ -1,3 +1,4 @@
+\donttest{
 set.seed(1)
 n <- 1100
 p <- 3
@@ -13,3 +14,4 @@ y <- c(
 result <- fastcpd.poisson(cbind(y, x))
 summary(result)
 plot(result)
+}
diff --git a/tests/testthat/test-examples-fastcpd_poisson.R b/tests/testthat/test-examples-fastcpd_poisson.R
@@ -1,7 +1,13 @@
 testthat::test_that(
- "examples/fastcpd_poisson.R", {
+ "examples/fastcpd_poisson.txt", {
  testthat::skip_if_not_installed("mvtnorm")
- source("examples/fastcpd_poisson.R")
+
+ examples_poisson <- readLines("examples/fastcpd_poisson.txt")
+ source(textConnection(paste(
+ examples_poisson[seq_len(length(examples_poisson) - 2) + 1],
+ collapse = "\n"
+ )))
+
  testthat::expect_equal(result@cp_set, c(498, 800, 1003))
  }
 )