css - R Shiny Table 折叠文本溢出

Question

我们如何将 CSS 参数 text-overflow: ellipsis 或其他参数传递给 R shiny 中的 renderDataTable？我在列中有不均匀的文本描述，通过 Autowidth，行和列根据相应单元格中的内容展开。

我希望能够输入“省略号”，以便用户能够展开单元格以阅读文本。下面是我的 server.r 代码。我尝试使用 eg，在 http://rstudio.github.io/DT/options.html 中进行了解释.但是，无法得到我要找的东西。感谢您提供任何意见和建议。

谢谢

Answer 1

已解决。 问题是我传递参数的方式不正确。正确的方法如下。

  output$PM_output <- DT::renderDataTable(
    expr =  DT::datatable(data.frame.eg),
                          class   = 'cell-border stripe compact hover',
                          escape  = F, selection = 'multiple',
                          options = list(
                            autoWidth  = T,
                            LengthMenu = c(5, 30, 50),
                            columnDefs = list(list(
                              targets  = 6,
                              render   = JS(
                                "function(data, type, row, meta) {",
                                "return type === 'display' && data.length > 100 ?",                                    "'<span title=\"' + data + '\">' +
                                data.substr(0, 100) + '...</span>' : data;", "}"))),
                              pageLength = 1, server = T)))