safe_ggplot | R Documentation |
ggplot
in Shiny applicationSafely render a ggplot
in Shiny application
safe_ggplot(
expr,
data = NULL,
show_notification = c("always", "once", "never"),
session = shiny::getDefaultReactiveDomain()
)
expr |
Code to produce a |
data |
Argument passed to |
show_notification |
Strategy for notifications when a warning occurs:
|
session |
Session object to send notification to. |
Output of ggplot_build
.
if (interactive()) {
library(shiny)
library(ggplot2)
ui <- fluidPage(
fluidRow(
column(
width = 3,
selectInput(
inputId = "var",
label = "Var:",
choices = c("Sepal.Width", "Do.Not.Exist")
)
),
column(
width = 9,
plotOutput(outputId = "plot")
)
)
)
server <- function(input, output, session) {
output$plot <- renderPlot({
p <- ggplot(iris) +
geom_point(aes_string("Sepal.Length", input$var))
safe_ggplot(p)
})
}
shinyApp(ui, server)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.