R/utils.R

In jpmarindiaz/d3plus: R Htmlwidget for d3plus (http://d3plus.org)

fct_to_chr <- function(d) map_if(d,is.factor,as.character) %>% as_tibble
num_to_chr <- function(d) map_if(d,is.numeric,as.character) %>% as_tibble

#' @export
`%||%` <- 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))
}