闪亮的renderDataTable table\u cell\u已单击

我正在尝试使用Shiny创建一个表,用户可以在其中单击一行,以查看关于该行的更多信息。我想我知道如何做到这一点(见所附代码)。

然而,现在只要用户单击“getQueue”操作按钮,observeEvent(input$fileList\u cell\u clicked,{})似乎就会被调用。为什么在用户有机会点击一行之前调用它?生成表时也调用它吗?有什么办法吗?

我需要用代码替换“output$devel<-renderText(“cell\u clicked\u called”)”,如果没有实际的单元格可供参考,那么这些代码将有各种错误。

谢谢你的建议!

ui <- fluidPage(
   actionButton("getQueue", "Get list of queued files"),
   verbatimTextOutput("devel"),
   DT::dataTableOutput("fileList")     
)

shinyServer <- function(input, output) {
   observeEvent(input$getQueue, {
   #get list of excel files
   toTable <<- data.frame("queueFiles" = list.files("queue/", pattern = "*.xlsx")) #need to catch if there are no files in queue
   output$fileList <- DT::renderDataTable({
     toTable
   }, selection = 'single') #, selection = list(mode = 'single', selected = as.character(1))
   })
   observeEvent(input$fileList_cell_clicked, {
     output$devel <- renderText("cell_clicked_called")
   })}

shinyApp(ui = ui, server = shinyServer)

minimal error code