Cut/paste graphics as high quality

[StevenO]

Can someone guide me towards how to set up something that would allow a user to cut and paste a higher-quality graphic from a Shiny app?

I am sometimes using ggplot2 and other times the native graphics (I can switch to ggplot2 for everything if that is easier). I envision something like double-clicking on a graphic to copy a scalable higher-res version like svg or a metafile. I have found information on how to save high-quality graphics in RStudio but not how that would work in an app.

Thanks!

[nirgrahamuk]

Hi, welcome!

To help us help you, could you please prepare a reproducible example (reprex) illustrating your issue? Please have a look at these resources, to see how to create one for a shiny app

Chapter 5 Workflow | Mastering Shiny

Shiny debugging and reprex guide

Shiny issues can be challenging to resolve relative to other problems with your code or statistical methods. Shiny apps are often large, complex projects with interacting files. When seeking help from others it is considered polite to: First, do your best to work through RStudio's debugging tools to diagnose your issue on your own. Often those shiny logs and tracebacks are useful to others trying to help out. Second, strive to minimize the effort required to replicate your issue. You can do this with a reproducible example ("reprex"). Shiny Debugging Errors in Shiny code can be difficult to track down. If you don't know where your problem is coming from, you can track it down with some o…

[StevenO]

Well a reprex could be the default Old Faithful app. Right-click on the graph, copy, and it is at screen resolution. I am looking for a way to copy and paste this as a metafile, svg or other scalable high-res format?

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)

[nirgrahamuk]

@StevenO

I have found information on how to save high-quality graphics

I suggest you implement this approach with a shiny download button

[jonspring]

Here's a relevant answer in stack overflow with many upvotes:

How to save plots that are made in a shiny app

[StevenO]

Thanks for the help. I can figure out how to save the file (thanks for the pointers). Is there no way to copy/paste the file in high-quality short of saving it?