example <- c("aaaa","aaab","abab","abba","baaa","baba","bbba","bbbb")
example <- as.data.frame(example)
example1 <- c("zzzz","zzzy","zyzy","zyyz","yzzz","yzyz","yyyz","yyyy")
example1 <- as.data.frame(example1)
df <- cbind(example, example1)
library(stringr)
str_detect(df$example,"aaaa")
ZXhhbXBsZSA8LSBjKCJhYWFhIiwiYWFhYiIsImFiYWIiLCJhYmJhIiwiYmFhYSIsImJhYmEiLCJiYmJhIiwiYmJiYiIpCmV4YW1wbGUgPC0gYXMuZGF0YS5mcmFtZShleGFtcGxlKQoKZXhhbXBsZTEgPC0gYygienp6eiIsInp6enkiLCJ6eXp5Iiwienl5eiIsInl6enoiLCJ5enl6IiwieXl5eiIsInl5eXkiKQpleGFtcGxlMSA8LSBhcy5kYXRhLmZyYW1lKGV4YW1wbGUxKQoKZGYgPC0gY2JpbmQoZXhhbXBsZSwgZXhhbXBsZTEpCgpsaWJyYXJ5KHN0cmluZ3IpCnN0cl9kZXRlY3QoZGYkZXhhbXBsZSwiYWFhYSIp