Don't include GHA log output in pkgdown website (#2633)

* Don't include GHA log output in pkgdown website * add a test * extra blank line * make future-proof --------- Co-authored-by: Michael Chirico <michaelchirico4@gmail.com>
r-lib · Jul 18, 2024 · f0d9407 · f0d9407
1 parent 73e55d3
commit f0d9407
Show file tree

Hide file tree

Showing 3 changed files with 16 additions and 3 deletions.
diff --git a/R/actions.R b/R/actions.R
@@ -2,6 +2,10 @@ in_github_actions <- function() {
   identical(Sys.getenv("GITHUB_ACTIONS"), "true")
 }
 
+in_pkgdown <- function() {
+  identical(Sys.getenv("IN_PKGDOWN"), "true")
+}
+
 # Output logging commands for any lints found
 github_actions_log_lints <- function(lints, project_dir = "") {
   for (x in lints) {

diff --git a/R/methods.R b/R/methods.R
@@ -92,7 +92,7 @@ print.lints <- function(x, ...) {
     inline_data <- x[[1L]][["filename"]] == "<text>"
     if (!inline_data && use_rstudio_source_markers) {
       rstudio_source_markers(x)
-    } else if (in_github_actions()) {
+    } else if (in_github_actions() && !in_pkgdown()) {
       github_actions_log_lints(x, project_dir = github_annotation_project_dir)
     } else {
       lapply(x, print, ...)

diff --git a/tests/testthat/test-ci.R b/tests/testthat/test-ci.R
@@ -1,5 +1,5 @@
 test_that("GitHub Actions functionality works", {
-  withr::local_envvar(list(GITHUB_ACTIONS = "true"))
+  withr::local_envvar(list(GITHUB_ACTIONS = "true", IN_PKGDOWN = "false"))
   withr::local_options(lintr.rstudio_source_markers = FALSE)
   tmp <- withr::local_tempfile(lines = "x <- 1:nrow(y)")
 
@@ -26,7 +26,7 @@ test_that("GitHub Actions functionality works in a subdirectory", {
 patrick::with_parameters_test_that(
   "GitHub Actions - error on lint works",
   {
-    withr::local_envvar(list(GITHUB_ACTIONS = "true", LINTR_ERROR_ON_LINT = env_var_value))
+    withr::local_envvar(list(GITHUB_ACTIONS = "true", IN_PKGDOWN = "", LINTR_ERROR_ON_LINT = env_var_value))
     withr::local_options(lintr.rstudio_source_markers = FALSE)
     tmp <- withr::local_tempfile(lines = "x <- 1:nrow(y)")
 
@@ -51,3 +51,12 @@ patrick::with_parameters_test_that(
   },
   env_var_value = list("", "F", NA, NULL)
 )
+
+test_that("GitHub Actions log is skipped in pkgdown websites", {
+  withr::local_envvar(list(GITHUB_ACTIONS = "true", IN_PKGDOWN = "true"))
+  withr::local_options(lintr.rstudio_source_markers = FALSE)
+  tmp <- withr::local_tempfile(lines = "x <- 1:nrow(y)")
+
+  l <- lint(tmp, linters = seq_linter())
+  expect_output(print(l), "warning: [seq_linter]", fixed = TRUE)
+})