Estoy tratando de probar shiny con un ejemplo, al que no le encuentro el error, al ejecutarlo me aparece en el browser el siguiente error: ERROR: unable to start png() device. Alguien puede decirme que debo corregir del siguiente código???:
library(shiny)
library(ggplot2)
datasets <- data(package = "ggplot2")$results[, "Item"]
ui <- fluidPage(
selectInput("dataset", "Dataset", choices = datasets),
verbatimTextOutput("summary"),
tableOutput("plot")
)
server <- function(input, output, session) {
dataset2 <- reactive({
get(input$dataset, "package:ggplot2")
})
output$summary <- renderPrint({
summary(dataset2())
})
output$plot <- renderPlot({
plot(dataset2())
})
}
# Run the application
shinyApp(ui = ui, server = server)