deepanshu88/shinycopy2clipboard

Copy Text to Clipboard in Shiny Apps

shinycopy2clipboard's Issues

Does this work in an rmarkdown shiny app?

Hello,
I'm developing a shiny app in a single .Rmd document.
This is a minimal example of what I'm trying to achieve. I cannot get copying to clipboard to work :/

---
title: "My App"
output:
  html_document
runtime: shiny
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = FALSE, comment = NA)

library(data.table)
library(DT)
library(shiny)
library(shinyCopy2clipboard)
use_copy()

dt<-data.table(a=c(1,2,3),b=c("a","b","c"))
```

```{r}
inputPanel(
  checkboxInput("dt_sel", "select/deselect all"),
  CopyButton("copybtn", "COPY", icon = icon("copy"), text = "No Text Found")
)
output$table <- renderDT(datatable(dt), server=TRUE)

dt_proxy <- DT::dataTableProxy("table")
DT::DTOutput('table')

observeEvent(input$dt_sel, {
  if (input$dt_sel) {
    DT::selectRows(dt_proxy, input$table_rows_all)
  } else {
    DT::selectRows(dt_proxy, NULL)
  }
})
renderPrint(print(input$table_rows_selected))
```

```{r, context="server"}
observe({
  req(input$copybtn)
  CopyButtonUpdate(session,
                   id = "copybtn",
                   label = "COPIED!",
                   icon = icon("copy"),
                   text = dt[input$table_rows_selected]
  )
})
```

Any tips? Thanks!