## XML Paket installieren
install.packages("XML", dependencies = TRUE)
## Paket laden
library(XML)

## Vektor erzeugen, in dem geerntete Tweets gespeichert werden
req.tweets <- character(0)

## Abfrage erzeugen
   
# Suchbegriff(e)
twitter_q <- URLencode('rstats')

# URL für Abfrage erzeugen
twitter_url = paste('http://search.twitter.com/search.atom?q=',twitter_q,'&rpp=100&1=', 1, sep='')

# Übergabe
mydata.xml <- xmlParseDoc(twitter_url, asText=F)

# Titel extrahieren
req.tweets <- xpathSApply(mydata.xml, '//s:entry/s:title', xmlValue, namespaces =c('s'='http://www.w3.org/2005/Atom'))

# Anzahl der geernteten Tweets
length(req.tweets)

# Die ersten 10 Tweets
req.tweets[1:10]

## Siehe auch den Blog von Heuristic Andrew
## http://heuristically.wordpress.com/2011/04/08/text-data-mining-twitter-r/