在rShiny的弹出窗口中打开网址

library(shiny)

ui <- fluidPage(
  titlePanel("rShiny Modal Dialog"),
  
  sidebarLayout(
    sidebarPanel(
      actionButton("openModal", "Open Modal Dialog")
    ),
    
    mainPanel(
      # Placeholder for the content
    )
  )
)

server <- function(input, output) {
  observeEvent(input$openModal, {
    showModal(
      modalDialog(
        iframe(src = "https://www.example.com", width = "100%", height = "500px")
      )
    )
  })
}

shinyApp(ui, server)