adz_file <- system.file("example.adz", package = "adfExplorer")
adf_file <- tempfile(fileext = ".adf")
adz_file2 <- tempfile(fileext = ".adz")
decompress_adz(adz_file, adf_file)
compress_adf(adf_file, adz_file2)
Run the code above in your browser using DataLab