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

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

Panel <- R6::R6Class(
  "Panel",
  inherit = tidymodules::TidyModule,
  public = list(
    ui = function(..., status = "default", header = NULL) {
      shinyWidgets::panel(
        id = self$module_ns,
        heading = tagList(
          shiny::tags$h3(
            class = "panel-title",
            tagList(
              paste0("#", self$module_ns, " - ", class(self)[1]),
              header
            )
          )
        ),
        status = status,
        tagList(...)
      )
    }
  )
)