adding tests for sw_combine, sw_combine_plot and sw_interval

ropensci · Nov 19, 2023 · 708a781 · 708a781
1 parent b42b764
commit 708a781
Show file tree

Hide file tree

Showing 9 changed files with 39 additions and 5 deletions.
diff --git a/.Rproj.user/429CC01A/pcs/files-pane.pper b/.Rproj.user/429CC01A/pcs/files-pane.pper
@@ -5,5 +5,5 @@
             "ascending": false
         }
     ],
-    "path": "C:/Users/hanecakr/Documents/R_github/fellingdateR"
+    "path": "C:/Users/hanecakr/Documents/R_github/fellingdateR/tests/testthat"
 }
diff --git a/.Rproj.user/429CC01A/pcs/source-pane.pper b/.Rproj.user/429CC01A/pcs/source-pane.pper
@@ -1,4 +1,4 @@
 {
-    "activeTab": 20,
+    "activeTab": 21,
     "activeTabSourceWindow0": 0
 }
diff --git a/.Rproj.user/429CC01A/pcs/workbench-pane.pper b/.Rproj.user/429CC01A/pcs/workbench-pane.pper
@@ -1,5 +1,5 @@
 {
-    "TabSet1": 4,
+    "TabSet1": 0,
     "TabSet2": 0,
     "TabZoom": {}
 }
diff --git a/.Rproj.user/429CC01A/rmd-outputs b/.Rproj.user/429CC01A/rmd-outputs
@@ -1,5 +1,9 @@
 C:/Users/hanecakr/Documents/R_github/fellingdateR/inst/paper/paper.pdf
 C:/Users/hanecakr/Documents/R_github/fellingdateR/inst/paper/paper.pdf
 C:/Users/hanecakr/Documents/R_github/fellingdateR/inst/paper/paper.pdf
-
 C:/Users/hanecakr/Documents/R_github/fellingdateR/inst/paper/paper.pdf
+
+
+
+
+
diff --git a/R/sw_interval_plot.R b/R/sw_interval_plot.R
@@ -19,6 +19,14 @@
 #' @export
 #'
 sw_interval_plot <- function(x) {
+
+        if (all(
+                !(attributes(x)$names) %in% c(
+                        "year",
+                        "n_sapwood",
+                        "p")
+        ))
+        stop("Input differs from output sw_interval()")
         # to avoid notes in CMD check
         p.x <- upper <- year <- NULL
 

diff --git a/tests/testthat/test-fd_report.R b/tests/testthat/test-fd_report.R
@@ -140,7 +140,7 @@ testthat::test_that("Waneyedge gives exact date", {
      )
 })
 
-testthat::test_that("No Waneyedge gives bewteen date", {
+testthat::test_that("No Waneyedge gives between date", {
      x <- fd_report(testdata
      )
      testthat::expect_equal(

diff --git a/tests/testthat/test-sw_combine.R b/tests/testthat/test-sw_combine.R
@@ -0,0 +1,6 @@
+testthat::test_that("Output is a data.frame", {
+     x <- sw_combine(fellingdateR:::dummy2, plot = FALSE)
+     testthat::expect_s3_class(x$rawData, "data.frame")
+     testthat::expect_s3_class(x$individual_series, "data.frame")
+     testthat::expect_type(x$model_summary, "character")
+})
diff --git a/tests/testthat/test-sw_combine_plot.R b/tests/testthat/test-sw_combine_plot.R
@@ -0,0 +1,5 @@
+# Test if the function returns a ggplot object
+testthat::test_that("sw_combine_plot() returns a ggplot object", {
+     int <- sw_combine(fellingdateR:::dummy2, plot = FALSE)
+     testthat::expect_true("ggproto" %in% class(sw_combine_plot(int)$layers[[1]]$stat))
+})
diff --git a/tests/testthat/test-sw_interval_plot.R b/tests/testthat/test-sw_interval_plot.R
@@ -0,0 +1,11 @@
+# Test if the function returns a ggplot object
+testthat::test_that("sw_interval_plot() returns a ggplot object", {
+          int <- sw_interval(n_sapwood = 10,
+                              last = 1000,
+                              hdi = FALSE,
+                              credMass = .95,
+                              sw_data = "Hollstein_1980",
+                              densfun = "lognormal",
+                              plot = FALSE)
+     testthat::expect_true("ggproto" %in% class(sw_interval_plot(int)$layers[[1]]$stat))
+})