p <- "(г\\.\\s*[[:alpha:]]+)(?:,\\s*\\1)+"
x <- "г. Воронеж, г. Воронеж, г. Воронеж, ул. Ленинский пр-т,174"
gsub(p,"\\1", x, ignore.case = TRUE)
cCA8LSAiKNCzXFwuXFxzKltbOmFscGhhOl1dKykoPzosXFxzKlxcMSkrIgp4IDwtICLQsy4g0JLQvtGA0L7QvdC10LYsINCzLiDQktC+0YDQvtC90LXQtiwg0LMuINCS0L7RgNC+0L3QtdC2LCDRg9C7LiDQm9C10L3QuNC90YHQutC40Lkg0L/RgC3RgiwxNzQiCmdzdWIocCwiXFwxIiwgeCwgaWdub3JlLmNhc2UgPSBUUlVFKQ==