R/test_values_nonempty.R

In CoEDL/yinarlingi: Validation Functions for the Warlpiri Dictionary

#' Test whether all non-block codes have some content in them
#'
#' @param wlp_lexicon a Warlpiri lexicon data frame, or path to a Warlpiri dictionary file
#'
#' @importFrom readr read_csv
#'
#' @export
#'

test_values_nonempty <- function(wlp_lexicon) {

    wlp_code_defs <-
        read_csv(
            file      = system.file("structures/wlp_code-definitions.csv", package = "yinarlingi"),
            col_types = "ccc"
        )

    non_blocks <-
        filter(wlp_code_defs, str_detect(codes_expected, ";"))

    wlp_lexicon %>%
        make_wlp_df() %>%
        skeletonise_df() %>%
        filter(code1 %in% c(non_blocks$code1, "we", "wed")) %>%
        mutate(content = str_remove_all(data, use_wlp_regex("all_codes")) %>% str_remove_all("source_codes") %>% str_trim()) %>%
        filter(nchar(content) == 0)

}