#
# parse_date <- function(x, format="", tz="UTC"){
# out <- lapply(x, parse_one_date, format = format, tz = tz)
# do.call(c, out)
# }
parse_date <- function(x, format="", tz="UTC"){
if(is.factor(x))
x <- as.character(x)
if(any(c("Date") %in% class(x))){
return(x)
}
if(c("POSIXct") %in% class(x))
return(as.Date(x))
if(is.character(x)){
out <- readr::parse_date(x, format=format, locale = readr::locale(tz = tz))
readr::stop_for_problems(out)
return(out)
}
stop("Unexpected type for x")
}
# parse_time <- function(x, format="", tz="UTC"){
# out <- lapply(x, parse_one_time, format = format, tz = tz)
# do.call(c, out)
# }
parse_time <- function(x, format="", tz="UTC"){
if(is.factor(x))
x <- as.character(x)
if("difftime" %in% class(x))
return(x)
if(is.character(x)){
out <- readr::parse_time(x, format=format, locale = readr::locale(tz = tz))
readr::stop_for_problems(out)
return(out)
}
stop("Unexpected type for x")
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.