fix #2469: use all(is_blank()) for xfun 0.38

rstudio · Mar 24, 2023 · c7fa3e4 · c7fa3e4
1 parent c2d165a
commit c7fa3e4
Show file tree

Hide file tree

Showing 3 changed files with 5 additions and 2 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,7 +1,7 @@
 Type: Package
 Package: rmarkdown
 Title: Dynamic Documents for R
-Version: 2.20.1
+Version: 2.20.2
 Authors@R: c(
     person("JJ", "Allaire", , "[email protected]", role = "aut"),
     person("Yihui", "Xie", , "[email protected]", role = c("aut", "cre"), comment = c(ORCID = "0000-0003-0645-5666")),

diff --git a/NEWS.md b/NEWS.md
@@ -3,6 +3,9 @@ rmarkdown 2.21
 
 - Now HTML output formats use the Font Awesome HTML dependency from the **fontawesome** package instead of shipping an outdated version of Font Awesome in **rmarkdown** (thanks, @rich-iannone, #2451).
 
+- Fixed a bug caused by a change in the `is_blank()` function in **xfun** 0.38 (thanks, @andreahgsin, #2469).
+
+
 rmarkdown 2.20
 ================================================================================
 

diff --git a/R/shiny_prerendered.R b/R/shiny_prerendered.R
@@ -484,7 +484,7 @@ shiny_prerendered_option_hook <- function(input) {
 
     if (identical(options$context, "server")) {
       # if empty server context, set a default server function
-      if (xfun::is_blank(options$code)) {
+      if (all(xfun::is_blank(options$code))) {
         options$code <- "# empty server context"
       }
     }