升级R 4.3.1与DT 0.28后Shiny DT表格数字精度异常求助

问题背景 #

升级R至4.3.1、DT包至0.28后，Shiny应用中的DT表格出现异常：部分数字显示大量小数位，但对应数据框中的数值已通过round(x / 0.01) * 0.01处理为两位小数。同时存在以下限制：

• 手动创建数据框时DT显示正常，仅Shiny运行时触发问题
• 使用DT::formatRound("price", 3)会给列中所有元素补零，不符合需求
• 转为字符类型可正常显示，但需保留numeric/double类型
• 已知round(x * 100) / 100可正常取整，但当前场景无法使用该逻辑

可行解决方案 #

方案1：通过DT的JS渲染函数自定义显示格式 #

利用DT的columnDefs配置，通过JavaScript自定义数字的显示逻辑，既保留原始numeric类型，又能按需显示小数位、避免补零。

修改后的完整代码：

ui <- fluidPage(
  actionButton(inputId = "update", label = "Update"),
  DTOutput("tbl")
)

server <- function(input, output) {
  dt_tbl <- eventReactive(
    eventExpr = input$update,
    ignoreNULL = FALSE,
    valueExpr = data.table(price = round(runif(n = 10, min = 0.8, max = 0.85) / 0.01) * 0.01))
  
  output$tbl <- renderDT(isolate(expr = {
    datatable(dt_tbl(),
              class = "cell-border stripe", extensions = "FixedHeader", selection = "none", rownames = FALSE,
              options = list(dom = "t", fixedHeader = TRUE, paging = FALSE, ordering = FALSE,
                             columnDefs = list(
                               list(className = "dt-center", targets = "_all"),
                               list(targets = "price", render = htmlwidgets::JS(
                                 "function(data, type, row) {",
                                 "  // 仅在显示层格式化，不影响原始数据",
                                 "  if (type === 'display') {",
                                 "    const num = parseFloat(data);",
                                 "    // 格式化为两位小数后，移除末尾多余的零和小数点",
                                 "    return num.toFixed(2).replace(/\\.?0+$/, '');",
                                 "  }",
                                 "  return data;",
                                 "}"
                               ))
                             )))
  }))
  
  observe(dataTableProxy("tbl") %>% replaceData(dt_tbl(), rownames = FALSE))
  
}

shinyApp(ui, server)

核心逻辑说明：

• 通过htmlwidgets::JS()定义渲染函数，仅在type === 'display'时格式化数字，不改动原始数据类型
• 先用toFixed(2)确保最多显示两位小数，再用正则表达式移除末尾的零和多余小数点（例如0.80转为0.8，0.81保持不变）

方案2：修正浮点数取整逻辑（若允许调整数据生成方式） #

若后续可调整数据生成逻辑，替换round(x / 0.01) * 0.01为round(x, 2)，可从根源避免浮点数精度问题。示例：

# 替换原valueExpr中的取整逻辑
data.table(price = round(runif(n = 10, min = 0.8, max = 0.85), 2))

该方式直接生成精确到两位小数的数值，DT表格会正常显示，无需额外格式化。

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