R 如何通过Shining模块使用DataTable中的Shining action按钮？

我已经成功地在shinyApp的DataTable中实现了action按钮，但是它只在没有模块的情况下工作。通过Shining模块实现它不会给出任何响应

我想知道，通过闪亮模块在

DataTable

中实现操作按钮时需要做哪些更改

不带模块的应用程序

库（闪亮）
图书馆（DT）
#> 
#>附加包：“DT”
#>以下对象被“package:Shining”屏蔽：
#> 
#>dataTableOutput，renderDataTable
ui您的代码：

paste0('Shiny.onInputChange(' , ns("select_button"), ', this.id)')

产生

"Shiny.onInputChange(NS_select_button, this.id)"

其中，
NS
是名称空间。对象
NS\u select\u按钮
不存在，因此单击该按钮会引发错误。您需要报价：

"Shiny.onInputChange('NS_select_button', this.id)"

要包含一些引号，您可以执行以下操作：

onclick = sprintf("Shiny.onInputChange('%s', this.id)", ns("select_button"))

谢谢：）解决了这个问题