#install.packages("plusser")
library(plusser)
help(plusser)
## starting httpd help server ... done
library(RCurl)
## Loading required package: bitops
options(RCurlOptions = list(cainfo = system.file("CurlSSL", "cacert.pem", package = "RCurl")))
setAPIkey('AIzaSyBtYqDsAtzp4FOS7FGbrc_n6mD-uJIOvcQ')
## Warning: Your API key has been URL encoded. This should not be neccessary.
## Check if you used the right key.
## [1] TRUE
myProfile=harvestProfile("+AjayOhri", parseFun = parseProfile)
str(myProfile)
## 'data.frame':    1 obs. of  20 variables:
##  $ id          : chr "116302364907696741272"
##  $ sex         : logi NA
##  $ ln          : chr "Ohri"
##  $ fn          : chr "Ajay"
##  $ verified    : logi FALSE
##  $ website     : logi NA
##  $ ageMin      : logi NA
##  $ ageMax      : logi NA
##  $ bday        : logi NA
##  $ nCircled    : num 1309
##  $ currentLoc  : logi NA
##  $ lang        : logi NA
##  $ p1count     : logi NA
##  $ relationship: logi NA
##  $ bio         : logi NA
##  $ tagline     : chr "dreaming of quantum sheep"
##  $ type        : chr "person"
##  $ brag        : logi NA
##  $ occ         : logi NA
##  $ skills      : logi NA
myposts=harvestPage("+AjayOhri", parseFun = parsePost, results = 1, nextToken = NULL, cr = 1)
str(myposts)
## 'data.frame':    100 obs. of  10 variables:
##  $ ti : POSIXct, format: "2014-06-18 04:41:24" "2014-06-14 14:47:14" ...
##  $ age: num  8.12 11.7 44.58 45.63 46.62 ...
##  $ id : Factor w/ 100 levels "z13dyn0hgrrgft5ci22nwf0zmof4gfi2j",..: 1 2 3 4 5 6 7 8 9 10 ...
##  $ au : Factor w/ 1 level "116302364907696741272": 1 1 1 1 1 1 1 1 1 1 ...
##  $ ve : Factor w/ 2 levels "post","share": 1 1 2 2 1 1 1 1 1 1 ...
##  $ nC : num  0 2 1 3 0 3 3 1 0 0 ...
##  $ nP : num  6 9 15 90 7 13 15 9 0 8 ...
##  $ nR : num  1 2 1 11 4 4 11 1 1 3 ...
##  $ at : chr  "article" "article" "album" "photo" ...
##  $ msg: Factor w/ 48 levels "","learning and teaching R  #rstats  <U+FEFF>""| __truncated__,..: 1 2 3 4 1 1 1 5 1 1 ...
plot(myposts$ti,myposts$nC)

plot of chunk unnamed-chunk-1

plot(myposts$ti,myposts$nP)

plot of chunk unnamed-chunk-1

plot(myposts$ti,myposts$nR)

plot of chunk unnamed-chunk-1