vrb_list <- lapply(X = c("O","C","E","A","N"), FUN = function(chr) {
tmp <- grepl(pattern = chr, x = names(psych::bfi))
names(psych::bfi)[tmp]
})
rowsNA(data = psych::bfi,
vrb.nm.list = vrb_list) # names set to first elements in `vrb.nm.list`[[i]]
names(vrb_list) <- paste0(c("O","C","E","A","N"), "_m")
rowsNA(data = psych::bfi, vrb.nm.list = vrb_list) # names set to names(`vrb.nm.list`)
Run the code above in your browser using DataLab