ggplot-output: Render 'ggplot' module

In singha53/esquisse: Explore and Visualize Your Data Interactively

Description

Display a plot on the client and allow to download it.

Usage

ggplot_output(
  id,
  width = "100%",
  height = "400px",
  downloads = downloads_labels(),
  ...
)

downloads_labels(
  label = icon("download"),
  png = tagList(icon("file-image-o"), "PNG"),
  pdf = tagList(icon("file-pdf-o"), "PDF"),
  svg = tagList(icon("chrome"), "SVG"),
  jpeg = tagList(icon("file-image-o"), "JPEG"),
  pptx = tagList(icon("file-powerpoint-o"), "PPTX"),
  more = tagList(icon("gear"), "More options")
)

render_ggplot(
  id,
  expr,
  ...,
  env = parent.frame(),
  quoted = FALSE,
  filename = "export-ggplot"
)

Arguments

id	Module ID.
width	Width of the plot.
height	Height of the plot.
downloads	Labels for export options, use downloads_labels.
...	Parameters passed to plotOutput or renderPlot.
label	Main label for export button
png, pdf, svg, jpeg, pptx	Labels to display in export menu, use NULL to disable specific format.
more	Label for "more" button, allowing to launch export modal.
expr	An expression that generates a ggplot object.
env	The environment in which to evaluate expression.
quoted	Is expr a quoted expression (with quote())? This is useful if you want to save an expression in a variable.
filename	A string of the filename to export WITHOUT extension, it will be added according to type of export.

Value

Server-side, a reactiveValues with the plot.

Examples

library(shiny)
library(ggplot2)
library(esquisse)


ui <- fluidPage(
  tags$h2("ggplot output"),
  selectInput("var", "Variable:", names(economics)[-1]),
  ggplot_output("MYID", width = "600px")
)

server <- function(input, output, session) {
  
  render_ggplot("MYID", {
    ggplot(economics) + 
      geom_line(aes(date, !!sym(input$var))) + 
      theme_minimal() + 
      labs(
        title = "A cool chart made with ggplot2",
        subtitle = "that you can export in various format"
      )
  })
}

if (interactive())
  shinyApp(ui, server)

singha53/esquisse documentation built on Dec. 23, 2021, 2:29 a.m.