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。最初に が文字列であることを確認する必要があります。あなたの場合、（RからJavaScriptに変換された）data可能性があり、エラーが発生します。交換nullNAnull.length

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

より厳しい条件で：

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