Running examples in ‘recipes-Ex.R’ failed
The error most likely occurred in:

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: step_profile
> ### Title: Create a Profiling Version of a Data Set
> ### Aliases: step_profile tidy.step_profile
> ### Keywords: datagen
> 
> ### ** Examples
> 
> data(okc)
> 
> # Setup a grid across date but keep the other values fixed
> recipe(~ diet + height + date, data = okc) %>%
+   step_profile(-date, profile = vars(date)) %>%
+   prep(training = okc, retain = TRUE) %>%
+   juice
# A tibble: 100 x 3
   diet     height date      
   <fct>     <dbl> <date>    
 1 anything     68 2011-06-27
 2 anything     68 2011-06-30
 3 anything     68 2011-07-04
 4 anything     68 2011-07-08
 5 anything     68 2011-07-11
 6 anything     68 2011-07-15
 7 anything     68 2011-07-19
 8 anything     68 2011-07-23
 9 anything     68 2011-07-26
10 anything     68 2011-07-30
# … with 90 more rows
> 
> 
> ##########
> 
> # An *additive* model; not for use when there are interactions or
> # other functional relationships between predictors
> 
> lin_mod <- lm(mpg ~ poly(disp, 2) + cyl + hp, data = mtcars)
> 
> # Show the difference in the two grid creation methods
> 
> disp_pctl <- recipe(~ disp + cyl + hp, data = mtcars) %>%
+   step_profile(-disp, profile = vars(disp)) %>%
+   prep(training = mtcars, retain = TRUE)
> 
> disp_grid <- recipe(~ disp + cyl + hp, data = mtcars) %>%
+   step_profile(
+     -disp,
+     profile = vars(disp),
+     grid = list(pctl = FALSE, len = 100)
+   ) %>%
+   prep(training = mtcars, retain = TRUE)
> 
> grid_data <- juice(disp_grid)
> grid_data <- grid_data %>%
+   mutate(pred = predict(lin_mod, grid_data),
+          method = "grid")
> 
> pctl_data <- juice(disp_pctl)
> pctl_data <- pctl_data %>%
+   mutate(pred = predict(lin_mod, pctl_data),
+          method = "percentile")
> 
> plot_data <- bind_rows(grid_data, pctl_data)
> 
> library(ggplot2)
> 
> ggplot(plot_data, aes(x = disp, y = pred)) +
+   geom_point(alpha = .5, cex = 1) +
+   facet_wrap(~ method)
Error in Summary.unit(c(4.4, 4.4), na.rm = FALSE) : 
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
Calls: <Anonymous> ... render_strips -> build_strip -> ggstrip -> Summary.unit
Execution halted