我有一个将数据帧保存为指针的函数。这节省了执行大型数据帧的时间和空间。
newPointer=function(inputValue){
object=new.env(parent=globalenv())
object$value=inputValue
class(object)='pointer'
return(object)
}
df1<-newPointer(data.frame(col1=c(1:10),col2=c(1:10)))
df2<-newPointer(data.frame(col1=c(11:20),col2=c(11:20)))
所以要检索我必须键入的值
`dataframe1<-df1$value`
我有许多这样的数据帧,模式为“dataframe”。 我有这个命令将数据帧按模式组合成一个列表:
datalist <- lapply(ls(pattern="dataframe"), function(x) get(x))
但这会给出指针列表
我尝试得到(x $ value)。给出错误 -
datalist <- lapply(ls(pattern="dataframe"), function(x) get(x$value))
Error in x$value : $ operator is invalid for atomic vectors
我的最终目标是使用
将所有数据帧附加到一个数据框中big_data = bind_rows(datalist)
如何使用laaply()获取数据帧列表而不是指针,或者有更好的方法来组合数据帧(不是指针)并一起追加。