find_spacings = function(streak_data, value = 0) {
# input is a data frame
runs <- rle(streak_data$Outcome)
data.frame(Spacing =
runs$lengths[runs$values == value]) %>%
mutate(N = row_number()) %>%
select(N, Spacing)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.