我想写一个博客使用Quarto和添加一个Shiny应用程序.但当我试图运行一个简单的闪亮的例子应用程序一样从夸托website，我得到一个错误.这里是一些可重复的代码从一个.qmd文件一样的例子从上面的链接：

---
title: "Old Faithful"
format: html
server: shiny
---

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

#| context: server
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')
})

字符串
输出错误：

processing file: test.qmd
|....................................................| 100% [unnamed-chunk-2]
Quitting from lines 14-20 [unnamed-chunk-2] (test.qmd)
Error in if (xfun::is_blank(options$code)) ...:
! the condition has length > 1
Backtrace:

1. global .main()
2. execute(...)
3. rmarkdown::render(...)
4. knitr::knit(knit_input, knit_output, envir = envir, quiet = quiet)
5. knitr:::process_file(text, output)
6. knitr:::process_group.block(group)
7. knitr:::call_block(x)
8. rmarkdown (local) hook(params)

Execution halted

型
使用`shiny`包添加`setup`块也不起作用：

#| context: setup
library(shiny)

型
因此，即使运行完全相同的代码，从网站返回一个错误，我不知道如何解决。所以我想知道，如果有人知道为什么这个错误发生，以及如何修复它？
我正在使用以下夸托版本：

quarto --version
1.3.276

型