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)
}

Try the DSSAT package in your browser

Any scripts or data that you put into this service are public.

DSSAT documentation built on Nov. 9, 2023, 1:08 a.m.