サイズの大きいサンプルデータをゲットする
R使っててとりあえずサイズの大きいサンプルデータが欲しかったので関数を書いた。
なお今ロードしているパッケージの範囲内。
インストールしているパッケージ全てに拡張したい気もするけど当面はこれでいいや。
getDatalist <- function(){ datalist <- data.frame(data()[3], stringsAsFactors=FALSE)[[3]] datalist <- datalist[-grep("\\(", datalist, perl = TRUE)] data(list = datalist) res <- NULL for(dname in datalist){ resdata <- eval(parse(text = dname)) res0 <- data.frame(name = dname, size = ifelse(is.null(nrow(resdata)), length(resdata), nrow(resdata)), class = class(resdata), stringsAsFactors = FALSE) res <- rbind(res, res0) } res <- res[order(res$size), ] return(res) }