[R语言]求出两个日期之间的工作日天数

由于现在百度上还不能够搜到相关的算法及包，所以开发了一个函数如下，欢迎直接拿去用，当然如果有更好的算法也欢迎和我交流。

workdays<-function(start,end){
Author<-"ash_zhang"
  if (start
    i<-start;
    j<-0;
    while (i
      if (weekdays(i) %in% c("星期六","星期天")){
        i=i+1;
      }else{
        j=j+1;
        i=i+1;
      }
    }
  }else{
    break;
  }
  return(j)
}
 
start=as.Date('2017-10-18')
end=as.Date('2018-01-03')
workdays(start,end)