demo/demo.R

In Rweibo: An interface to the Weibo open platform

require(Rweibo)

# register application
registerApp(app_name = "mytest", "GDdmIQH6jh", "MCD8BKwGdgPHv") 

# create OAuth object
roauth <- createOAuth("mytest", "rweibo") 

# return the latest public weibos
res1 <- statuses.public_timeline(roauth, count = 5)
res1

# return the latest weibos of the authenticating user and his friends
res2 <- statuses.friends_timeline(roauth, count = 5)
res2

# post a new weibo
res3 <- statuses.update(roauth, status = "hello word*!@#$&=+")

# repost a weibo
res4 <- statuses.repost(roauth, id = res3$idstr, status = "test repost")

# post a comment to a weibo
res5 <- comments.create(roauth, id = res4$idstr, comment = "test comment")

# search content
res6 <- web.search.content("Rweibo", page = 3, combinewith = NULL, sleepsd = 0)

res7 <- web.search.content("Rweibo", page = 5, combinewith = res6, sleepsd = 0)