サイズの大きいサンプルデータをゲットする

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)
    }