pass quiet argument to library()

EmilHvitfeldt · EmilHvitfeldt · commit b4f6db9e33fc · 2023-08-08T10:44:11.000-07:00
diff --git a/R/engines.R b/R/engines.R
@@ -41,7 +41,7 @@ load_libs <- function(x, quiet, attach = FALSE) {
     if (!attach) {
       suppressPackageStartupMessages(requireNamespace(pkg, quietly = quiet))
     } else {
-      library(pkg, character.only = TRUE)
+      library(pkg, character.only = TRUE, quietly = quiet)
     }
   }
   invisible(x)

Original file line number	Diff line number	Diff line change
`@@ -41,7 +41,7 @@ load_libs <- function(x, quiet, attach = FALSE) {`
`41`	`41`	`if (!attach) {`
`42`	`42`	`suppressPackageStartupMessages(requireNamespace(pkg, quietly = quiet))`
`43`	`43`	`} else {`
`44`		`- library(pkg, character.only = TRUE)`
	`44`	`+ library(pkg, character.only = TRUE, quietly = quiet)`
`45`	`45`	`}`
`46`	`46`	`}`
`47`	`47`	`invisible(x)`