library(stringr)
x <- c("o conselho de saúde é muito importante",
"a votação para o conselho estadual de segurança foi apertada",
"o conselho municipal de assistência social foi instituído em 1990")
str_extract(x, "(\\bconselho\\b\\s*(?:\\S+\\b\\s*){0,3})")
bGlicmFyeShzdHJpbmdyKQoKeCA8LSBjKCJvIGNvbnNlbGhvIGRlIHNhw7pkZSDDqSBtdWl0byBpbXBvcnRhbnRlIiwgCiAgICAgICAiYSB2b3Rhw6fDo28gcGFyYSBvIGNvbnNlbGhvIGVzdGFkdWFsIGRlIHNlZ3VyYW7Dp2EgZm9pIGFwZXJ0YWRhIiwgCiAgICAgICAibyBjb25zZWxobyBtdW5pY2lwYWwgZGUgYXNzaXN0w6puY2lhIHNvY2lhbCBmb2kgaW5zdGl0dcOtZG8gZW0gMTk5MCIpCgpzdHJfZXh0cmFjdCh4LCAiKFxcYmNvbnNlbGhvXFxiXFxzKig/OlxcUytcXGJcXHMqKXswLDN9KSIpCg==