tsibble-to-slider.R

.R

x <- c(1, 2, 3, 4, 5)

# partial = FALSE -> only "complete" windows are allowed
# 
# `size = 2, align = right` translates to:
# "the current value, and one before it"
# 
tsibble::slide(x, identity, .size = 2, .partial = FALSE, .align = "right")
#> [[1]]
#> [1] NA
#> 
#> [[2]]
#> [1] 1 2
#> 
#> [[3]]
#> [1] 2 3
#> 
#> [[4]]
#> [1] 3 4
#> 
#> [[5]]
#> [1] 4 5

# complete = TRUE -> only "complete" windows are allowed
#
# `before = 1` translates to:
# "the current value, and one before it"
slider::slide(x, identity, .before = 1, .complete = TRUE)
#> [[1]]
#> NULL
#> 
#> [[2]]
#> [1] 1 2
#> 
#> [[3]]
#> [1] 2 3
#> 
#> [[4]]
#> [1] 3 4
#> 
#> [[5]]
#> [1] 4 5