R/utils-date-processing.R

Defines functions ukc_date_processing

ukc_date_processing <- function(date) {
  if (is.null(date)) {
    date_query <- NULL
  } else {
    if (nchar(as.character(date)) > 7) {
      date <- substr(as.Date(date), 1, 7)
    }

    date_query <- paste0("&date=", date)
  }

  date_query
}
evanodell/ukpolice documentation built on Nov. 24, 2020, 8:06 a.m.