Use rlang::is_installed

MichaelChirico · web-flow · commit 2f971a8bc8a7 · 2025-07-23T09:53:47.000-07:00
diff --git a/R/transform-code.R b/R/transform-code.R
@@ -171,9 +171,8 @@ get_knitr_pattern <- function(filetype) {
   if (!filetype %in% c("Rnw", "Rmd")) {
     return(NULL)
   }
-  stopifnot(
-    `{knitr} is required to process vignette files (Rmd, Rnw)` =
-      requireNamespace("knitr", quietly = TRUE)
-  )
+  if (!rlang::is_installed("knitr")) {
+    rlang::abort("{knitr} is required to process vignette files (Rmd, Rnw)")
+  }
   knitr::all_patterns[[if (filetype == "Rnw") "rnw" else "md"]]
 }

Original file line number	Diff line number	Diff line change
`@@ -171,9 +171,8 @@ get_knitr_pattern <- function(filetype) {`
`171`	`171`	`if (!filetype %in% c("Rnw", "Rmd")) {`
`172`	`172`	`return(NULL)`
`173`	`173`	`}`
`174`		`- stopifnot(`
`175`		- `{knitr} is required to process vignette files (Rmd, Rnw)` =
`176`		`- requireNamespace("knitr", quietly = TRUE)`
`177`		`- )`
	`174`	`+ if (!rlang::is_installed("knitr")) {`
	`175`	`+ rlang::abort("{knitr} is required to process vignette files (Rmd, Rnw)")`
	`176`	`+ }`
`178`	`177`	`knitr::all_patterns[[if (filetype == "Rnw") "rnw" else "md"]]`
`179`	`178`	`}`