Description Usage Arguments Details Value See Also Examples
View source: R/jseval_and_hooks.R
The 'useClipboard' hook.
1 | useClipboard(value)
|
value |
a string |
See useClipboard.
A list containing some URL-encoded JavaScript code.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 | library(shiny)
library(shinyChakraUI)
ui <- chakraPage(
br(),
chakraComponent(
"mycomponent",
withStates(
Tag$Box(
width = "50%",
Tag$Flex(
mb = 2,
Tag$Input(
isReadOnly = TRUE,
value = getHookProperty("clipboard", "value")
),
Tag$Button(
ml = 2,
onClick = getHookProperty("clipboard", "onCopy"),
jseval('getState("hasCopied") ? "Copied" : "Copy"')
)
),
br(),
Tag$Divider(),
br(),
Tag$Editable(
bg = "yellow.100",
placeholder = "Paste here",
Tag$EditablePreview(),
Tag$EditableInput()
)
),
states = list(
clipboard = useClipboard("Hello Chakra"),
hasCopied = getHookProperty("clipboard", "hasCopied")
)
)
)
)
server <- function(input, output, session){}
if(interactive()){
shinyApp(ui, server)
}
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.