R/label_ids.R

Defines functions label_ids

label_ids <- function(labels) {

  nms <- names(labels)
  if (is.null(nms)) {
    return(rep("", length(labels)))
  }

  nms[is.na(nms)] <- ""
  nms
}

Try the sortable package in your browser

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

sortable documentation built on March 31, 2023, 9:35 p.m.