R/WGEN_misc.R

In MartinHoldrege/precipr: Manipulating and examining precipitation intensity

# misc functions ----------------------------------------------------------

week52 <- function(date) {
  # make last week of year 'long' so don't have short partial week
  # that can't estimate parameters for
  week <- lubridate::week(date)
  week <- ifelse(week ==53, 52, week)
  week
}




#' Pipe
#'
#' Re-exporting the magrittr, \code{\%>\%}. I do this
#' because the pipe is used in code examples in the package
#'
#' @importFrom magrittr %>%
#' @name %>%
#' @rdname pipe
#' @export
#' @param lhs,rhs see magrittr documentation
NULL