R prev_month()

1 개요[ | ]

R prev_month()

R

Copy

require(lubridate)
mon <- "2019-07"
t <- as.Date(paste0(mon,'-01'))
month(t) <- month(t) - 1
next_mon <- format(t, "%Y-%m")
next_mon
## [1] "2019-06"

R

Copy

require(lubridate)
prev_mon <- function(mon) {
  t <- as.Date(paste0(mon,'-01'))
  month(t) <- month(t) - 1
  format(t, "%Y-%m")
}
prev_mon("2019-07")
## [1] "2019-06"
prev_mon("2019-01")
## [1] "2018-12"

2 같이 보기[ | ]