find_varname.R

#' In a dataframe, find all variable names that match var_pattern
#'
#' @param var_pattern a character string ("pattern" to match)
#' @param dframe  a dataframe
#'
#' @return all variable names in the dataframe that match var_pattern
#' @export
#'
#' @examples
#' find_var(iris, "idth")
#' find_var(iris, ".")
#' 
find_varname <- function(dframe, var_name){
  names(dframe)[grepl(var_name, names(dframe))]
}