Add removeOutput function

NAMESPACE

@@ -4,5 +4,6 @@ export(destroyModule)
 export(makeModuleServerDestroyable)
 export(makeModuleUIDestroyable)
 export(removeInput)
+export(removeOutput)
 export(runDestroyExample)
 import(shiny)

R/removeOutput.R

@@ -1,3 +1,47 @@
+#' Remove Output from Shiny Session
+#'
+#' The removal of the named output in a shiny session.
+#'
+#' @param id Output value name
+#' @param selector The HTML selector to remove the UI for. By default it is the
+#' tag where the ID matches the output, but might need to be adjusted for
+#' different inputs.
+#' @param session The Shiny session to remove the output from
+#'
+#' @return
+#' An invisible `TRUE` value confirming that the output has been removed.
+#'
+#' @examplesIf interactive()
+#' library(shiny)
+#' library(shiny.destroy)
+#'
+#' ui <- fluidPage(
+#'   numericInput("number", "Select number:", 5, 1, 10),
+#'   p("Selected number:", textOutput("number_out", inline = TRUE)),
+#'   actionButton("delete", "Remove output")
+#' )
+#'
+#' server <- function(input, output, session) {
+#'   output$number_out <- renderText(input$number)
+#'
+#'   observeEvent(
+#'     input$delete,
+#'     removeOutput("number_out")
+#'    )
+#' }
+#'
+#' shinyApp(ui, server)
+#'
+#' @export
+removeOutput <- function(id, selector = paste0("#", id), session = getDefaultReactiveDomain()) {
+  shiny::removeUI(selector, immediate = TRUE, session = session)
+
+  destroyOutput(id, session = session)
+  session$requestFlush()
+
+  invisible(TRUE)
+}
+
 #' Remove Output from Shiny Session
 #'
 #' The removal of the named output in a shiny session.

vignettes/introduction.Rmd

@@ -87,7 +87,7 @@ shiny::runExample(
 
 ### UI
 
-
+The UI for a module is removed in the same way the UI is removed for an input. 
 
 ### Observers