R/has_names.R

Defines functions has_names

# @author 
# Borrowed from Hadley Wickham's dplyr package
# 
has_names <-
function(x) 
{
  nms <- names(x)
  if (is.null(nms)) {
    rep(FALSE, length(x))
  }
  else {
    !is.na(nms) & nms != ""
  }
}

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.