R DT：datatable删除.no-footer border-bottom

雪人

尝试从R中的DT：datatable删除页脚边框。

看着这个数据表，我发现下面的代码，以消除列名（这是空“”）和数据之间的边界（以红色表示）：

  headerCallback <- c(
    "function(thead, data, start, end, display){",
    "  $('th', thead).css('border-bottom', 'none');",
    "}"
  ),

DT::datatable(
      data = myData(),
      class = "compact",
      rownames = FALSE,
      colnames = c("",""),
      caption = tags$caption(myTitle, style = "color:black"),
      options = list(
        dom = 't',
        ordering = FALSE,
        paging = FALSE,
        searching = FALSE,
        headerCallback = JS(headerCallback)
      )
    )

  })

我现在想做的是消除图像中的黑色底线。我发现以下链接似乎是我想要的，但现在确定如何将它们合并到我拥有的链接中：

r-如何删除DT :: datatable中标题和正文之间的水平线

如何消除黑线

当我检查网页上的元素并展开时<table>，可以取消选中此框，该框将删除底部的黑色线条并提供我想要的内容。但是，不确定如何将其写入我现有的或新的回调函数中。

斯蒂芬·洛朗（Stephane Laurent）

你可以做：

datatable(
  data = iris[1:5,1:2],
  class = "compact",
  rownames = FALSE,
  colnames = c("",""),
  callback = JS("$('table.dataTable.no-footer').css('border-bottom', 'none');"),
  options = list(
    dom = 't',
    ordering = FALSE,
    paging = FALSE,
    searching = FALSE,
    headerCallback = JS(headerCallback)
  )
)

本文收集自互联网，转载请注明来源。

如有侵权，请联系 [email protected] 删除。