inst/shiny/examples/4_communication/mod_BoxPlot.R

In xni7/tidymodules: A robust framework for developing shiny modules

BoxPlot <- R6::R6Class(
  "BoxPlot", 
  inherit = BasePlot,
  public = list(
    chart = function(data,cols){
      return(reactive({
        aes <- self$aes(cols())
        ggplot(data(), aes) + 
          geom_boxplot()
      }))
    }
  )
)