Olá,
Rodando a função lapply como segue:
uc_list<-lapply(sp_names, function(x) data$WDPAID[data$BINOMIAL==x])
Deu o seguinte erro (apesar de continuar rodando):
Error in sprintf("^%s", makeRegexpSafe(text)) :
promise already under evaluation: recursive default argument reference or earlier problems?
Alguém sabe me dizer o que significa?