使用R反转指令

Question

是否可以撤销以下说明？

PSG.list <- searchTwitter('#PSG', n=2000, cainfo="cacert.pem")  
PSG.df = twListToDF(PSG.list) 
write.csv(PSG.df, file='CSV/Fr/PSGTweets.csv', row.names=F)

我在保存csv文件后删除了变量PSG.list，但现在我需要它，因为它是函数中的参数。

谢谢。

Answer 1

这个怎么样？

dat <- read.csv('CSV/Fr/PSGTweets.csv')

dat$text <- as.character(dat$text)
dat$favoriteCount <- as.numeric(dat$favoriteCount)
dat$replyToSN <- as.character(dat$replyToSN)
dat$created <- as.POSIXct(dat$created)
dat$replyToSID <- as.character(dat$replyToSID)
dat$id <- as.character(dat$id)
dat$replyToUID <- as.character(dat$replyToUID)
dat$statusSource <- as.character(dat$statusSource)
dat$screenName <- as.character(dat$screenName)
dat$retweetCount <- as.numeric(dat$retweetCount)
dat$longitude <- as.character(dat$longitude)
dat$latitude <- as.character(dat$latitude)

n<-nrow(dat)
PSG.list=list() 
for (i in 1:n){ 
  PSG.list[i] = statusFactory$new(dat[i,])
}