library(tidyverse)
library(devtools)
mtcars_tbl <- mtcars %>%
mutate(name = rownames(.)) %>%
select(name, everything()) %>%
as_tibble()
devtools::use_data(mtcars_tbl, overwrite = TRUE)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.