如何在Quarto文档中一次性加载包供多个Shiny应用使用？

我完全懂你的困扰——在Quarto的Shiny文档里每个server块都重复加载包不仅繁琐，还违背了代码复用的原则。其实Quarto本身就提供了专门的机制，能让你一次性加载所有需要的包，供文档里所有Shiny应用的server逻辑共享使用。

问题根源 #

你遇到的问题本质是：文档顶部的代码块运行在文档的主环境中，而每个context: server的代码块是运行在独立的Shiny服务器环境里，两者不共享包的加载状态，所以server块找不到你之前加载的包。

解决方案：使用server-setup代码块 #

Quarto有一个特殊的代码块上下文server-setup，它会在所有Shiny服务器逻辑执行之前运行，并且它的环境会被所有后续的server代码块继承。你只需要把包加载代码放在这个块里，就能实现全局共享。

修改后的可运行示例 #

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

#| echo: false
#| warning: false
#| message: false
#| context: server-setup
library(dplyr)
library(ggplot2)

# UI 部分
sliderInput("bins", "Number of bins:", 
            min = 1, max = 50, value = 30)
plotOutput("distPlot")

#| context: server
output$distPlot <- renderPlot({
  ggplot(faithful, aes(x = waiting)) +
    geom_histogram(bins = input$bins)
})

多Shiny应用场景的扩展 #

如果你的文档里包含多个独立的Shiny应用（比如每个章节一个完整的app），这个方法同样适用：只需要在文档最顶部放一个server-setup代码块加载所有需要的包，所有app的server块都能直接调用这些包，不需要重复加载。

这个机制既保持了代码的整洁性，又确保了所有server逻辑都能访问到需要的依赖，完全避免了重复加载包的冗余操作。

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