myscratchpad

# テスト用データフレーム。組み込みデータセットから
dat.arq <- airquality
dat.iris <- iris
dat.atn <- attenu
dat.or <- Orange # classが複数あるデータフレーム

# 作業スペース内のオブジェクトをclassつきでリストにする
objlist <- sapply(ls(), function(x) class(get(x)))## classが各1つずつのときはベクトル、複数もつものがあるときはリストで格納
objlist
# データフレームのオブジェクトだけ名前をとりだす
dfobjname <- names(objlist)[c(grep("data.frame", objlist))]
dfobjname
# データフレームのオブジェクトだけまとめる
dflist <- list()
for(i in 1:length(dfobjname)) {
  dflist[[i]] <- get(dfobjname[i])
}
names(dflist) <- dfobjname # リストの要素名をデータフレーム名にする
dflist