Description Usage Arguments Value Examples
Add button to copy text to clipboard
1 2 3 | clipCodeButton(server, label = NULL, icon = NULL, modal = FALSE,
id = "clipboard_btn", envir = parent.frame(), text = get_code(server,
envir = envir))
|
server |
server function to derive code from |
label |
a button label to be displayed with the button |
icon |
an icon to be displayed with the button |
modal |
whether the button is being shown in a modal dialog |
id |
button css id |
envir |
environment from which code should be collected |
text |
the text to be copied |
a shiny tagList containing the button
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 | ## Not run:
library(shiny)
ui <- fluidPage(
scriptglossJS(),
selectInput('x', 'x axis', choices = names(mtcars)),
selectInput('y', 'y axis', choices = names(mtcars)),
uiOutput('copy_code_btn'),
plotOutput('plot')
)
srv <- function(input, output, session) {
output$plot <- renderPlot({
plot(x = mtcars[[input$x]],
y = mtcars[[input$y]])
})
output$copy_code_btn <- renderUI(clipCodeButton(srv))
}
shinyApp(ui, srv)
## End(Not run)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.