R/wednesday.R

Defines functions is_wednesday

is_wednesday <- function(x, ...) {
  date <- Sys.Date()
  if(weekdays(date) == "Wednesday"){
    cat("It's Wednesday!")
  }else{cat("Nope! Try again another day!")}
}
pep93/wednesday.morning documentation built on Nov. 14, 2019, 12:16 a.m.