x <- "Status\nActive\nHometown\n"
library(stringr)
stringr::str_extract(x, "(?<=Status\\n).*")
## or
stringr::str_extract(x, "(?<=Status\n).*")