R/lastepiweek.R

In Opportunity-Estimator-EpiSurveillance/leos.opportunity.estimator: Notification Opportunity Estimator

#' @include episem.R
NULL

#' Calculate number of year's last epidemiological week using Brazilian standard.
#' @name lastepiweek
#'
#' @param ano Year
#' @keywords export
lastepiweek <- function(ano){

  # Calcula o valor da última semana do ano

  diafim <- as.Date(paste(ano,'12','31',sep='-')) #Ultimo dia do ano
  diasem <- as.numeric(format(diafim,"%w"))       #dia semana do ultimo dia

  ewd <- ifelse (diasem < 3, diafim - diasem - 1, diafim + 6 - diasem) # Obtém a data do último sábado
  ewd <- as.Date(ewd,origin = '1970-01-01') # ultima semana epi do ano

  episem(ewd,retorna='W')
}