# NOT RUN {
## auth
my_tok <- vkAuth(app_id = 1,
app_secret = "H2Pk8htyFD8024mZaPHm")
## Get a list of regions for Ukraine, because Ukraine id = 2
vk_regions <- vkGetDbRegions(country_id = 2,
access_token = my_tok$access_token)
##get a list of cities of Ukraine on request "Ode"
vk_regions_search <- vkGetDbRegions(country_id = 2,
q = "Ode",
access_token = my_tok$access_token)
# }
Run the code above in your browser using DataLab