将 Shiny DT 行复制到用户剪贴板

Question

有没有办法让闪亮的数据表 (DT) 中选定的行可供用户复制 (Ctrl+C) 到剪贴板。理想情况下，它还可以提供数据表的列名或标题。

更新

全局R

library(rclipboard)
library(shiny)

ui.R：

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

服务器.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))
        )
      )
    )
)