Question

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

我希望能够输入“省略号”，以便用户能够扩展单元格以阅读文本。下面是我的server.r代码。我尝试使用例如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)))

Rshiny表崩溃文本溢出

1 个答案: