shiny_prerendered_option_hook no longer works since xfun 0.38 version

[andreahgsin]

Since the new version 0.38 of xfun and the modification of the function xfun::is_blank, this code no longer works :

rmarkdown/R/shiny_prerendered.R

Line 487 in c2d165a

if (xfun::is_blank(options$code)) {

To have the same behavior, it should be replaced by if (all(xfun::is_blank(options$code))) as suggested in the NEWS.md of xfun package.

Example :

---
title: "Hello Prerendered Shiny"
output: html_document
runtime: shiny_prerendered
---

```{r, echo=FALSE}
sliderInput("bins", "Number of bins:", min = 1, max = 50, value = 30)
plotOutput("distPlot")

output$distPlot <- renderPlot({
  x <- faithful[, 2]  # Old Faithful Geyser data
  bins <- seq(min(x), max(x), length.out = input$bins + 1)
  hist(x, breaks = bins, col = 'darkgray', border = 'white')
})

Thank you in advance !

[yihui]

Ah, too bad that I didn't discover this in the revdep checks. I'll fix it in a minute. Thank you so much!

[github-actions]

This old thread has been automatically locked. If you think you have found something related to this, please open a new issue by following the issue guide (https://yihui.org/issue/), and link to this old issue if necessary.