function (tidydata, key, invert = F) { obj0 <- tidydata[grep(paste0(key, collapse = "|"), tidydata$key, invert = invert), ] return(obj0) }