如何在Quarto Book中创建Shiny交互式图表？

可以在Quarto Book中实现Shiny交互式图表，针对不同语言用户的实现方式如下：

R 用户实现方案 #

• 在Quarto Book的.qmd文档中，使用带shiny=TRUE选项的R代码块嵌入Shiny应用，渲染后需依托服务器运行：

```{r, shiny=TRUE}
library(shiny)

ui <- fluidPage(
  selectInput("dataset", "选择数据集", c("mtcars", "iris")),
  tableOutput("table")
)

server <- function(input, output) {
  output$table <- renderTable({
    get(input$dataset)
  })
}

shinyApp(ui, server)

## Python 用户实现方案（2022年10月10日更新）
- 借助**Shinylive扩展**，可实现无需服务器、直接在浏览器运行的Shiny交互式图表：
  1. 安装Shinylive扩展：`quarto add rstudio/shinylive`
  2. 在`.qmd`文档中使用带`shinylive=TRUE`选项的Python代码块嵌入Shiny for Python应用：
```python
```{python, shinylive=TRUE}
from shiny import App, ui, render

app_ui = ui.page_fluid(
    ui.input_select("dataset", "选择数据集", ["mtcars", "iris"]),
    ui.output_table("table"),
)

def server(input, output, session):
    @output
    @render.table
    def table():
        import pandas as pd
        return pd.read_csv(f"https://raw.githubusercontent.com/mwaskom/seaborn-data/master/{input.dataset()}.csv")

app = App(app_ui, server)

内容的提问来源于stack exchange，提问作者rafa.pereira