R/start_of_this_year.R

In kristian-bak/betting: An Amazing Shiny App

Defines functions start_of_this_year

Documented in start_of_this_year

#' Start of this year
#' 
start_of_this_year <- function() {
  
  Sys.Date() %>% 
    substring(1, 4) %>% 
    paste0("-01-01") %>% 
    as.Date()
  
}