Convert manual changepoints to POSIXct before validation

This commit is contained in:
Ben Letham 2017-07-11 11:10:19 -07:00
parent 093b4b7eec
commit 85220328bb

View file

@ -313,6 +313,7 @@ setup_dataframe <- function(m, df, initialize_scales = FALSE) {
set_changepoints <- function(m) {
if (!is.null(m$changepoints)) {
if (length(m$changepoints) > 0) {
m$changepoints <- set_date(m$changepoints)
if (min(m$changepoints) < min(m$history$ds)
|| max(m$changepoints) > max(m$history$ds)) {
stop('Changepoints must fall within training data.')
@ -331,7 +332,6 @@ set_changepoints <- function(m) {
}
}
if (length(m$changepoints) > 0) {
m$changepoints <- set_date(m$changepoints)
m$changepoints.t <- sort(
time_diff(m$changepoints, m$start, "secs")) / m$t.scale
} else {