回到上一个链接

Question

我有一个简单的闪亮的应用程序(app1)，当用户点击动作按钮(动作1)，它是采取另一个闪亮的应用程序(应用2)在另一个选项卡。但在app2中还有另一个动作按钮(动作2)。因此，当用户单击操作2时，它应该将他带到前一个页面(app1)。我们能做到吗?

library(shiny)
ui <- fluidPage(
actionButton("aid","Click here")
)
server <- function(input, output, session) {
observeEvent(input$aid{
#### open another link(shiny application) in the browser (different tab)
})
}
shinyApp(ui, server)

Answer 1

非常简单，我们不需要任何服务器表达式，这样做:

library(shiny)
ui <- fluidPage(
actionButton(
"aid", "Click here",
onclick = 'window.open("https://www.google.com", "_self")'
)
)
server <- function(input, output, session) {}
shinyApp(ui, server)

将Google链接更改为您的app1链接。如果您想在另一个选项卡中打开，请删除"_self".

或者这个也可以:onclick = 'location.href = "https://www.google.com";'