Nothing
## ---- eval=FALSE, echo=TRUE---------------------------------------------------
# library(rfigshare)
# article_id <- 3761562
# deposit_details <- fs_details(article_id)
# deposit_details$title
## ---- eval=FALSE, echo=TRUE---------------------------------------------------
# "OLIdata_YYYY-MM-DD.txt"
## ---- eval=FALSE, echo=TRUE---------------------------------------------------
# library(dplyr)
# deposit_files <- unlist(deposit_details$files)
# deposit_files <- data.frame(split(deposit_files, names(deposit_files)),stringsAsFactors = F)
# file_id <- deposit_files %>%
# filter(grepl("^OLIdata_", name)) %>%
# select(id) %>%
# .[[1]]
## ---- eval=FALSE, echo=TRUE---------------------------------------------------
# fs_delete(article_id, file_id)
## ---- eval=FALSE, echo=TRUE---------------------------------------------------
# # This file does not exist in these training materials.
# fs_upload(article_id, paste0("OLIdata_", as.Date(Sys.time())))
## ---- eval=FALSE, echo=TRUE---------------------------------------------------
# fs_make_public(article_id)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.