s = "12345"
s <- as.character(as.numeric(s) + 1)