如何在 shiny 中打开 link

Question

借助此代码，我可以在新选项卡中打开 url 而不是如何在同一 window

中将此 url 作为弹出窗口打开

library(shiny)
ui <- fluidPage(shiny::fluidRow(shiny::actionButton(inputId='ab1', 
label="click here", value = "Open popup",onclick ="window.open('http://google.com','_blank')")))

server <- function(input, output) {}
shinyApp(ui, server)

提前致谢

Answer 1

我猜你只是想要一个可调整大小的浏览器选项卡弹出窗口，为此你编辑 JS 并添加 resizable 参数：

library(shiny)
ui <- fluidPage(shiny::fluidRow(shiny::actionButton(inputId='ab1', 
                                                    label="click here", value = "Open popup",onclick ="window.open('http://google.com','_blank','resizable,height=260,width=370')")))

server <- function(input, output) {}
shinyApp(ui, server)

Answer 2

也许：

onclick = 'window.open("http://google.com", "Google", "width=480,height=360,resizable=no,toolbar=no,menubar=no,location=no,status=no")'

如何在 shiny 中打开 link

how to open a link in shiny

r

shiny

shinyjs