R/loosely_ask_radlex.R

In patelm9/cartographR2:

#' Loosely asks RadLex v4
#' @importFrom readxl read_xls
#' @importFrom dplyr filter
#' @importFrom dplyr filter_all
#' @export
#'
loosely_ask_radlex <-
        function(phrase, path_to_radlex_xls) {
                radlex <- readxl::read_xls(path_to_radlex_xls, col_types = "text")
                updated_radlex <- radlex %>%
                        dplyr::filter(Obsolete == FALSE)

                output <-
                        updated_radlex %>%
                        dplyr::filter_all(any_vars(grepl(phrase, ., ignore.case = TRUE)))

                return(output)
        }