R prev_month()

1 개요

R prev_month()

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"

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 같이 보기

• R next_month()
• 함수 prev_month()