将闪亮的应用嵌入到Rmarkdown html文档中

install.packages("shiny")

library(shiny)

ui <- fluidPage(
  titlePanel("嵌入Shiny应用示例"),
  sidebarLayout(
    sidebarPanel(
      sliderInput("num_points", "选择点的数量:", min = 10, max = 100, value = 50)
    ),
    mainPanel(
      plotOutput("scatter_plot")
    )
  )
)

server <- function(input, output) {
  output$scatter_plot <- renderPlot({
    x <- rnorm(input$num_points)
    y <- rnorm(input$num_points)
    plot(x, y, main = "散点图")
  })
}

shinyApp(ui = ui, server = server)

```{r, echo=FALSE}
library(shiny)

ui <- fluidPage(
  titlePanel("嵌入Shiny应用示例"),
  sidebarLayout(
    sidebarPanel(
      sliderInput("num_points", "选择点的数量:", min = 10, max = 100, value = 50)
    ),
    mainPanel(
      plotOutput("scatter_plot")
    )
  )
)

server <- function(input, output) {
  output$scatter_plot <- renderPlot({
    x <- rnorm(input$num_points)
    y <- rnorm(input$num_points)
    plot(x, y, main = "散点图")
  })
}

shinyApp(ui = ui, server = server)
```

library(rmarkdown)
render("your_document.Rmd", output_format = "html_document")