1

这是此链接中提供的列渲染示例 (4.4) 上的 Q。 http://rstudio.github.io/DT/options.html

我已经实现了上面描述的示例代码，以使用前 100 个字符加上省略号 (...) 来缩写超过 100 个字符的字符串，并且当您将鼠标悬停在单元格上时，完整的字符串显示为工具提示。只要具有自定义呈现的列中包含全文，这就会很好地工作。但是，当它遇到一个空单元格时，表格不会显示，它会在闪亮的浏览器上显示“正在处理...”。禁用此自定义渲染后，我可以按预期显示带有空字段的表格。有没有人有类似的问题，有什么建议可以解决这个问题吗？

下面是我的自定义列渲染代码。

output$PM_output <- DT::renderDataTable(
    expr =  DT::datatable(PubmedOutput(PubmedSearch()),
                          class   = 'cell-border stripe compact hover',
                          escape  = F, selection = 'multiple',
                          options = list(
                            initComplete = JS("function(settings, json) {",
                                "$(this.api().table().header()).css({
                                'background-color': '#303030',
                                'color': '#FFFF00'});","}"),
                            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;", "}"))),
                            columnDefs = list(list(
                              targets  = c(1:8),
                              className = 'dt-center')),
                            pageLength = 1, server = T)))

生成我已通过自定义渲染的第 6 列的代码。

PM.ID <- c("26391251","26372702","26372699","26371045") # does not output table
fetch.pubmed <- entrez_fetch(db = "pubmed", id = PM.ID,
                             rettype = "xml", parsed = T)
abstracts = xpathApply(fetch.pubmed, '//PubmedArticle//Article', function(x) xmlValue(xmlChildren(x)$Abstract))
abstracts #  ID 26372702, 26372699 has no abstract. and returns NA

任何意见和建议。PS：除了省略号/工具提示之外，还有更好的方法来显示数据吗？代码太大，无法全部粘贴，因此只选择我注意到问题的部分。我希望它有所帮助。

4

1 回答 1

1

条件data.length > 100不够：需要先确定data是字符串。在您的情况下，data可能是null（从 R 转换NA为 JavaScript），并且null.length会触发错误。代替

type === 'display' && data.length > 100

更严格的条件：

type === 'display' && typeof data === 'string' && data.length > 100
于 2015-10-13T18:46:29.867 回答