R/utils.R

In shinypanels: Shiny Layout with Collapsible Panels

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


`%||%` <- function (x, y)
{
  if (is.empty(x))
    return(y)
  else if (is.null(x) || is.na(x))
    return(y)
  else if (class(x) == "character" && nchar(x) == 0)
    return(y)
  else x
}

is.empty <- function (x)
{
  !as.logical(length(x))
}