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"