R/decyear2date.R

In wql: Exploring Water Quality Monitoring Data

Defines functions decyear2date

Documented in decyear2date

#' decyear2date
#'
#' @param x date
#' @author 
#' Alan Jassby, James Cloern
#' @export
decyear2date <- 
function(x) {
	yr <- floor(x)
	len <- ifelse(leapYear(yr), 366, 365)
	julday <- floor((x - yr) * len)
	as.Date(julday, origin = as.Date(paste(yr, 1, 1, sep = '-')))
}

Try the wql package in your browser