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"
Si quieres trabajar con un vector puedes perfectamente hacer algo así:
addmonth <- function(dl, m) {
as.Date(sapply(dl, FUN=function(d) {
seq(d, by="month", length.out=m+1)[[m+1]]
}))
}
fechas <- seq(as.Date("31/03/2022", format = "%d/%m/%Y"),
by="day", length.out=15)
addmonth(fechas, 6)
[1] "2022-10-01" "2022-10-01" "2022-10-02" "2022-10-03"
[5] "2022-10-04" "2022-10-05" "2022-10-06" "2022-10-07"
[9] "2022-10-08" "2022-10-09" "2022-10-10" "2022-10-11"
[13] "2022-10-12" "2022-10-13" "2022-10-14"