# NOT RUN {
## auth
my_tok <- vkAuth(app_id = 1, app_secret = "H2Pk8htyFD8024mZaPHm")
## camp list
camp <- vkGetAdCampaigns(account_id = 1,
access_token = my_tok$access_token)
## Get statistics on advertising campaigns
post_reach <- vkGetAdPostsReach(account_id = 1600134264,
ids_type = "campaign",
ids = camp$id,
access_token = my_tok$access_token)
# }
Run the code above in your browser using DataLab