простой проект R - PullRequest
       7

простой проект R

0 голосов
/ 27 марта 2012

Привет, я новичок в R и собираю два руководства из Интернета. Я выяснил, как автоматизировать скрипт для интеллектуального анализа данных, но вместо добавления данных при каждом запуске кода перезаписывается , Я хотел бы, чтобы это было добавлено, может любой направить меня в правильном направлении.

вот скрипт как таковой

# loading the package is required once each session
require(XML)

# initialize a storage variable for Twitter tweets
mydata.vectors <- character(0)

# paginate to get more tweets
for (page in c(1:15))
{
    # search parameter
    twitter_q <- URLencode('#google OR #apple')
    # construct a URL
    twitter_url = paste('http://search.twitter.com/search.atom?q=',twitter_q,'&rpp=100&page=', page, sep='')
    # fetch remote URL and parse
    mydata.xml <- xmlParseDoc(twitter_url, asText=F)
    # extract the titles
    mydata.vector <- xpathSApply(mydata.xml, '//s:entry/s:title', xmlValue, namespaces =c('s'='http://www.w3.org/2005/Atom'))
    # aggregate new tweets with previous tweets
    mydata.vectors <- c(mydata.vector, mydata.vectors)
}

# how many tweets did we get?
length(mydata.vectors)

1 Ответ

2 голосов
/ 27 марта 2012

Я думаю, что вы хотите сохранить результаты на диск между запусками.Итак, что-то вроде этого в начале:

if (!file.exists('path/to/file'))
    mydata.vectors <- character(0)
else
    load('path/to/file')

И как-то так в конце:

save(mydata.vectors, file='path/to/file')

Нужно сделать свое дело.Конечно, вы можете получить более изощренные типы файлов сохранения и т. Д.

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...