r - 如何在闪亮中打开链接

Question

借助此代码，我可以在新选项卡中打开 url，而不是如何在同一窗口中以弹出窗口的形式打开此 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)

提前致谢

标签： rshinyshinyjs

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)