Скопировать строку Shiny DT в буфер обмена пользователя

Question

Есть ли способ, чтобы выбранные строки в блестящей таблице данных (DT) были доступны для пользователя, чтобы скопировать (Ctrl+C) в свой буфер обмена. В идеале он также предоставил бы имена столбцов таблицы данных или заголовки.

ОБНОВИТЬ

global.R

library(rclipboard)
library(shiny)

ui.R:

...
rclipboardSetup(),
...
uiOutput("copy"),

server.R:

output$copy = renderUI({
    s = input$orders_rows_selected
    rclipButton("copybtm","Copy",data()[s,],icon("clipboard"))
  })

Answer 1

Вот как получить кнопку для копирования выбранных строк. И заголовки столбцов тоже.

datatable(
  iris, 
  rownames = FALSE,
  extensions = c("Buttons", "Select"),
  options = 
    list(
      select = TRUE,
      dom = "Bfrtip",
      buttons = list(
        list(
          extend = "copy",
          text = 'Copy',
          exportOptions = list(modifier = list(selected = TRUE))
        )
      )
    )
)