使用此代码,我可以将链接作为新选项卡打开,但不知道如何将其作为弹出窗口或可调整窗口打开
> library(shiny)
u_id<-123
inv_id <-111
url <- paste0("https://www.google.com/","?id=",u_id, "&inv_id=", inv_id)
ui <- fluidPage(shiny::fluidRow(shiny::actionButton(inputId='ab1',
label="click here", value = "Open popup",
onclick = sprintf("window.open('%s')",url,'resizable,height=260,width=370')))) # Combine text with url variable
server <- function(input, output) {}
shinyApp(ui, server)