# Read then save data
pals <- read.csv("data-raw/bitpals.csv", as.is=T) %>%
filter(!is.na(order))
# Build data
usethis::use_data(pals, overwrite=T, internal=T)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.