files <- list.files(pattern = "README-")
file.copy(files, file.path("docs", files), overwrite = TRUE)
rm <- glue::glue("sed -i -e 's/!\\[\\]({file})//g' README.md",
file = files)
purrr::walk(rm, system)
file.remove(c(files, "README.md-e"))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.