Make test-live opt-in on CI (#453)

jeroen · web-flow · commit be1cee713ebb · 2025-08-28T11:20:03.000-05:00
Fixes #451
diff --git a/.github/workflows/R-CMD-check.yaml b/.github/workflows/R-CMD-check.yaml
@@ -30,7 +30,7 @@ jobs:
           - {os: windows-latest, r: 'oldrel-4'}
 
           - {os: ubuntu-latest,  r: 'devel', http-user-agent: 'release'}
-          - {os: ubuntu-latest,  r: 'release'}
+          - {os: ubuntu-latest,  r: 'release', testlive: true}
           - {os: ubuntu-latest,  r: 'oldrel-1'}
           - {os: ubuntu-latest,  r: 'oldrel-2'}
           - {os: ubuntu-latest,  r: 'oldrel-3'}
@@ -60,3 +60,5 @@ jobs:
         with:
           upload-snapshots: true
           build_args: 'c("--no-manual","--compact-vignettes=gs+qpdf")'
+        env:
+          testlive: ${{ matrix.config.testlive }}
diff --git a/tests/testthat/helper.R b/tests/testthat/helper.R
@@ -40,6 +40,9 @@ show_response <- function(x) {
 skip_if_no_chromote <- function() {
   skip_on_cran()
   skip_if(lacks_chromote(), "chromote not available")
+
+  # On CI we have to opt-in to testlive
+  skip_if(Sys.getenv("CI") == "true" && Sys.getenv('testlive') == "")
 }
 
 lacks_chromote <- function() {

Original file line number	Diff line number	Diff line change
`@@ -40,6 +40,9 @@ show_response <- function(x) {`
`40`	`40`	`skip_if_no_chromote <- function() {`
`41`	`41`	`skip_on_cran()`
`42`	`42`	`skip_if(lacks_chromote(), "chromote not available")`
	`43`	`+`
	`44`	`+ # On CI we have to opt-in to testlive`
	`45`	`+ skip_if(Sys.getenv("CI") == "true" && Sys.getenv('testlive') == "")`
`43`	`46`	`}`
`44`	`47`
`45`	`48`	`lacks_chromote <- function() {`