From 5d4fa751f57f6e77115dea74392512e0ff851fd8 Mon Sep 17 00:00:00 2001 From: Jeremy Wildfire Date: Thu, 24 Mar 2022 09:30:14 -0400 Subject: [PATCH] update rclipboard calls. fix #663 --- R/mod_settingsCode.R | 21 ++++++++++++++++++--- 1 file changed, 18 insertions(+), 3 deletions(-) diff --git a/R/mod_settingsCode.R b/R/mod_settingsCode.R index a778bfc0..6280c131 100644 --- a/R/mod_settingsCode.R +++ b/R/mod_settingsCode.R @@ -116,7 +116,12 @@ settingsCode <- function(input, output, session, mapping, charts, domainData){ }) output$mappingText <- renderText({mappingString()}) output$mappingCopy <- renderUI({ - rclipboard::rclipButton("clipbtn", "Copy to Clipboard", mappingString(), icon("clipboard")) + rclipboard::rclipButton( + inputId="clipbtn", + label="Copy to Clipboard", + clipText=mappingString(), + icon=icon("clipboard") + ) }) output$mappingDownload <- downloadHandler( filename = "mapping.yaml", @@ -134,7 +139,12 @@ settingsCode <- function(input, output, session, mapping, charts, domainData){ chartsString <- as.yaml(charts_raw) output$chartsText <- renderText({chartsString}) output$chartsCopy <- renderUI({ - rclipboard::rclipButton("clipbtn", "Copy to Clipboard", chartsString, icon("clipboard")) + rclipboard::rclipButton( + inputId="clipbtn", + label="Copy to Clipboard", + clipText=chartsString, + icon=icon("clipboard") + ) }) output$chartsDownload <- downloadHandler( filename = "charts.yaml", @@ -167,7 +177,12 @@ settingsCode <- function(input, output, session, mapping, charts, domainData){ ) output$initText <- renderText(initString) output$initCopy <- renderUI({ - rclipboard::rclipButton("clipbtn2", "Copy to Clipboard", initString, icon("clipboard")) + rclipboard::rclipButton( + inputId="clipbtn2", + label="Copy to Clipboard", + clipText=initString, + icon=icon("clipboard") + ) }) output$initDownload <- downloadHandler( filename = "initApp.R",