R/shinyDataFilter_df.R

In dgkf/shinyDataFilter: agnostic, idiomatic data filter module for shiny

#' Handler for retrieving static code for a shinyDataFilter_df
#' 
#' A function for scriptgloss::getInitializationCode to dispatch to
#' 
#' @param obj shinyDataFilter_df object
#' @param name unused
#' 
#' @export
getInitializationCode.shinyDataFilter_df <- function(obj, name = NULL) {
  attr(obj, "code")
}