En cuanto a tratamiento de fechas, lo más cómodo es importar `lubridate` y para conocer puntualmente el último día del mes dada una fecha, puedes usar [`ceiling_date()`][1]

    library(lubridate)
    
    ceiling_date(as.Date("2022-03-23"), "month") - 1
    [1] "2022-03-31"

    # Considera el tema de los bisisetos
    ceiling_date(as.Date("2020-02-23"), "month") - 1
    [1] "2020-02-29"

  [1]: https://www.rdocumentation.org/packages/lubridate/versions/0.2.3/topics/ceiling_date