大家好:
小弟近日想把設計好的儀表板存到本機端中，想請教shiny有像是saveWidget函式的功能，能夠直接把網頁輸出到桌面上嗎(如下圖)?

以下是shiny程式的範例

library(shiny)
ui <- fluidPage(
   titlePanel("Old Faithful Geyser Data"),
    sidebarLayout(
        sidebarPanel(
            sliderInput("bins",
                        "Number of bins:",
                        min = 1,
                        max = 50,
                        value = 30)
        ),
       mainPanel(
           plotOutput("distPlot")
        )
    )
)
server <- function(input, output) {

    output$distPlot <- renderPlot({
        x    <- faithful[, 2]
        bins <- seq(min(x), max(x), length.out = input$bins + 1)
        hist(x, breaks = bins, col = 'darkgray', border = 'white')
    })
}
shinyApp(ui = ui, server = server)