Update tidyr call to work with dplyr-0.6.0-rc

This commit is contained in:
Ben Letham 2017-04-18 16:18:31 -07:00
parent 46d1f7b24c
commit 2bb5827303

View file

@ -751,7 +751,7 @@ predict_seasonal_components <- function(m, df) {
upper = apply(comp, 1, stats::quantile, upper.p,
na.rm = TRUE))
}) %>%
tidyr::gather(stat, value, c(mean, lower, upper)) %>%
tidyr::gather(stat, value, mean, lower, upper) %>%
dplyr::mutate(stat = ifelse(stat == 'mean', '', paste0('_', stat))) %>%
tidyr::unite(component, component, stat, sep="") %>%
tidyr::spread(component, value) %>%