R/adt_class_methods.R

In Thewhey-Brian/ADTools: Alzheimer Disease Data Tools

#' Search description from dictionary
#'
#' @param var The variable name to query
#' @param opt Searching options
#'
#' @return
#'
#' @examples
#' \dontrun{
#' adt_query("EDUC", "general")
#' }
#'
#' @export
#'
adt_query <- function(var, opt = c("general", "variable", "sources")) {
    opt <- match.arg(opt)
    dict_data <- adt_get_dict("ana_data")
    if (opt == "general") {
        res <- adt_tk_query(dict_data, var)
    }
    if (opt == "variable") {
        res <- adt_tk_query(dict_data, var) %>%
            filter(col_name == var)
    }
    if (opt == "sources") {
        res <- adt_tk_query(dict_data, var) %>%
            filter(grepl(var, location, ignore.case = TRUE))
    }
    if (dim(res)[1] == 0) {
        print("No records found.")
        return(NULL)
    }
    else {
        return(res)
    }
}