如何在无服务器Quarto R Dashboard中集成Shinylive？

可行性说明 #

目前Quarto对Shinylive与Dashboard的组合支持虽未完全完善，但完全可以通过自定义配置实现集成，并非不可行。

具体操作步骤 #

• 配置文档头部依赖
  在你的Quarto Dashboard的.qmd文件开头，添加以下YAML配置，指定使用shinylive服务并声明所需R包：

  ---
  title: "集成Shinylive的Dashboard示例"
  format: dashboard
  server: shinylive
  shinylive:
    packages:
      - shiny
      - ggplot2 # 根据你的应用需求添加其他包
  ---
  

• 嵌入Shinylive代码块
  在Dashboard的面板中，使用{shinylive-r}代码块包裹你的Shiny应用代码。如果不需要显示代码，添加echo: false参数：

  library(shiny)
  
  ui <- fluidPage(
    titlePanel("Shinylive在Dashboard中的示例"),
    sidebarLayout(
      sidebarPanel(
        sliderInput("count", "数据量", min = 10, max = 500, value = 200)
      ),
      mainPanel(
        plotOutput("distPlot")
      )
    )
  )
  
  server <- function(input, output) {
    output$distPlot <- renderPlot({
      ggplot(data.frame(x = rnorm(input$count)), aes(x)) +
        geom_histogram(bins = 15, fill = "#2c3e50", alpha = 0.7)
    })
  }
  
  shinyApp(ui, server)
  

• 适配Dashboard布局
  利用Quarto Dashboard的面板布局语法，调整Shiny应用所在面板的尺寸，比如占满整行：

  # 此处放置上述shinylive代码块
  

为何r-shinylive-demo的步骤不适用？ #

r-shinylive-demo的流程针对的是标准Quarto文档或独立Shiny应用场景，而Quarto Dashboard有独立的布局引擎和格式约束，直接套用会出现依赖加载异常、布局错位等问题，必须针对性调整头部配置和代码块嵌入方式。

关键注意事项 #

• 确保Quarto版本≥v1.4，Shinylive的Dashboard集成是较新功能，旧版本不支持
• 复杂Shiny组件所需的额外R包，必须在shinylive.packages中声明，否则会运行报错
• 首次预览时需等待Shinylive加载依赖包，速度较慢，后续预览会缓存资源

内容的提问来源于stack exchange，提问作者Giandomenico Bisaccia