write_card_price_history <- function(card_name, set, directory) {
dat <- get_card_price_history(card_name = card_name, set = set)
full_directory <- paste0(directory,str_replace_all(sanitize_name(set),"\\+","_"),"/")
full_file_path <- paste0(full_directory,
sanitize_name(card_name),
".tsv")
if (!file.exists(full_directory)) dir.create(full_directory)
write_tsv(dat, full_file_path)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.