在Shiny DT表格中嵌入autonumericInput控件失败求助

你的代码存在几个关键问题，导致autonumericInput无法正常工作：

1. 初始化时机错误：initComplete仅在表格首次加载完成时执行一次，但DT表格会因重绘（如排序、分页）重新渲染DOM元素，此时之前的初始化会失效。
2. 重复初始化冲突：多次重绘时如果不销毁旧的autoNumeric实例，会导致控件功能异常。
3. 渲染模式问题：默认的renderDT(server = TRUE)是服务器端渲染，Shiny无法正确绑定表格内的输入控件。
4. JS语法错误：原代码中maximumValue: 2,末尾的多余逗号会导致JS解析失败。

以下是修复后的完整代码：

library(shiny)
library(DT)
library(shinyWidgets)

ui <- tagList(
  DTOutput("dtable")
) 

server <- function(input, output){
  
  output$dtable <- renderDT({
    dat <- data.frame(
      select = as.character(
        autonumericInput(
          inputId = 'id_1',
          label = "Default Input 1",
          value = 1.34
        )
      )
    )
    
    datatable(
      dat,
      rownames = FALSE,
      escape = FALSE,
      options = list(
        preDrawCallback = JS('function() { Shiny.unbindAll(this.api().table().node()); }'),
        drawCallback = JS('function() { 
          Shiny.bindAll(this.api().table().node()); 
          $("#id_1").autoNumeric("destroy");
          $("#id_1").autoNumeric({
            minimumValue: 1,
            maximumValue: 2
          });
        }')
      )
    )
  }, server = FALSE)
  
}

shinyApp(ui, server)

关键修改说明：

• 将autoNumeric的初始化逻辑移至drawCallback，确保每次表格重绘后都重新初始化控件
• 添加$("#id_1").autoNumeric("destroy")销毁旧实例，避免重复初始化冲突
• 设置renderDT(server = FALSE)启用客户端渲染，让Shiny能正确绑定表格内的输入控件
• 移除JS配置中多余的逗号，修复语法错误

内容的提问来源于stack exchange，提问作者Irgendniemand