R/collect_val_labels.R

In antaldaniel/retroharmonize: Ex Post Survey Data Harmonization

#' @title Collect labels from metadata file
#' 
#' @param metadata A metadata data frame created by 
#' \code{\link{metadata_create}}.
#' @return The unique valid labels or the user-defined missing 
#' labels found in all the files analyzed in \code{metadata}.
#' @family harmonization functions
#' @examples 
#' test_survey <- retroharmonize::read_rds (
#'    file = system.file("examples", "ZA7576.rds",
#'                   package = "retroharmonize"), 
#'    id = "test"
#' )
#' example_metadata <- metadata_create (test_survey)
#'
#' collect_val_labels (metadata = example_metadata )
#' collect_na_labels ( metadata = example_metadata )
#' @export

collect_val_labels <- function(metadata) {
  
  . <- NULL
  
  valid_labels <- lapply (metadata$valid_labels, unlist) %>%
    sapply(., names )
  unique(as.character(unlist(valid_labels)))
  
}

#' @rdname collect_val_labels
#' @export
collect_na_labels <- function(metadata) {
  
  . <- NULL
  
  na_labels <- lapply (metadata$na_labels, unlist) %>%
    sapply(., names )
  unique(as.character(unlist(na_labels)))
  
}