Bernardo e colegas, boa noite!
Eu tive sucesso da seguinte forma:
texto2 <- 'Ação. Árvore, Èden, Texto. Ótimo, Excelente, Bom. È, Ççççç! ÇÇÇÇÇÇÇ. ÇÇÇÇÇÇ'
gsub('(?<=\\. )([[:upper:]])', '\\L\\1', texto2, perl = TRUE)
# [1] "Ação. árvore, Èden, Texto. ótimo, Excelente, Bom. è, Ççççç! ÇÇÇÇÇÇÇ. çÇÇÇÇÇ"
Sys.getlocale()
# [1] "LC_COLLATE=Portuguese_Brazil.1252;LC_CTYPE=Portuguese_Brazil.1252;LC_MONETARY=Portuguese_Brazil.1252;LC_NUMERIC=C;LC_TIME=Portuguese_Brazil.1252"