# NOT RUN {
## auth
my_tok <- vkAuth(app_id = 1,
client_secret = "H2Pk8htyFD8024mZaPHm")
# list of subjects
vk_ad_categories <- vkGetAdCategories(access_token = my_tok$access_token)
# }
Run the code above in your browser using DataLab