library(lubridate)
case1: наивная функция
mos<-function (begin, end) {
mos1<-as.period(interval(ymd(begin),ymd(end)))
mos<-mos1@year*12+mos1@month
mos
}
case2: если вам нужно учитывать только «месяц», независимо от «дня»
mob<-function (begin, end) {
begin<-paste(substr(begin,1,6),"01",sep="")
end<-paste(substr(end,1,6),"01",sep="")
mob1<-as.period(interval(ymd(begin),ymd(end)))
mob<-mob1@year*12+mob1@month
mob
}
Пример:
mos(20150101,20150228) # 1
mos(20150131,20150228) # 0
# you can use "20150101" instead of 20150101
mob(20150131,20150228) # 1
mob(20150131,20150228) # 1
# you can use a format of "20150101", 20150101, 201501
Итак, у меня была похожая проблема в начале этой недели. Наконец, найдя решение проблемы, вы можете попробовать это и посмотреть, сработает ли это для вас.
Итак, я указал engine в моем файле package.json , и он был установлен на версию 8, но после изменения на версию 10 все работало нормально.
Ура
Код взрывается на современном спред-операторе ES6. Вам нужно использовать babel вместе с babel-loader для компиляции этих модулей.
Вам нужно будет поделиться своей конфигурацией для вашего package.json и webpack.conifg.js.