#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(myposts$ti,myposts$nP)
plot(myposts$ti,myposts$nR)
