library(stringr)
x <- "[('one', 'CARDINAL'), ('Castro', 'PERSON'), ('Latin America', 'LOC'), ('Somoza', 'PERSON')]"
str_extract_all(x, "\\([^()]*'LOC'[^()]*\\)")
# => [1] "('Latin America', 'LOC')"
str_extract_all(x, "[^']+(?=',\\s*'LOC'\\))")
# => [1] "Latin America"
bGlicmFyeShzdHJpbmdyKQp4IDwtICJbKCdvbmUnLCAnQ0FSRElOQUwnKSwgKCdDYXN0cm8nLCAnUEVSU09OJyksICgnTGF0aW4gQW1lcmljYScsICdMT0MnKSwgKCdTb21vemEnLCAnUEVSU09OJyldIgpzdHJfZXh0cmFjdF9hbGwoeCwgIlxcKFteKCldKidMT0MnW14oKV0qXFwpIikKIyA9PiBbMV0gIignTGF0aW4gQW1lcmljYScsICdMT0MnKSIKc3RyX2V4dHJhY3RfYWxsKHgsICJbXiddKyg/PScsXFxzKidMT0MnXFwpKSIpCiMgPT4gWzFdICJMYXRpbiBBbWVyaWNhIg==