确保闪亮的图表在shinyMobile f7Tab中只加载一次

library(shiny)
library(plotly)

shinyApp(
  ui = f7Page(
    f7Navbar(title = "ShinyMobile f7Tab"),
    f7Tab(
      tabName = "tab1",
      f7Page(
        f7Content(
          f7Block(
            title = "ShinyMobile f7Tab",
            content = plotlyOutput("plot")
          )
        )
      )
    )
  ),
  
  server = function(input, output) {
    output$plot <- renderPlotly({
      # 生成图表的代码
      # 这里可以根据输入参数的变化来动态生成图表
      # 例如，可以根据用户选择的数据集来生成不同的图表
      
      # 示例：生成一个随机散点图
      x <- rnorm(100)
      y <- rnorm(100)
      plot_ly(x = x, y = y, mode = "markers")
    })
  }
)

server = function(input, output) {
  # 使用isolate函数确保图表只加载一次
  plot_data <- isolate({
    # 生成图表的代码
    # 这里可以根据输入参数的变化来动态生成图表
    # 例如，可以根据用户选择的数据集来生成不同的图表
    
    # 示例：生成一个随机散点图
    x <- rnorm(100)
    y <- rnorm(100)
    plot_ly(x = x, y = y, mode = "markers")
  })
  
  output$plot <- renderPlotly({
    plot_data  # 直接返回已经生成的图表数据
  })
}