R/dt_unbind.R

In tanho63/tantastic: Fun and Shiny and Pretty Functions

#' Unbind Shiny Inputs (UI function)
#'
#' When generating inputs reactively, it's sometimes necessary to unbind old inputs so that you can use the updated inputs in Shiny.
#' `\code{unbind_dt_js()} adds the JS to the UI, while \code{unbind_dt()} is called as needed in the server component
#' (usually as part of an \code{observeEvent} or \code{eventReactive})
#'
#' @return Adds JS to HTML head
#'
#' @export
unbind_dt_js <- function() {
  if (!requireNamespace("shiny", quietly = TRUE)) stop("Package `shiny` is required!", call. = FALSE)

  shiny::tags$head(
    shiny::tags$script(
      'Shiny.addCustomMessageHandler("unbind_table_elements", function(x) {
              Shiny.unbindAll($(document.getElementById(x)).find(".dataTable"));
                        });'
    )
  )
}

#' Unbind Shiny Inputs (server function)
#' When generating inputs reactively, it's sometimes necessary to unbind old inputs so that you can use the updated inputs in Shiny.
#' `\code{unbind_dt_js()} adds the JS to the UI, while \code{unbind_dt()} is called as needed in the server component
#' (usually as part of an \code{observeEvent} or \code{eventReactive})
#'
#' @param dt_name String representing the table's output ID (i.e. to unbind in output$table_alpha, use "table_alpha" as the parameter)
#' @param session a `shiny::session` object
#'
#' @return a call to the JS that unbinds \code{dt_name}
#'
#' @export

unbind_dt <- function(dt_name, session = shiny::getDefaultReactiveDomain()) {
  if (!requireNamespace("shiny", quietly = TRUE)) stop("Package `shiny` is required!", call. = FALSE)

  session$sendCustomMessage("unbind_table_elements", dt_name)
}