library(dplyr)
mt <- mtcars %>%
as_tibble() %>%
select(mpg, cyl, hp) %>%
group_by(cyl) %>%
slice(1:2) %>%
ungroup()
mt %>%
mutate(cyl = "A")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.