x <- c('marisa monte', 'dru hill', '2pac', 'rã¶yksopp', 'cafã© del mar', 'maria bethã¢nia')
grep("[^a-zA-Z0-9[:space:]]", x)
eCA8LSBjKCdtYXJpc2EgbW9udGUnLCAnZHJ1IGhpbGwnLCAnMnBhYycsICdyw6PCtnlrc29wcCcsICdjYWbDo8KpIGRlbCBtYXInLCAnbWFyaWEgYmV0aMOjwqJuaWEnKQpncmVwKCJbXmEtekEtWjAtOVs6c3BhY2U6XV0iLCB4KQ==