如何在闪亮的应用程序中截取特定绘图图表而不是整个 UI?
library(shiny)
library(shinyscreenshot)
library(plotly)
ui <- fluidPage(
plotlyOutput("plot"),
actionButton("go", "Take a screenshot")
)
server <- function(input, output) {
output$plot<-renderPlotly({
fig <- plot_ly(
x = c("giraffes", "orangutans", "monkeys"),
y = c(20, 14, NA),
name = "SF Zoo",
type = "bar"
)
fig
})
observeEvent(input$go, {
screenshot()
})
}
shinyApp(ui, server)