R/update.R

In hadley/haven: Import and Export 'SPSS', 'Stata' and 'SAS' Files

# 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