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

Question

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

更新

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

这里是如何获得一个按钮来复制所选行。还有 headers 列。

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

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

Copy a Shiny DT row to users clipboard

datatable

r

shiny

datatables-1.10

dt

更新