Sources <- c(
"Coal burning plant",
"General plant",
"coalescent plantation",
"Charcoal burning plant"
)
Registry <- seq(from = 1100, to = 1103, by = 1)
df <- data.frame(Registry, Sources)
grep('(?i)(?=.*\\bplant\\b)(?=.*\\bcoal\\b)', df$Sources, perl=T, value=T)
U291cmNlcyA8LSBjKAogICAgICAgICAgICAgICAgIkNvYWwgYnVybmluZyBwbGFudCIsCiAgICAgICAgICAgICAgICAiR2VuZXJhbCBwbGFudCIsCiAgICAgICAgICAgICAgICAiY29hbGVzY2VudCBwbGFudGF0aW9uIiwKICAgICAgICAgICAgICAgICJDaGFyY29hbCBidXJuaW5nIHBsYW50IgogICAgICAgICkKUmVnaXN0cnkgPC0gc2VxKGZyb20gPSAxMTAwLCB0byA9IDExMDMsIGJ5ID0gMSkKCmRmIDwtIGRhdGEuZnJhbWUoUmVnaXN0cnksIFNvdXJjZXMpCiBncmVwKCcoP2kpKD89LipcXGJwbGFudFxcYikoPz0uKlxcYmNvYWxcXGIpJywgZGYkU291cmNlcywgcGVybD1ULCB2YWx1ZT1UKQo=