r - 将大写单词转换为标题大小写

Question

我想改变这个:

input <- c("Théodore Agrippa d'AUBIGNÉ", "Vital d'AUDIGUIER DE LA MENOR")

进入这个:

output <- c("Théodore Agrippa d'Aubigné", "Vital d'Audiguier De La Menor")

唯一应该修改的是那些全部大写的单词。

编辑:

一种边缘情况，其中序列的第一个字母不在 [A-Z] 中:

input <- "Philippe Fabre d'ÉGLANTINE"

Answer 1

这里有一个替代方案:

gsub("(?<=\\p{L})(\\p{L}+)", "\\L\\1", input, perl = TRUE)

我并不想与其他现有答案竞争，我只是解决(或尝试)挑战并在此处分享它，因为它可能对某人有用和/或我得到关于如何改进它的建设性反馈.

编辑

出于某种原因我跳过了:

only words [...] that are all upper case

我认为下面的处理方式更好一些:

gsub("(?<=\\b\\p{Lu})(\\p{Lu}+\\b)", "\\L\\1", input, perl = TRUE)