R/unbind_dt.R

In tanho63/tanmisc: Tantastic, Miscellaneous, and Mostly Shiny 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
#'
#' @examples
#' unbind_dt_js()
#'
#' @export
unbind_dt_js <- function()
  {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)
#'
#' @return a call to the JS that unbinds \code{dt_name}
#'
#' @examples
#' unbind_dt('player_table')
#'
#' @export

unbind_dt <- function(dt_name,session = session){
  session$sendCustomMessage("unbind_table_elements",dt_name)
}