From cded5c41b07c2449120d9c8c71aeaa90e5de8284 Mon Sep 17 00:00:00 2001 From: Hadley Wickham Date: Tue, 28 Apr 2020 17:51:36 -0500 Subject: [PATCH] Fix failure with dplyr 1.0.0 I'm not sure why a data frame ends up with names and a tibble does not, but it doesn't seem like an important enough problem to investigate in detail, and this is a simple fix. --- R/tests/testthat/test_prophet.R | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/R/tests/testthat/test_prophet.R b/R/tests/testthat/test_prophet.R index e25e6de..a371a78 100644 --- a/R/tests/testthat/test_prophet.R +++ b/R/tests/testthat/test_prophet.R @@ -6,12 +6,12 @@ library(prophet) context("Prophet tests") -DATA <- read.csv('data.csv') +DATA <- read.csv(test_path('data.csv')) N <- nrow(DATA) train <- DATA[1:floor(N / 2), ] future <- DATA[(ceiling(N/2) + 1):N, ] -DATA2 <- read.csv('data2.csv') +DATA2 <- read.csv(test_path('data2.csv')) DATA$ds <- prophet:::set_date(DATA$ds) DATA2$ds <- prophet:::set_date(DATA2$ds) @@ -623,6 +623,7 @@ test_that("conditional_custom_seasonality", { out <- prophet:::make_all_seasonality_features(m, df) #Confirm that only values without is_conditional_week has non zero entries nonzero.weekly = out$seasonal.features %>% + dplyr::as_tibble() %>% dplyr::select(dplyr::starts_with('conditional_weekly')) %>% dplyr::mutate_all(~ . != 0) %>% dplyr::mutate(nonzero = rowSums(. != 0) > 0) %>%