代码之家 › 专栏 › 技术社区 › Quinten

在Quarto仪表板中添加复制到剪贴板按钮

quarto clipboard r

Quinten · 技术社区 · 1 月前

我想添加一个按钮,在Quarto仪表板中复制用户的输入或输出。我找到了 shiny2clipboard 这似乎是一个不错的选择。不幸的是,我尝试运行的代码没有将文本复制到Quarto仪表板内的剪贴板。当您在链接中运行博客中的示例代码时,它确实有效,但在Quarto仪表板中无效。以下是一些可复制的代码:

---
title: "Test"
format: dashboard
server: shiny
---

## Test

```{r}
library(shiny)
library(shinyCopy2clipboard)
```

```{r}
#| title: "Text that needs to copy to clipboard"

# Setup
  use_copy()

  # Text Input 1
  textInput("text", "Enter Your Text")

  # Copy Button 1
shinyCopy2clipboard::CopyButton(
    "copybtn",
    label = "Copy to clipboard",
    icon = icon("copy"),
    text = "No Text Found"
  )
```


```{r}
#| context: server
observe({

    req(input$copybtn)
  shinyCopy2clipboard::CopyButtonUpdate(session,
                     id = "copybtn",
                     label = "Copy to clipboard",
                     icon = icon("copy"),
                     text = input$text
    )

  })
```

输出:

正如您在输出中看到的,我尝试将文本从输入字段复制到剪贴板。这行不通。所以我想知道是否有人知道如何在Quarto仪表板中添加一个按钮,将文本复制到剪贴板?

1 回复 | 直到 1 月前

Jan 1 月前

您可以定义 actionButton 其具有 onclick 活动。在那里,我们阅读了当前的文本 textInput (使用 txt = document.getElementById('text').value; )然后将其传递到剪贴板 navigator.clipboard.writeText(txt); :

---
title: "Test"
format: dashboard
server: shiny
---

## Test

```{r}
library(shiny)
```

```{r}
#| title: "Text that needs to copy to clipboard"

# Text Input 1
textInput("text", "Enter Your Text")

actionButton(
  "copy_link", 
  "Copy to clipboard", 
  onclick = "
    txt = document.getElementById('text').value;
    navigator.clipboard.writeText(txt);"
)
```

```{r}
#| context: server
```

推荐文章

ultraloveninja · 将当前URL复制到剪贴板

6 年前

puneet · 粘贴前更新剪贴板数据(不是“粘贴”事件)

6 年前

Gucci · 将文本从剪贴板复制到剪贴板

6 年前

kiddslopp · Swift 4+:使用NSPasteboard将字符串复制到剪贴板

6 年前

Aging Hippie · 将多个对象的组合复制到剪贴板(c#winforms)

6 年前

D Thr. · 如何在WinApi C#中订阅剪贴板事件?

7 年前

Jake · 文件execCommand('copy')不在Chrome上工作

7 年前

Krisztián Balla · 如何向HTML剪贴板数据中添加空格,以便WinWord在粘贴时插入它们?

7 年前

Ashok · 如何在非主线程中获取剪贴板数据?

7 年前

Johnny Derpp · iMacros-不将原始提取文本保存在csv中

7 年前