Export rpivottable output as image in shiny

I am trying to export the output from rpivottable in shiny as images. rpivottable output in the RStudio Viewer has the option of "Export as Image"

Is there a similar feature I can use when I output the rpivottable in web browser in shiny.

Below is a sample shiny code I am working with.

app <- shinyApp(ui = fluidPage(navbarPage("v0.5",
                                          tabPanel("PLOT",sidebarLayout(
                                            sidebarPanel(),#mainPanel()
                                            mainPanel(rpivotTableOutput("myPivot"),verbatimTextOutput("mytext"))))
)),
server = function(input,output){
    mydata <- mtcars

    output$myPivot <- renderRpivotTable({
      rpivotTable(data = mydata)
    })

}
)

runApp(app)