4.3 Shiny

Using ggedit as a Shiny module creates a self contained user interface layout that contains a ggedit interface for rendered plots created in a Shiny application. This means that you can launch as many ggedit environments as you need, replacing the static renderPlot with an interactive editable ggplot.

To call the Shiny module you need a UI and server call:

• server: callModule(ggEdit,'pUI',obj=reactive(p))
• ui: ggEditUI('pUI')

Video of Shiny app example

Script to reproduce the video app:

library(ggedit)
library(shinyAce)
ui <-fluidPage(
  conditionalPanel("input.tbPanel=='b'",
               sidebarPanel(uiOutput('x1'),uiOutput('x2'))
               ),
  mainPanel(
    tabsetPanel(id = 'tbPanel',
    tabPanel('renderPlot/plotOutput',value = 'a',plotOutput('p')),
    tabPanel('ggEdit/ggEditUI',value = 'b',ggEditUI("pOut1")),
    tabPanel('ggEdit/ggEditUI with lists of plots',value = 'c',ggEditUI("pOut2"))
  )
  )
  
)

server <- function(input, output,session) {
  p1=iris%>%ggplot(aes(x=Sepal.Length,y=Sepal.Width,colour=Species))+geom_point()
  p2=iris%>%ggplot(aes(x=Sepal.Length,y=Sepal.Width,colour=Species))+geom_line()+geom_point()
  p3=list(p1=p1,p2=p2)

  output$p<-renderPlot({p1})
  outp1<-callModule(ggEdit,'pOut1',obj=reactive(list(p1=p1)))
  outp2<-callModule(ggEdit,'pOut2',obj=reactive(p3),showDefaults=T,height=300)

  output$x1<-renderUI({
    layerTxt=outp1()$UpdatedLayerCalls$p1[[1]]
            aceEditor(outputId = 'layerAce',value=layerTxt,
                      mode = "r", theme = "chrome", 
                      height = "100px", fontSize = 12,wordWrap = T)
         })  
  
  output$x2<-renderUI({
    themeTxt=outp1()$UpdatedThemeCalls$p1
    aceEditor(outputId = 'themeAce',value=themeTxt,
              mode = "r", theme = "chrome", 
              height = "100px", fontSize = 12,wordWrap = T)
  })  

}

shinyApp(ui, server)