R/utils.R

In jpmarindiaz/dsAppModules: Modules for building shiny apps for datasketch

is.reactive <- function(obj){
  all(class(obj) %in% c("reactiveExpr","reactive"))
}

#' @export
getUrlParameters <- function(session = session) {
  parseQueryString(session$clientData$url_search)
}

file_ext <- function (x) {
  sub(".*([.*])", "\\1", basename(x))
}