由于内存限制,我试图自动化我的计算过程,但是我在第9行中遇到错误,同时将文件保存在物理内存中。
我已经搜索了上面的查询,但没有运气。我尝试过'得到'功能也可以,但它会在屏幕上打印整个对象。
m <- seq(0,nrow(Q_text),250)
m <- c(m,nrow(Q_text))
for(i in 1:(length(m)-1))
{
print(paste("processing form ",m[i]+1," to ",m[i+1]))
data1 <- Q_text[(m[i]+1):m[i+1]]
assign(paste0("sentiment",i),calculate_sentiment(data1$feedback))
#### Below line not working
save(paste0("sentiment",i),file=paste0("sentiment_Q",i,".Rda"))
rm(data1,sentiment_Q_Inflight)
gc()
}
获得以下错误:
Error in save(paste0("sentiment", i), file = paste0("sentiment_Q", :
object ‘paste0("sentiment", i)’ not found