snapper_div | R Documentation |
div object to capture preview_button outputs.
snapper_div(id = "previewImage", ...)
id |
character, id of the object, Default: 'previewImage' |
... |
elements to pass to div |
shiny.tag
builder
Other elements:
preview_button()
if(interactive()){
options(device.ask.default = FALSE)
ui <- fluidPage(id = 'page',
# load snapper into the app
load_snapper(),
titlePanel("Hello Shiny!"),
sidebarLayout(
sidebarPanel(id = 'side', # add id to side panel
sliderInput("obs",
"Number of observations:",
min = 0,
max = 1000,
value = 500),
# add a download button for the side panel by id
snapper::download_button(ui = '#side',
label = 'Download Side',
filename = 'side_panel.png'),
# add a preview button for the side panel by id
snapper::preview_button(ui = '#side',
previewId = 'preview_side',
label = 'Preview Side'),
# add a preview button for the main panel by id
snapper::preview_button(ui = '#main',
previewId = 'preview_main',
label = 'Preview Main'),
# add a save button to save the side panel on the server
snapper::save_button(ui = '#side',
label = 'Save Side')
),
# Show a plot of the generated distribution
mainPanel(id = 'main', # add id to main panel
plotOutput("distPlot"),
# create a div that will display the content created by preview_side
shiny::tags$h3('Preview Side Panel'),
snapper::snapper_div(id = 'preview_side'),
# create a div that will display the content created by preview_main
shiny::tags$h3('Preview Main Panel'),
snapper::snapper_div(id = 'preview_main')
)
)
)
server <- function(input, output) {
output$distPlot <- renderPlot({
hist(rnorm(input$obs))
})
}
# Complete app with UI and server components
shinyApp(ui, server)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.