knitr::opts_chunk$set(message = FALSE) library(tidydatatutor)
library(dplyr) mtcars %>% select(mpg, cyl, hp) %>% group_by(cyl) %>% summarise(mean(hp))
See this pipeline in Tidy Data Tutor
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.