如何在服务器中使用onclick功能答案

【问题标题】：How to use the onclick function in server如何在服务器中使用onclick功能
【发布时间】：2021-10-31 04:44:08
【问题描述】：

谁能告诉我如何在服务器上使用这个 onclick 函数，它在 ui 上工作，但我需要在服务器上使用它，或者是否可以观察 url，以便在单击按钮后我可以使用 url

提前致谢

u_id<-"123"
inv_id <-222

url <- paste0("https://www.google.com/","?id=",u_id, "&inv_id=", inv_id)

ui <- fluidPage(
  
  
  titlePanel("open url"),
  
  sidebarLayout(
    sidebarPanel(
      actionButton("id",
                   label = "ADD COMMENT",
                   icon = icon("Click"))
    ),
    mainPanel(
    )
  ))
  server <- function(input, output, session) {
   onclick("id",sprintf("window.open('%s','win','resizable,height=400,width=400')",url)) 
      
  }

shinyApp(ui, server)

【问题讨论】：

标签： r shiny shinydashboard shiny-server shinyjs

【解决方案1】：

首先你需要使用 {shinyjs} 从服务器使用onClick。
你需要使用runjs从服务器运行js。

u_id<-"123"
inv_id <-222

url <- paste0("https://www.google.com/","?id=",u_id, "&inv_id=", inv_id)

library(shiny)
library(shinyjs)
ui <- fluidPage(
    useShinyjs(),
    titlePanel("open url"),
    sidebarLayout(
        sidebarPanel(
            actionButton("id",
                         label = "ADD COMMENT",
                         icon = icon("Click"))
        ),
        mainPanel(
        )
    ))
server <- function(input, output, session) {
    onclick(id = "id", runjs(sprintf("window.open('%s','win','resizable,height=400,width=400')",url)))
    
}

shinyApp(ui, server)

【讨论】：