# NOT RUN {
## auth
my_tok <- vkAuth(app_id = 1,
app_secret = "H2Pk8htyFD8024mZaPHm")
## Get the list of community messages
my_vk_wall <- vkGetUserWall(user_id = -111111,
access_token = my_tok$access_token)
## Get sub-stats for the latest 300 community entries
post_reach <- vkGetGroupStatPostReach(owner_id = -2222222,
post_ids = my_vk_wall$id,
access_token = my_tok$access_token)
# }
Run the code above in your browser using DataLab