# 2021.12.22
# パッケージのインストール(Japanを選択)、初回のみinstall.packages("tidyverse")
# パッケージの読み込みlibrary(tidyverse) # walkを使うため
# zipファイルをまとめて解凍 ################################################# 作業フォルダの指定(zipファイルが入っているフォルダ)setwd("C:/Users/NK/Research/Moni1000/Site/forest/unzip_01")
# zipファイル名を抽出file_names <- list.files(pattern=".zip", full.names=F)
# zipファイルが入っているフォルダを指定zip_file <- "C:/Users/NK/Research/Moni1000/Site/forest/unzip_01/"
# 解凍したファイルを保存するフォルダを指定zip_dir <- "C:/Users/NK/Research/Moni1000/Site/forest/unzip_02/"
# 複数のzipファイルをまとめて解凍(データ次第で時間がかかります)walk(file_names, ~ unzip(zipfile=str_c(zip_file, .x), exdir=str_c(zip_dir, .x)))
# 解凍した複数のフォルダの中にあるファイルを、ひとつのフォルダに移動させる ############## 作業フォルダを移動setwd("C:/Users/NK/Research/Moni1000/Site/forest/unzip_02")
# フォルダ内のzipファイル名を抽出file_names <- list.files(recursive=T, include.dirs=F, full.names=F)
# ファイル名を抽出file_names_dir <- gsub(".*\\/","",file_names)
# ファイルが入っているフォルダを指定zip_file <- "C:/Users/NK/Research/Moni1000/Site/forest/unzip_02/"
# フォルダを作成し、移動先に指定dir.create("C:/Users/NK/Research/Moni1000/Site/forest/unzip_03/")zip_dir <- "C:/Users/NK/Research/Moni1000/Site/forest/unzip_03/"
# ファイルを移動(コピペではなく移動のため、元のフォルダからはファイル消えます)file.rename(from=str_c(zip_file, file_names), to=str_c(zip_dir, file_names_dir))