# NOT RUN {
ws <- windowOrderBy("key1", "key2")
df1 <- select(df, over(lead("value", 1), ws))
ws <- windowOrderBy(df$key1, df$key2)
df1 <- select(df, over(lead("value", 1), ws))
# }
Run the code above in your browser using DataCamp Workspace