R-Shiny:如何显示动画和使用saveHTML()函数创建的控件？

install.packages("animation")
library(animation)

ani.options(interval = 0.1)
saveGIF({
  for (i in 1:10) {
    plot(runif(10), ylim = c(0, 1))
    Sys.sleep(0.5)
  }
}, movie.name = "animation.gif")

library(shiny)

ui <- fluidPage(
  # 其他UI组件...
  uiOutput("animation_output")
)

server <- function(input, output) {
  # 其他服务器逻辑...
  output$animation_output <- renderUI({
    tags$img(src = "animation.gif")
  })
}

shinyApp(ui, server)

install.packages("shinyWidgets")
library(shinyWidgets)

library(shiny)

ui <- fluidPage(
  # 其他UI组件...
)

server <- function(input, output) {
  # 其他服务器逻辑...
}

shinyApp(ui, server)

saveHTML(ui, file = "app.html")