Replicate the the lookfor command in Stata

lookfor.r

# Required packages
# dplyr
# stringr
# glue

lookfor <- function(df, pattern) {
  var_i <- names(df) %>% stringr::str_detect(stringr::regex(pattern, ignore_case = TRUE))
  return(names(df)[var_i])
}