スポンサーサイト

上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。

Rを使ったサブフォルダ内のファイルの再帰的な削除

list.files(recursive=T, include.dirs=T) # カレントディレクトリ以下のファイルのリストを再帰的に取得する
list.files(path, recursive=T, include.dirs=T) # pathで指定されるディレクトリ以下のファイルのリストを再帰的に取得する

R:list.filesによるファイルパス取得あれこれ。

files <- list.files(recursive=T, include.dirs=T)

# ファイル名に"latticedata"と"000.dat"を両方含むファイルを取得する
files.res <- files[intersect(grep("latticedata", files), grep("000.dat", files))]
# "latticedata"を含むファイルを取得する
files.first <- files[grep("latticedata", files)]
# ファイル名に"latticedata"は含むが"000.dat"は含まないファイルを取得する
files.del <- setdiff(files.first, files.res)
file.remove(files.del)

files.res <- files[intersect(grep("img", files), grep("000.bmp", files))]
# "latticedata"を含むファイルを取得する
files.first <- files[union(grep("img", files), grep(".bmp", files))]
# ファイル名に"latticedata"は含むが"000.dat"は含まないファイルを取得する
files.del <- setdiff(files.first, files.res)
file.remove(files.del)
スポンサーサイト
Profile

zoa

Author:zoa
Metropolis (1927)

Calendar
11 | 2014/12 | 01
- 1 2 3 4 5 6
7 8 9 10 11 12 13
14 15 16 17 18 19 20
21 22 23 24 25 26 27
28 29 30 31 - - -
Labels
Admin
Previous Posts
Recent Comments
Recent Trackback
Archive
このページのトップへ
上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。