R/helpers.R

In dantonnoriega/sppedr: Imports, cleans, and combines different data sources for Chicago Public Schools and Police Departments

#' fast IDate function
#' @param x character string
#' @param format date/time parsing format
#' @export
fast.as.IDate <- function(x, format = "%Y-%m-%d", ...) data.table::as.IDate(lubridate::fast_strptime(x, format = format, ...))

#' fast ITime function
#' @param x character string
#' @param format date/time parsing format
#' @export
fast.as.ITime <- function(x, format = "%H:%M:%S", ...) data.table::as.ITime(lubridate::fast_strptime(x, format = format, ...))

#' fast Date function
#' @param x character string
#' @param format date/time parsing format
#' @export
fast.as.Date <- function(x, format = "%Y-%m-%d", ...) as.Date(lubridate::fast_strptime(x, format = format, ...))