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

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

ClosablePanel <- R6::R6Class(
  "ClosablePanel",
  inherit = Panel,
  public = list(
    # TODO : Change the way we close closable panel
    # Add server logic to remove the module
    ui = function(..., status = "default", header = NULL) {
      header <- tagList(
        header,
        tags$span(
          style = "float: right;cursor: pointer;",
          id = self$ns("close_span"),
          actionButton(self$ns("close"),icon = shiny::icon("times", "fa-sm", verify_fa = FALSE), label = "")
        )
      )
      content <- tagList(
        ...,
        tags$head(
          tags$script(
            type = "text/javascript",
            paste0(
              "setTimeout(function(){ $('#", self$ns("close_span"), "').click(function(){
                $('#", self$module_ns, "').parent().parent().remove()
               }) }, 500);"
            )
          )
        )
      )

      super$ui(
        status = status,
        header = header,
        content
      )
    },
    # server logic
    server = function(input,output,session) {
      # Mandatory
      super$server(input, output, session)
      
      self$obser$close <- observe({
        req(input$close)
        self$destroy()
      })
    }
  )
)