data_frame <- function(){ l<-ls(env=.GlobalEnv) r<-c() for(i in l){ if(eval(parse(text=sprintf("is.data.frame(%s)",i)))){r<-c(r,i)} } return(r) }