在同一窗口中闪亮的打开 URL - 由 observeEvent 触发 [重复]

Question

我想打开一个确认对话框，单击确认按钮后，我想在同一窗口中打开一个 URL。这将是一个部署的应用程序，browseURL() 不是一个选项。

到目前为止，我有这个：

library(shiny)
library(shinyWidgets)

ui <- fluidPage(
  
  actionButton("open", "Click Me")
  
)

server <- function(input, output, session) {
  
  observeEvent(input$open, {
    confirmSweetAlert(
      session = session,
      inputId = "confirm",
      title = "Please confirm."
    )
  })
  
  observeEvent(input$confirm, {
    if (input$confirm) {
      browseURL('http://www.google.com')
    }
  })
  
}

shinyApp(ui, server)

browseURL 有什么替代品吗？

Answer 1

我找到了solution。

这解决了我的问题，我可以重定向到我想要的地方。