javascript - R DT :datatable remove . 无页脚边框底部

Question

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

看着这个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 - How to remove the horizontal line between the header and the body in a DT::datatable

How To Remove Black Lines

当我检查网页上的元素时，展开 <table>我可以取消选中 this box它删除了底部的黑线并给了我想要的东西。但是，不确定如何将其写入我现有的或新的回调函数。

Answer 1

你可以这样做:

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