R/write_POSIXct.R

Defines functions write_POSIXct

write_POSIXct <- function(vr_val, width){
  if(width<7){
    vr_out <- format(vr_val,'%y%j')
  }else{
    vr_out <- format(vr_val,'%Y%j')
  }
  return(vr_out)
}
palderman/DSSAT documentation built on Feb. 24, 2024, 4:38 a.m.