让一个带有iframe的模式在shiny中打开30秒

library(shiny)

ui <- fluidPage(
  titlePanel("Iframe Timer Example"),
  mainPanel(
    tags$iframe(id = "myIframe", src = "https://example.com", width = "100%", height = "600px")
  )
)

server <- function(input, output, session) {
  # Server logic will go here
}

shinyApp(ui = ui, server = server)

library(shiny)

ui <- fluidPage(
  titlePanel("Iframe Timer Example"),
  mainPanel(
    tags$iframe(id = "myIframe", src = "https://example.com", width = "100%", height = "600px")
  )
)

server <- function(input, output, session) {
  observe({
    invalidateLater(30000, session)  # 30000 milliseconds = 30 seconds
    session$setCurrentTheme(NULL)  # This will remove the iframe after 30 seconds
  })
}

shinyApp(ui = ui, server = server)