`lead()` and `lag()` aren't type stable on `x` 😱

[DavisVaughan]

library(dplyr)

x <- 1:5

typeof(lag(x, default = 0))
#> [1] "double"

^{Created on 2022-07-13 by the reprex package (v2.0.1)}