R Shiny Table 折叠文字溢出

Question

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

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

谢谢

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)))

R Shiny Table 折叠文字溢出

Rshiny Table collapse text overflow

css

r

rstudio

shiny