if(requireNamespace("ggplot2"))

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: atime
 Type: Package
 Title: Asymptotic Timing
-Version: 2024.11.5
+Version: 2024.11.8
 Authors@R: c(
     person("Toby", "Hocking",
      email="toby.hocking@r-project.org",

NEWS

@@ -1,3 +1,7 @@
+Changes in version 2024.11.8
+
+- only run tests that involve plotting if ggplot2 is available, to fix CRAN noSuggests issue, https://github.com/tdhock/atime/issues/67
+
 Changes in version 2024.11.5
 
 - new feature: atime_grid() stores a data table of parameters that were specified as input, with corresponding new column names in

build.sh

@@ -25,3 +25,6 @@ $RCMD INSTALL $PKG_TGZ
 
 echo Checking $PKG_TGZ
 $RCMD check --as-cran $PKG_TGZ
+
+echo Checking without any Suggests
+R -e "if('check_without_suggests' %in% ls())check_without_suggests('$PKG_TGZ')"

tests/testthat/test-CRAN.R

@@ -366,7 +366,7 @@ if(requireNamespace("nc")){
   })
 }
 
-test_that("references for non-NA unit, with NA unit",{
+if(requireNamespace("ggplot2"))test_that("references for non-NA unit, with NA unit",{
   atime.list <- atime::atime(
     missing=data.frame(my_unit=NA),
     constant=data.frame(my_unit=1),

tests/testthat/test-versions.R

@@ -29,7 +29,7 @@ test_that("atime_versions_exprs error when expr does not contain pkg:", {
   }, "expr should contain at least one instance of binsegRcpp:: to replace with binsegRcpp.be2f72e6f5c90622fe72e1c315ca05769a9dc854:", fixed=TRUE)
 })
 
-test_that("atime_pkg produces tests_all_facet.png not tests_preview_facet.png", {
+if(requireNamespace("ggplot2"))test_that("atime_pkg produces tests_all_facet.png not tests_preview_facet.png", {
   repo <- git2r::repository(tdir)
   ## https://github.com/tdhock/binsegRcpp/tree/atime-test-funs
   git2r::checkout(repo, branch="atime-test-funs")
@@ -60,7 +60,7 @@ test_that("atime_pkg produces tests_all_facet.png not tests_preview_facet.png",
   expect_false(file.exists(tests_preview_facet.png))
 })
 
-test_that("atime_pkg produces tests_all_facet.png and tests_preview_facet.png", {
+if(requireNamespace("ggplot2"))test_that("atime_pkg produces tests_all_facet.png and tests_preview_facet.png", {
   repo <- git2r::repository(tdir)
   ## https://github.com/tdhock/binsegRcpp/tree/another-branch
   git2r::checkout(repo, branch="another-branch")