# nocov start
update_readstat <- function(branch = "master") {
tmp <- tempfile()
utils::download.file(
paste0("https://github.com/WizardMac/ReadStat/archive/", branch, ".zip"), tmp,
quiet = TRUE
)
base <- fs::path_common(utils::unzip(tmp, exdir = tempdir()))
in_dir <- fs::path(base, "src")
out_dir <- fs::path("src", "readstat")
fs::dir_delete(out_dir)
fs::dir_copy(in_dir, out_dir)
fs::dir_delete(fs::path(out_dir, c("bin", "fuzz", "test")))
fs::file_copy(fs::path(base, "LICENSE"), out_dir)
fs::file_copy(fs::path(base, "NEWS"), out_dir)
invisible()
}
# nocov end
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.