R语言--批量解压文件--示例

发表于 更新于 分类于 阅读次数： 本文字数： 91 阅读时长 ≈ 1 分钟

目的

用R语言批量解压文件到指定目录

实例

1
2
3
4
5
6
7
8
9
10
11
12
library(tidyverse)
# 工作文件夹
setwd("I:\\果蝇锻炼\\201803-不同浓度枸杞攀爬拍照")

# 压缩文件列表
filelist <- dir()
ziplist <-  filelist[grepl("zip",filelist)]

# 循环解压到指定文件夹
for (i in 1:length(ziplist)) {
  unzip(ziplist[i], exdir = paste0("E:\\Desktop\\Fly-climb\\",substr(ziplist[i],1,str_length(ziplist[i])-4)))
  }