for(i in 1:nflocks){
  rddays <- ddays + days(i) - days(1)
  a <- print(rddays)
}