saymrwulf/prophet
1
0
Fork 0
mirror of https://github.com/saymrwulf/prophet.git synced 2026-06-06 00:03:25 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Fix R handling of dates to work for tsibble

Browse source
This commit is contained in:
Ben Letham 2021-03-29 15:06:09 -07:00
parent 94e5d2e80a
commit 3f4edef7f5
1 changed files with 7 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
R/R/prophet.R
View file

@ -260,17 +260,19 @@ set_date <- function(ds) {
ds <- as.character(ds)
}
# Type should be either character, or an object compatible with lubridate
if (is.character(ds)) {
# If a datetime, strip timezone and replace with GMT.
if (lubridate::is.instant(ds)) {
ds <- as.POSIXct(lubridate::force_tz(ds, "GMT"), tz = "GMT")
}
else {
# Assume it can be coerced into POSIXct
if (min(nchar(ds), na.rm=TRUE) < 12) {
ds <- as.POSIXct(ds, format = "%Y-%m-%d", tz = "GMT")
} else {
ds <- as.POSIXct(ds, format = "%Y-%m-%d %H:%M:%S", tz = "GMT")
}
} else {
# Strip timezone and replace with GMT
ds <- as.POSIXct(lubridate::force_tz(ds, "GMT"), tz = "GMT")
}
attr(ds, "tzone") <- "GMT"
return(ds)
}