f <- system.file("extdata", package = "satres")
r <- sat_untarzip(f, only_show_files = TRUE)
f1 <- system.file("extdata", "satres.zip", package = "satres")
f2 <- system.file("extdata", "satres.tar", package = "satres")
r <- sat_untarzip(c(f1, f2), only_show_files = TRUE)
Run the code above in your browser using DataLab