R shiny - 闪亮模块函数中最后单击的按钮 id

Question

我正在尝试从 Shiny 模块中访问上次单击的复选框或按钮 ID。

我发现这个 post 的回复很有帮助： and have adapted the code to my question. I also took a hint from this post: https://github.com/datastorm-open/visNetwork/issues/241 但仍然无法正常工作。

user_inputUI <- function(id){
    # Create a namespace function using the provided id
    ns <- NS(id)

    tagList(
        tags$head(tags$script(HTML("$(document).on('click', '.needed', function () {
                               Shiny.onInputChange('", ns("last_btn"), "', this.id);
});"))),
        tags$span(HTML('<div><input id="first" type="checkbox" class="needed"></div>')),
        actionButton(ns("second"), "Second",class="needed"),
        actionButton(ns("third"), "Third",class="needed"),
        actionButton(ns("save"), "save"),
        selectInput(ns("which_"),"which_",c("first","second","third"))
    )
}

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

    observeEvent(input$save,{

        updateSelectInput(session,"which_",selected = input$last_btn)
    })

    return(reactive(input$last_btn))
}

ui <- shinyUI(fluidPage(

    titlePanel("Track last clicked Action button"),


    sidebarLayout(
        sidebarPanel(
            user_inputUI("link_id")
        ),

        mainPanel(

            textOutput("lastButtonCliked")
        )
    )
    ))


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

    last_id <- callModule(update_options, "link_id")
    output$lastButtonCliked=renderText({last_id()})

})


# Run the application 
shinyApp(ui = ui, server = server)

我希望在应用程序底部创建并返回输入 $last_btn 值（最后单击的按钮的 ID 名称），并成为选择中的更新输入。然而，输入 $last_btn 没有被创建，我也使用调试浏览器（）检查了这个。

Answer 1

您几乎完成了，但存在一些小的格式问题。更新后的代码如下所示。

您主要是误用了 HTML（我将其更改为 JS，但这不是问题所在），您只是用逗号分隔 ns("last_btn")。如果您检查了原始 HTML(...) 语句的输出，您会发现生成的 JavaScript 字符串是

Shiny.onInputChange(' link_id-last_btn ', this.id);

我指的是输入 ID 周围的空格。由于额外的空格，输入未正确映射到 input$last_btn。我在示例中使用 paste0 将字符串正确粘合在一起。

其次，我更正了一些缺失的 ns 调用，但是一旦输入阻止程序消失，您肯定会发现自己。

user_inputUI <- function(id){
  # Create a namespace function using the provided id
  ns <- NS(id)

  tagList(
    tags$head(
      tags$script(
        JS(paste0("$(document).on('click', '.needed', function () {debugger;
           Shiny.onInputChange('", ns("last_btn"), "', this.id);
        });"))
      )
    ),
    tags$span(HTML(paste0('<div><input id="', ns("first"), '" type="checkbox" class="needed"></div>'))),
    actionButton(ns("second"), "Second", class="needed"),
    actionButton(ns("third"), "Third", class="needed"),
    actionButton(ns("save"), "save"),
    selectInput(ns("which_"), "which_", c(ns("first"), ns("second"), ns("third")))
    )
}

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

  observeEvent(input$last_btn, {
    print(input$last_btn)
  })

  observeEvent(input$save, {
    updateSelectInput(session, "which_", selected = input$last_btn)
  })

  return(reactive(input$last_btn))
}

ui <- shinyUI(fluidPage(

  titlePanel("Track last clicked Action button"),


  sidebarLayout(
    sidebarPanel(
      user_inputUI("link_id")
    ),

    mainPanel(

      textOutput("lastButtonCliked")
    )
  )
))


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

  last_id <- callModule(update_options, "link_id")
  output$lastButtonCliked=renderText({last_id()})

})


# Run the application 
shinyApp(ui = ui, server = server)

R shiny - 闪亮模块函数中最后单击的按钮 id

R shiny - last clicked button id inside shiny module function

r

module

shiny

shinyjs

shinymodules