x <- c(
"The dog and the man play in the park.",
"The man plays with the dog.",
"That is the man's hat.",
"Man I love that dog!",
"I'm dog tired"
)
## this works but I want a single regex
grepl("^(?=.*\\bman\\b)(?=.*\\bdog\\b)", x, ignore.case=TRUE, perl=TRUE)
eCA8LSBjKAogICAgIlRoZSBkb2cgYW5kIHRoZSBtYW4gcGxheSBpbiB0aGUgcGFyay4iLAogICAgIlRoZSBtYW4gcGxheXMgd2l0aCB0aGUgZG9nLiIsCiAgICAiVGhhdCBpcyB0aGUgbWFuJ3MgaGF0LiIsCiAgICAiTWFuIEkgbG92ZSB0aGF0IGRvZyEiLAogICAgIkknbSBkb2cgdGlyZWQiCikKCiMjIHRoaXMgd29ya3MgYnV0IEkgd2FudCBhIHNpbmdsZSByZWdleApncmVwbCgiXig/PS4qXFxibWFuXFxiKSg/PS4qXFxiZG9nXFxiKSIsIHgsIGlnbm9yZS5jYXNlPVRSVUUsIHBlcmw9VFJVRSkg