Problem while handling first family name with preposition

[LimaRAF]

Check function code related to the problem below:

plantR::prepTDWG("Maria Souza da Silva", get.initials = FALSE, get.prep = TRUE)
[1] "Silva, Maria Souza da" # ok

plantR::prepTDWG("Maria Souza da Silva", get.initials = FALSE, get.prep = TRUE, format = "init_last")
[1] "Maria Souza da Silva" # ok

plantR::prepTDWG("Maria da Silva Souza", get.initials = FALSE, get.prep = TRUE)
[1] "Souza, Maria Silva" # preposition removed! 

plantR::prepTDWG("Maria da Silva Souza", get.initials = FALSE, get.prep = TRUE, format = "init_last")
[1] "Maria Silva Souza" # preposition removed!

[LimaRAF]

Veja esse post para idéais de como lidar melhor e mais eficientemente com as variantes de nomes usando regex:

https://pt.stackoverflow.com/questions/242948/validar-nome-e-sobrenome-com-express%C3%A3o-regular

[LimaRAF]

There are also the cases below that need to be standardized:

> plantR::prepTDWG("M. das G. Costa e Silva", get.initials = FALSE, get.prep = TRUE)
[1] "Silva, M.G. Costa e"
> 
> plantR::prepTDWG("M. das G. Costa Silva", get.initials = FALSE, get.prep = TRUE)
[1] "Silva, M.G. Costa"
```