library(readr)
library(devtools)
read_bots_experiment <- function(stem) {
filename <- paste0(stem, ".csv")
csv <- file.path("data-raw/bots", filename)
readr::read_csv(csv)
}
BotsPlayers <- read_bots_experiment("players")
use_data(BotsPlayers, overwrite = TRUE)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.