library(magrittr)
x = c(TRUE, TRUE, FALSE, TRUE, TRUE, FALSE)
info = rle_true(x)
x_rev = rle_inverse(info)
all.equal(x, x_rev)
x_rev2 = rle_std(x) %>% rle_inverse()
all.equal(x, x_rev2)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.