Shiny中DataTable显示截断内容，导出Excel保留完整数据

你遇到的问题核心有两个：一是原代码中datatable的配置参数拼写错误（option应为options），导致渲染规则未生效；二是需要确保DataTables仅在界面显示时返回截断文本，导出时返回原始完整数据。

以下是修正后的可运行代码：

library(shiny)
library(DT)

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

server <- function(input, output, session) {
  dt <- data.frame(
    x = c("blablablablablablablablablablablablal", "blablablablablablablablablablablablal"),
    y = c(1, 2)
  )
  
  output$test <- renderDataTable({
    datatable(
      dt, 
      rownames = TRUE,
      extensions = 'Buttons',
      escape = FALSE,
      class = 'cell-border stripe',
      selection = list(mode = "single"),
      # 修正参数拼写为options
      options = list(
        dom = "Bt",
        buttons = list(
          "copy", 
          list(
            extend = "collection", 
            buttons = c("csv", "excel"), 
            text = "Download"
          )
        ),
        columnDefs = list(
          list(
            # 目标列：这里x列对应索引1（因为rownames=TRUE，列0是行号）
            targets = 1,
            render = JS(
              "function(data, type, row, meta) {",
              "// 仅在界面显示时返回截断文本，其他场景（导出、排序、过滤）返回原始数据",
              "if(type === 'display' && data != null && data.length > 8) {",
              "  return '<span title=\"' + data + '\">' + data.substr(0, 8) + '...</span>';",
              "} else {",
              "  return data;",
              "}",
              "}"
            )
          )
        )
      )
    )
  })
}

shinyApp(ui, server)

关键说明： #

• 参数拼写修正：将原代码的option改为options，确保DataTables能读取配置规则。
• 列索引调整：因为开启了rownames=TRUE，行号会作为第0列，所以长文本列x对应的索引是1，可根据实际列数调整targets值。
• Render函数逻辑：通过type === 'display'判断，仅在界面展示时返回带省略号的HTML文本；导出、排序、过滤等场景直接返回原始完整数据，保证导出内容完整。

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