Это возможно с расширением Select
. Включите это расширение, установите параметр select = TRUE
и установите кнопки следующим образом:
list(
extend = "csv",
text = 'CSV',
exportOptions = list(modifier = list(selected = TRUE))
)
То есть:
datatable(
iris,
rownames = FALSE,
extensions = c("Buttons", "Select"),
options =
list(
select = TRUE,
searching = TRUE,
scrollX = TRUE,
scrollY = TRUE,
dom = "BRSpfrti",
buttons = list(
list(
extend = "copy",
text = 'Copy',
exportOptions = list(modifier = list(selected = TRUE))
),
list(
extend = "csv",
text = 'CSV',
exportOptions = list(modifier = list(selected = TRUE))
),
list(
extend = "excel",
text = 'Excel',
exportOptions = list(modifier = list(selected = TRUE))
),
list(
extend = "pdf",
text = 'PDF',
exportOptions = list(modifier = list(selected = TRUE))
),
list(
extend = "print",
text = 'Print',
exportOptions = list(modifier = list(selected = TRUE))
)
)
)
)
![enter image description here](https://i.stack.imgur.com/RgL9v.gif)