expression rationnelle multiple avec remplacement singulier

Je suis en train de remplacer les deux "saint" et "sainte." par "st". Semble être la suivante devrait fonctionner, mais il ne le fait pas:

require("stringr")
county <- c("st. landry", "ste. geneveve", "st. louis")
str_replace_all(county, c("st\\.", "ste\\."), "st")

source d'informationauteur MikeTP