Update order-by.R

I correct the following problem: attributes are lost when order_by is specified
````R
v<- c(1,1)
date <- c(1,2)
attr(v, "my_attribute") <- "This is a vector"
lag(v,1)
#> [1] NA  1
#> attr(,"my_attribute")
#> [1] "This is a vector"
lag(v,1, order_by = date)
#> [1] NA  1
````