fork download
copy 
  1. x <- c("bcl-2 was detected in 45% bcl-6 was not detected", 
  2. "bcl-2 was not detected bcl-6 was detected in 45%",
  3. "no evidendce of bcl-2 bcl-6 was detected in 45%")
  4. grep("\\bbcl-2\\b(?:(?!\\bbcl-\\d|\\bnot\\b).)*?\\bdetected\\b", x, perl=TRUE, value=TRUE)
Success #stdin #stdout 0.3s 175424KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
[1] "bcl-2 was detected in 45% bcl-6 was not detected"
https://ideone.com/mxycKT
language:
R (R 3.5.2)
created:
8 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!