R/filldate.R

In frousseu/rNest: Estimating Nesting Chronology and Breeding Phenology in Birds

filldate <-
function(x){
             y<-as.Date(x)
             ans<-seq.Date(min(y,na.rm=T),max(y,na.rm=T),by=1)
             if(!is.null(names(y))){
                  if(length(unique(names(y)))==1){
                      names(ans)[1:length(ans)]<-names(y)[1]
                  }else{
                      names(ans)[1:length(ans)]<-sapply(ans,function(i){w<-which(x==i);if(any(w)){names(x)[w]}else{NA}})
                      }
                  }
             return(ans)
             }