Как это?
library(DT)
library(dplyr)
hi <- iris %>% group_by(Species) %>%
dplyr::summarise(
Sepal.Length.Average = mean(Sepal.Length),
Sepal.Width.Average = mean(Sepal.Width)
)
callback <-
"$('table.dataTable.no-footer').css('border-bottom', 'none');"
datatable(
hi,
rownames = FALSE,
width = 600,
filter = "none",
callback = JS(callback),
options =
list(
dom = 't',
columnDefs = list(
list(targets = 0, className = "dt-right")
)
)
)
![enter image description here](https://i.stack.imgur.com/Lg6pq.png)
Обратите внимание, что нижняя граница по-прежнему отображается в программе просмотра RStudio, но не в браузере.