R/auto_name_long.R

Defines functions auto_name_long deparse_long

# Modification of the auto_name function from package 'purrr'
# 
#' @importFrom lazyeval as.lazy_dots
#' 
auto_name_long <- 
function(x)
{
  x <- lazyeval::as.lazy_dots(x)
  nms <- if (is.null(names(x))) rep("", length(x)) else names(x)
  missing <- nms == ""
  expr <- lapply(x[missing], `[[`, "expr")
  nms[missing] <- vapply(expr, deparse_long, FUN.VALUE = character(1), USE.NAMES = FALSE)
  names(x) <- nms
  x
}

deparse_long <- 
function(x)
{
  if (is.symbol(x)) {
    return(as.character(x))
  }
  paste0(deparse(x), collapse = "")
}

Try the observer package in your browser

Any scripts or data that you put into this service are public.

observer documentation built on May 1, 2019, 8:04 p.m.