R Shiny：单击数据表中的按钮以连续显示两次弹出窗口答案

【问题标题】：R Shiny: Click Button Within Datatable to Display Popup Twice in a rowR Shiny：单击数据表中的按钮以连续显示两次弹出窗口
【发布时间】：2017-07-18 07:14:42
【问题描述】：

使用 RStudio 1.0.136 和 R Shiny 0.14.2，我正在尝试创建一个每行都有一个操作按钮的数据表，当单击按钮时会出现一个弹出窗口。我的代码目前正在运行，但您不能连续两次单击同一个按钮。我在下面发布了 2 个版本的示例代码：

library(shiny)
library(DT)
library(shinyBS)

shinyApp(
ui <- fluidPage(
DT::dataTableOutput("data"),

uiOutput("modal")
),

server <- function(input, output,session) {

shinyInput <- function(FUN, len, id, ...) {
  inputs <- character(len)
  for (i in seq_len(len)) {
   inputs[i] <- as.character(FUN(paste0(id, i), ...))
 }
  inputs
}

df <- reactiveValues(data = data.frame(
  Assessment = shinyInput(actionButton, 10, 'button_', label = "Assessment", onclick = 'Shiny.onInputChange(\"select_button\",  this.id)' ),
  Value1 = 1:10,
  Value2 = c("A", "B", "C", "D", "E"),
  stringsAsFactors = FALSE,
  row.names = 1:10
))

output$data <- DT::renderDataTable(
  df$data, server = FALSE, escape = FALSE, selection = 'none'
)


observeEvent(input$select_button, {
    s <- as.numeric(strsplit(input$select_button, "_")[[1]][2])
   output$modal <- renderUI({
tagList(
bsModal(paste('model', s ,sep=''), "Assessment", "select_button", size = "small",
          textAreaInput("text", label = h3("Enter Assessment") , value = "", width = "100%", height = "200px", resize = "none"),
           actionButton("Enter", "Enter")
   ))
     })
  toggleModal(session,paste('model', s ,sep=''), toggle = "Assessment")

})      
})

第二个代码是：

library(shiny)
library(DT)
library(shinyBS)

shinyApp(
ui <- fluidPage(
DT::dataTableOutput("data"),
bsModal("modalnew", "Assessment", "select_button", size = "small",
        textAreaInput("text", label = h3("Enter Assessment") , value = "",        width = "100%", height = "200px", resize = "none"),
        actionButton("Enter", "Enter")
)

),

server <- function(input, output,session) {

shinyInput <- function(FUN, len, id, ...) {
  inputs <- character(len)
  for (i in seq_len(len)) {
   inputs[i] <- as.character(FUN(paste0(id, i), ...))
 }
  inputs
}

df <- reactiveValues(data = data.frame(
  Assessment = shinyInput(actionButton, 10, 'button_', label = "Assessment", onclick = 'Shiny.onInputChange(\"select_button\",  this.id)' ),
  Value1 = 1:10,
  Value2 = c("A", "B", "C", "D", "E"),
  stringsAsFactors = FALSE,
  row.names = 1:10
))

output$data <- DT::renderDataTable(
  df$data, server = FALSE, escape = FALSE, selection = 'none'
)

observeEvent(input$select_button, {
  s <- as.numeric(strsplit(input$select_button, "_")[[1]][2])
  toggleModal(session, "modalnew", toggle = "close")
})   
})

当前在弹出窗口中输入的内容无关紧要。任何有关如何允许连续单击同一按钮两次的建议将不胜感激。

【问题讨论】：

您需要在新选择时重置按钮功能，否则它将“记住”先前单击的行。还将您的shinyInput 放在服务器之外，它只需要渲染一次
我已经尝试在 observeEvent 中重置 input$select_button

标签： r datatable popup shiny action-button

【解决方案1】：

我修改了你的代码。我使用了来自this 链接的 js 函数来重置 select_button 的值。

library(shiny)
library(DT)
library(shinyBS)


shinyApp(
  ui <- fluidPage(

    shinyjs::useShinyjs(),
    #js function to reset a button, variableName is the button name whose value we want to reset
    tags$script("Shiny.addCustomMessageHandler('resetInputValue', function(variableName){
                Shiny.onInputChange(variableName, null);
                });
                "),
    DT::dataTableOutput("data"),

    uiOutput("modal")
  ),

  server <- function(input, output,session) {

    shinyInput <- function(FUN, len, id, ...) {
      inputs <- character(len)
      for (i in seq_len(len)) {
        inputs[i] <- as.character(FUN(paste0(id, i), ...))
      }
      inputs
    }

    df <- reactiveValues(data = data.frame(
      Assessment = shinyInput(actionButton, 10, 'button_', label = "Assessment", onclick = 'Shiny.onInputChange(\"select_button\",  this.id)' ),
      Value1 = 1:10,
      Value2 = c("A", "B", "C", "D", "E"),
      stringsAsFactors = FALSE,
      row.names = 1:10
    ))

    output$data <- DT::renderDataTable(
      df$data, server = FALSE, escape = FALSE, selection = 'none'
    )


    observeEvent(input$select_button, {
      s <- as.numeric(strsplit(input$select_button, "_")[[1]][2])
      output$modal <- renderUI({
        tagList(
          bsModal(paste('model', s ,sep=''), "Assessment", "select_button", size = "small",
                  textAreaInput("text", label = h3("Enter Assessment") , value = "", width = "100%", height = "200px", resize = "none"),
                  actionButton("Enter", "Enter")
          ))
      })
      toggleModal(session,paste('model', s ,sep=''), toggle = "Assessment")
      ##Reset the select_button
      session$sendCustomMessage(type = 'resetInputValue', message =  "select_button")
    })      
  })

希望对你有帮助！

【讨论】：