R/dateutil.R

Defines functions as_timestamp

# Return a POSIXct timestamp given a string and a format.
# TODO: Allow setting time zone.
as_timestamp <- function(x, format, tz = "GMT") {
  if (length(x) == 0) {
    return(structure(numeric(0), class = c("POSIXct", "POSIXt")))
  }
  lookup <- c(
    "iso8601" = "%Y-%m-%dT%H:%M:%S",
    "rfc822" = "%a, %d %b %Y %H:%M:%S"
  )
  result <- as.POSIXct(x, tz = tz, format = lookup[format])
  return(result)
}

Try the paws.common package in your browser

Any scripts or data that you put into this service are public.

paws.common documentation built on March 26, 2022, 5:05 p.m.