IS
Size: a a a
IS
IS
IS
IS
IS
A
PU
ИП
> gsub("\\G(?:\\A[^[:lower:]]*[[:lower:]]+,)?+[^[:lower:]]*\\K[[:lower:]]+", "", "Mösser, Justus Justus», perl = TRUE)
[1] «Mösser, J G"
> gsub("\\G(?:\\A[^[:lower:]]*[[:lower:]]+,)?+[^[:lower:]]*\\K[[:lower:]]+", "", "Justus Mosser", perl = TRUE)
[1] "J M"
PU
> gsub("\\G(?:\\A[^[:lower:]]*[[:lower:]]+,)?+[^[:lower:]]*\\K[[:lower:]]+", "", "Mösser, Justus Justus», perl = TRUE)
[1] «Mösser, J G"
> gsub("\\G(?:\\A[^[:lower:]]*[[:lower:]]+,)?+[^[:lower:]]*\\K[[:lower:]]+", "", "Justus Mosser", perl = TRUE)
[1] "J M"
ИП
PU
ИП
PU
К
К
БА
PU
PU
БА
ИП