# NOT RUN {
# Typical use-case
# attach(asNamespace("grattan"))
z <- function(per = "year") 52 / validate_per(per, missing(per))
z() # message
z(per = "year") # same, no message
z(per = "fortnight") # in fortnights
z(per = "sidfh") # error
# }
# NOT RUN {
# }
Run the code above in your browser using DataCamp Workspace