R/vkGetToken.R

Defines functions vkGetToken

Documented in vkGetToken

vkGetToken <-
function(app_id = getOption("rvkstat.app_id")) {
tokenURL <- paste0("https://oauth.vk.com/authorize?client_id=",app_id,"&display=page&redirect_uri=https://selesnow.github.io/rvkstat/getCode/get_token.html&scope=offline,groups,ads,stats&response_type=token&v=5.68")
browseURL(tokenURL)
vkToken <- readline("Your vk token from URL parameter access_token: ")
return(vkToken)
}
selesnow/rvkstat documentation built on Sept. 2, 2022, 12:41 p.m.