如何避免对renderDataTable()中的值进行舍入

library(shiny)

ui <- fluidPage(
  dataTableOutput("myTable")
)

server <- function(input, output) {
  output$myTable <- renderDataTable({
    # 原始数据
    data <- data.frame(
      value = c(1.234, 2.345, 3.456),
      stringsAsFactors = FALSE
    )
    
    # 设置数据格式，避免舍入
    options(digits = 10)
    
    # 返回渲染的数据表
    datatable(data)
  })
}

shinyApp(ui, server)