R/read_wlp_lexicon.R

In CoEDL/yinarlingi: Validation Functions for the Warlpiri Dictionary

#' Read in and optionally pre-process the Warlpiri lexicon file
#'
#' @param lexicon_path location of the wlp-lexicon_master.txt file.
#' @param preprocess extract out the left-most backslash code of each line into a \code{code1} column? Default is \code{TRUE}

#' @importFrom tidylex read_lexicon
#'
#' @export
#'

read_wlp_lexicon <- function(lexicon_path, preprocess = TRUE) {

    if(!preprocess) {

        read_lexicon(file  = lexicon_path)

    } else {

        read_lexicon(
            file  = lexicon_path,
            regex = use_wlp_regex("first_code"),
            into  = "code1"
        )
    }

}

make_wlp_df <- function(wlp_lexicon) {

    if(!is.data.frame(wlp_lexicon) && file.exists(wlp_lexicon)) {
        read_wlp_lexicon(wlp_lexicon)
    } else {
        wlp_lexicon
    }

}