saymrwulf/prophet
1
0
Fork 0
mirror of https://github.com/saymrwulf/prophet.git synced 2026-07-07 17:15:37 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

R set_date robust to NAs

Browse source
This commit is contained in:
Ben Letham 2018-02-01 17:21:55 -08:00
parent 967a17bb4e
commit f54d3b50ae
1 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
R/R/prophet.R
View file

@ -274,7 +274,7 @@ set_date <- function(ds = NULL, tz = "GMT") {
ds <- as.character(ds)
}
if (min(nchar(ds)) < 12) {
if (min(nchar(ds), na.rm=TRUE) < 12) {
ds <- as.POSIXct(ds, format = "%Y-%m-%d", tz = tz)
} else {
ds <- as.POSIXct(ds, format = "%Y-%m-%d %H:%M:%S", tz = tz)
@ -321,8 +321,9 @@ setup_dataframe <- function(m, df, initialize_scales = FALSE) {
}
df$ds <- set_date(df$ds)
if (anyNA(df$ds)) {
stop(paste('Unable to parse date format in column ds. Convert to date ',
'format. Either %Y-%m-%d or %Y-%m-%d %H:%M:%S'))
stop(paste('Unable to parse date format in column ds. Convert to date',
'format (%Y-%m-%d or %Y-%m-%d %H:%M:%S) and check that there',
'are no NAs.'))
}
for (name in names(m$extra_regressors)) {
if (!(name %in% colnames(df))) {