#' @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)))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.