如何在 r 中一次解压多个 tar.gz 文件

Question

I have 11 *.tar.gz file in the directory. I tried this

untar("./Extract_data/AQS.tar.gz", exdir = "./Extract_data")

For each file I have to write this. Is there any way I can untar all the files tar.gz in a directory with one command.

Answer 1

I figured it out.

file_list<- list.files(  , pattern = "*.tar.gz", full.names = TRUE)
library(plyr)
ldply(.data = file_list, .fun = untar, exdir = "./untar_data")

Answer 2

Perhaps something like this:

list_of_tar_files <- fs::dir_ls(path = "./Extract_data/", glob = "*.tar.gz")
lapply(list_of_tar_files, untar)