Running examples in 'tsibble-Ex.R' failed
The error most likely occurred in:

> ### Name: slide2
> ### Title: Sliding window calculation over multiple inputs simultaneously
> ### Aliases: slide2 slide2_dfr slide2_dfc pslide pslide_dfr pslide_dfc
> ###   slide2_lgl slide2_chr slide2_int slide2_dbl pslide_lgl pslide_chr
> ###   pslide_int pslide_dbl
> 
> ### ** Examples
> 
> x <- 1:5
> y <- 6:10
> z <- 11:15
> lst <- list(x = x, y = y, z = z)
> df <- as.data.frame(lst)
> slide2(x, y, sum, .size = 2)
[[1]]
[1] NA

[[2]]
[1] 16

[[3]]
[1] 20

[[4]]
[1] 24

[[5]]
[1] 28

> slide2(lst, lst, ~., .size = 2)
[[1]]
[1] NA

[[2]]
[[2]]$x
[1] 1 2 3 4 5

[[2]]$y
[1]  6  7  8  9 10


[[3]]
[[3]]$y
[1]  6  7  8  9 10

[[3]]$z
[1] 11 12 13 14 15


> slide2(df, df, ~., .size = 2)
[[1]]
[1] NA

[[2]]
[[2]]$x
[1] 1 2 3 4 5

[[2]]$y
[1]  6  7  8  9 10


[[3]]
[[3]]$y
[1]  6  7  8  9 10

[[3]]$z
[1] 11 12 13 14 15


> pslide(lst, ~., .size = 1)
[[1]]
[1] 1

[[2]]
[1] 2

[[3]]
[1] 3

[[4]]
[1] 4

[[5]]
[1] 5

> pslide(list(lst, lst), ~., .size = 2)
[[1]]
[1] NA

[[2]]
[[2]]$x
[1] 1 2 3 4 5

[[2]]$y
[1]  6  7  8  9 10


[[3]]
[[3]]$y
[1]  6  7  8  9 10

[[3]]$z
[1] 11 12 13 14 15


> 
> ###
> # row-wise sliding over data frame
> ###
> 
> library(tidyr)
> library(dplyr)

Attaching package: 'dplyr'

The following object is masked from 'package:tsibble':

    id

The following objects are masked from 'package:stats':

    filter, lag

The following objects are masked from 'package:base':

    intersect, setdiff, setequal, union

> my_df <- data.frame(
+   group = rep(letters[1:2], each = 8),
+   x = c(1:8, 8:1),
+   y = 2 * c(1:8, 8:1) + rnorm(16),
+   date = rep(as.Date("2016-06-01") + 0:7, 2)
+ )
> 
> slope <- function(...) {
+   data <- list(...)
+   fm <- lm(y ~ x, data = data)
+   coef(fm)[[2]]
+ }
> 
> my_df %>%
+   group_by(group) %>%
+   nest() %>%
+   mutate(slope = purrr::map(data, ~ pslide_dbl(., slope, .size = 2))) %>%
+   unnest(slope)
# A tibble: 16 x 3
# Groups:   group [2]
   group           data  slope
   <fct> <list<df[,3]>>  <dbl>
 1 a            [8 x 3] NA    
 2 a            [8 x 3]  2.81 
 3 a            [8 x 3]  0.981
 4 a            [8 x 3]  4.43 
 5 a            [8 x 3]  0.734
 6 a            [8 x 3]  0.850
 7 a            [8 x 3]  3.31 
 8 a            [8 x 3]  2.25 
 9 b            [8 x 3] NA    
10 b            [8 x 3]  2.88 
11 b            [8 x 3]  0.183
12 b            [8 x 3]  3.12 
13 b            [8 x 3]  3.01 
14 b            [8 x 3]  3.59 
15 b            [8 x 3] -1.34 
16 b            [8 x 3]  3.17 
> ## window over 2 months
> pedestrian %>%
+   filter(Sensor == "Southern Cross Station") %>%
+   index_by(yrmth = yearmonth(Date_Time)) %>%
+   nest() %>%
+   mutate(ma = slide_dbl(data, ~ mean(.$Count), .size = 2, .bind = TRUE))
Error: `abs(.size)` (2) must not be larger than the length (1) of the input.
Backtrace:
     x
  1. +-`%>%`(...)
  2. | +-base::withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  3. | \-base::eval(quote(`_fseq`(`_lhs`)), env, env)
  4. |   \-base::eval(quote(`_fseq`(`_lhs`)), env, env)
  5. |     \-`_fseq`(`_lhs`)
  6. |       \-magrittr::freduce(value, `_function_list`)
  7. |         +-base::withVisible(function_list[[k]](value))
  8. |         \-function_list[[k]](value)
  9. |           +-dplyr::mutate(...)
 10. |           \-dplyr:::mutate.tbl_df(...)
 11. |             \-dplyr:::mutate_impl(.data, dots, caller_env())
 12. \-tsibble::slide_dbl(data, ~mean(.$Count), .size = 2, .bind = TRUE)
 13.   \-tsibble::slider(.x, .size = .size, .step = .step, .bind = .bind)
Execution halted