get中的错误：对象输入$ table_cell_clicked找不到

Question

我想在我的一个数据台上观察Cell_Clicked事件。 通常，我会这样做：

shiny::observeEvent(input$tableId_cell_clicked),{
  ...
}

我现在使用的桌子上有一个存储在变量中的表格。我正在尝试以下操作：

shiny::observeEvent(get(paste0("input$", self$name, "_cell_clicked")), {
  ...
}

这给我带来了以下错误：

Error in get: object 'input$Macrolaag_cell_clicked' not found

创建这样的创作是这样的：

#server side
output[[self$name]] <- DT::renderDataTable( ... )

#ui side
shiny::column(12, DT::dataTableOutput(self$name))

我不明白为什么要遇到此错误。谁能帮我吗？

Answer 1

一个完全有效的例子：

library(DT)
library(shiny)
library(datasets)

ui <- fluidPage(
  DTOutput("iris_out")
)

server <- function(input, output, session) {
  output$iris_out<- renderDT({iris})
  
  table_name <- "iris_out"
  
  shiny::observeEvent({input[[paste0(table_name, "_cell_clicked")]]}, {
    clicked_input_id <- paste0(table_name, "_cell_clicked")
    # input[[clicked_input_id]] is the same as input$iris_out_cell_clicked
    cat("input_id:", clicked_input_id, "\n")
    print(input[[clicked_input_id]])
    })
}

shinyApp(ui, server)