diff --git a/R/renderRmd.R b/R/renderRmd.R index bbcbe18f..e226e98a 100644 --- a/R/renderRmd.R +++ b/R/renderRmd.R @@ -72,7 +72,8 @@ renderRmd <- function(sourceFile, outputType = "html", logoFile = NULL, output_file = tempfile(pattern = ""), clean = TRUE, params = params, - envir = new.env() + envir = new.env(), + quiet = TRUE ) if (outputType == "html_fragment") { diff --git a/tests/testthat/test-miscellaneous-functions.R b/tests/testthat/test-miscellaneous-functions.R index 11ade039..7705b774 100644 --- a/tests/testthat/test-miscellaneous-functions.R +++ b/tests/testthat/test-miscellaneous-functions.R @@ -32,14 +32,14 @@ file.copy( # produce a pop-up text... test_that("an html doc regarding 'how we deal with...' can be provided", { - expect_output(howWeDealWithPersonalData(session = list()), "") + expect_silent(howWeDealWithPersonalData(session = list())) }) test_that("pop-up html can add an installed pacakge to info", { - expect_output(howWeDealWithPersonalData( + expect_silent(howWeDealWithPersonalData( session = list(), callerPkg = "base" - ), "") + )) }) test_that("pop-up html provide a warning for a non-existing pacakge", {