Nothing
for (filename in c("lorem-ipsum.txt", "more-lorem-ipsum.txt")) {
filename <- here::here("inst", filename)
if (!file.exists(filename)) {
message("Creating ", basename(filename), ".")
cat(stringi::stri_rand_lipsum(12), sep = "\n\n", file = filename)
}
}
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.