x <- c("business_metric_one","business_metric_one_dk","business_metric_one_none","business_metric_two","business_metric_two_dk","business_metric_two_none")grep("metric(?!.*_(?:dk|none))", x, value=TRUE, perl=TRUE)
Standard input is empty
[1] "business_metric_one" "business_metric_two"
The brand new service which powers Ideone!
Widget for compiling and running the source code in a web browser!