Lo que puedes hacer es una función que genere una secuencia de fechas por mes y quedarnos con la fecha del mes esperado:
addmonth <- function(d, m) {
seq(d, by="month", length.out=m+1)[m+1]
}
ejemplo:
addmonth(as.Date("31/03/2022", format = "%d/%m/%Y"), 6)
[1] "2022-10-01"