R/find_var.R

In MrFlick/ocsls: Online College Social Life Survey Data

#' Find variables
#'
#' Search for a pattern in the OCSLS table column names
#' @param x A pattern to search (grep) for
#' @param tables A character vector of table names to search
#'
#' @export

find_var <- function(x, tables=c("students","dates","romances","hookups")) {
    Map(function(table) {
        grep(x, names(get(table)), value=TRUE)
    }, tables)
}