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