R/GetLabels.R

In ghowoo/Wu: This is a collection of utility functions for statistical analysis and reporting.

#' A GetLabels Function
#'
#' This function allows you to get all labels from a dataframe.
#' @param 
#' @keywords labels
#' @export


GetLabels <- function(obj){
  rtn <- unlist(lapply(obj, label))
  rtn  <- cbind(colnames(obj),rtn)
  rownames(rtn) <- NULL
  rtn <- as.data.frame(rtn)
  colnames(rtn) <- c("variable","label")
  return(rtn)
}


#' @export
ger_labels <- function(obj){
  rtn <- unlist(lapply(obj, Wu::label))
  rtn  <- cbind(colnames(obj), rtn)
  rownames(rtn) <- NULL
  rtn <- as.data.frame(rtn)
  colnames(rtn) <- c("variable", "label")
  return(rtn)
}