Javascript 导出带有换行符的数据表

我使用data.substr来截断数据表中的长单词.但是，当我try 使用按钮扩展来导出表时，导出的表包含由"..."表示的截断单词.而不是整个单词.

有没有办法显示"..."在shiny 的应用程序中，同时确保将整个表导出到Excel，而不会截断？

下面是一个可重复使用的例子:

library(shiny)

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"),
                   option=list(dom = "Bt",buttons = list("copy", list(extend = "collection", buttons = c("csv", "excel"), text = "Download") ),
                               columnDefs = list(list(
                                 targets = c(0,1),
                                 render = JS(
                                   "function(data, type, row, meta) {",
                                   "return type === 'display' && data != null && data.length > 35 ?",
                                   "'<span title=\"' + data + '\">' + data.substr(0, 8) + '...</span>' : data;",
                                   "}")
                               ))
                   )
    )
                   
  })
}

shinyApp(ui, server)

注意:我不想使用下载导出表(注:-)

谢谢你的帮忙

我试过使用省略号插件，但我得到了同样的结果.