From 468bfc1e53956e3c6e547f4ccb95a8d6a44b733d Mon Sep 17 00:00:00 2001 From: Alexey Seleznev Date: Fri, 15 Jan 2021 12:12:01 +0200 Subject: [PATCH] =?UTF-8?q?=D0=A3=D0=B4=D0=B0=D0=BB=D0=B8=D0=BB=20=D1=81?= =?UTF-8?q?=D1=82=D0=B0=D1=80=D1=8B=D0=B5=20=D0=BD=D0=B5=D0=BD=D1=83=D0=B6?= =?UTF-8?q?=D0=BD=D1=8B=D0=B5=20=D0=BF=D0=B0=D0=BF=D0=BA=D0=B8?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- .Rbuildignore | 2 + .gitignore | 4 + R/vkGetUserDialogs.R | 68 -- en/DESCRIPTION | 11 - en/Dictionary/ad.age_restriction.csv | 7 - en/Dictionary/ad.approveds.csv | 5 - en/Dictionary/ad.cost_type.csv | 3 - en/Dictionary/ad.formats.csv | 8 - en/Dictionary/ad.status.csv | 4 - en/Dictionary/campaign.status.csv | 4 - en/NAMESPACE | 40 - en/R/api_version_checker.R | 6 - en/R/vkAuth.R | 11 - en/R/vkGetAdAccounts.R | 34 - en/R/vkGetAdAgeStats.R | 108 --- en/R/vkGetAdBudget.R | 28 - en/R/vkGetAdCampaigns.R | 80 -- en/R/vkGetAdCategories.R | 37 - en/R/vkGetAdCityStats.R | 111 --- en/R/vkGetAdClients.R | 38 - en/R/vkGetAdGenderAgeStats.R | 111 --- en/R/vkGetAdGenderStats.R | 108 --- en/R/vkGetAdPostsReach.R | 56 -- en/R/vkGetAdStatistics.R | 112 --- en/R/vkGetAds.R | 124 --- en/R/vkGetAdsLayout.R | 86 --- en/R/vkGetDbCities.R | 70 -- en/R/vkGetDbCountries.R | 52 -- en/R/vkGetDbRegions.R | 62 -- en/R/vkGetGroupStat.R | 25 - en/R/vkGetGroupStatAge.R | 32 - en/R/vkGetGroupStatCity.R | 31 - en/R/vkGetGroupStatCountries.R | 31 - en/R/vkGetGroupStatGender.R | 32 - en/R/vkGetGroupStatGenderAge.R | 40 - en/R/vkGetGroupStatPostReach.R | 32 - en/R/vkGetGroupToken.R | 9 - en/R/vkGetToken.R | 8 - en/R/vkGetUserDialogs.R | 68 -- en/R/vkGetUserFriends.R | 64 -- en/R/vkGetUserGroups.R | 70 -- en/R/vkGetUserWall.R | 93 --- en/R/vkLoadToken.R | 5 - en/R/zzz.R | 33 - en/README.md | 896 --------------------- en/_config.yml | 1 - en/getCode/get_code.html | 62 -- en/getCode/get_token.html | 49 -- en/index.html | 1068 -------------------------- en/man/rvkstat-package.Rd | 31 - en/man/vkAuth.Rd | 23 - en/man/vkGetAdAccounts.Rd | 28 - en/man/vkGetAdAgeStats.Rd | 76 -- en/man/vkGetAdBudget.Rd | 25 - en/man/vkGetAdCampaigns.Rd | 40 - en/man/vkGetAdCategories.Rd | 28 - en/man/vkGetAdCityStats.Rd | 77 -- en/man/vkGetAdClients.Rd | 31 - en/man/vkGetAdGenderAgeStats.Rd | 77 -- en/man/vkGetAdGenderStats.Rd | 76 -- en/man/vkGetAdPostsReach.Rd | 54 -- en/man/vkGetAdStatistics.Rd | 79 -- en/man/vkGetAds.Rd | 57 -- en/man/vkGetAdsLayout.Rd | 53 -- en/man/vkGetDbCities.Rd | 44 -- en/man/vkGetDbCountries.Rd | 36 - en/man/vkGetDbRegions.Rd | 40 - en/man/vkGetGroupStat.Rd | 38 - en/man/vkGetGroupStatAge.Rd | 34 - en/man/vkGetGroupStatCity.Rd | 34 - en/man/vkGetGroupStatCountries.Rd | 35 - en/man/vkGetGroupStatGender.Rd | 32 - en/man/vkGetGroupStatGenderAge.Rd | 35 - en/man/vkGetGroupStatPostReach.Rd | 50 -- en/man/vkGetGroupToken.Rd | 23 - en/man/vkGetToken.Rd | 20 - en/man/vkGetUserDialogs.Rd | 49 -- en/man/vkGetUserFriends.Rd | 57 -- en/man/vkGetUserGroups.Rd | 49 -- en/man/vkGetUserWall.Rd | 41 - en/man/vkLoadToken.Rd | 17 - en/vkGetGroupStatPostReach.R | 58 -- man/vkGetUserDialogs.Rd | 54 -- rvkstat.Rproj | 17 + 84 files changed, 23 insertions(+), 5534 deletions(-) create mode 100644 .Rbuildignore create mode 100644 .gitignore delete mode 100644 R/vkGetUserDialogs.R delete mode 100644 en/DESCRIPTION delete mode 100644 en/Dictionary/ad.age_restriction.csv delete mode 100644 en/Dictionary/ad.approveds.csv delete mode 100644 en/Dictionary/ad.cost_type.csv delete mode 100644 en/Dictionary/ad.formats.csv delete mode 100644 en/Dictionary/ad.status.csv delete mode 100644 en/Dictionary/campaign.status.csv delete mode 100644 en/NAMESPACE delete mode 100644 en/R/api_version_checker.R delete mode 100644 en/R/vkAuth.R delete mode 100644 en/R/vkGetAdAccounts.R delete mode 100644 en/R/vkGetAdAgeStats.R delete mode 100644 en/R/vkGetAdBudget.R delete mode 100644 en/R/vkGetAdCampaigns.R delete mode 100644 en/R/vkGetAdCategories.R delete mode 100644 en/R/vkGetAdCityStats.R delete mode 100644 en/R/vkGetAdClients.R delete mode 100644 en/R/vkGetAdGenderAgeStats.R delete mode 100644 en/R/vkGetAdGenderStats.R delete mode 100644 en/R/vkGetAdPostsReach.R delete mode 100644 en/R/vkGetAdStatistics.R delete mode 100644 en/R/vkGetAds.R delete mode 100644 en/R/vkGetAdsLayout.R delete mode 100644 en/R/vkGetDbCities.R delete mode 100644 en/R/vkGetDbCountries.R delete mode 100644 en/R/vkGetDbRegions.R delete mode 100644 en/R/vkGetGroupStat.R delete mode 100644 en/R/vkGetGroupStatAge.R delete mode 100644 en/R/vkGetGroupStatCity.R delete mode 100644 en/R/vkGetGroupStatCountries.R delete mode 100644 en/R/vkGetGroupStatGender.R delete mode 100644 en/R/vkGetGroupStatGenderAge.R delete mode 100644 en/R/vkGetGroupStatPostReach.R delete mode 100644 en/R/vkGetGroupToken.R delete mode 100644 en/R/vkGetToken.R delete mode 100644 en/R/vkGetUserDialogs.R delete mode 100644 en/R/vkGetUserFriends.R delete mode 100644 en/R/vkGetUserGroups.R delete mode 100644 en/R/vkGetUserWall.R delete mode 100644 en/R/vkLoadToken.R delete mode 100644 en/R/zzz.R delete mode 100644 en/README.md delete mode 100644 en/_config.yml delete mode 100644 en/getCode/get_code.html delete mode 100644 en/getCode/get_token.html delete mode 100644 en/index.html delete mode 100644 en/man/rvkstat-package.Rd delete mode 100644 en/man/vkAuth.Rd delete mode 100644 en/man/vkGetAdAccounts.Rd delete mode 100644 en/man/vkGetAdAgeStats.Rd delete mode 100644 en/man/vkGetAdBudget.Rd delete mode 100644 en/man/vkGetAdCampaigns.Rd delete mode 100644 en/man/vkGetAdCategories.Rd delete mode 100644 en/man/vkGetAdCityStats.Rd delete mode 100644 en/man/vkGetAdClients.Rd delete mode 100644 en/man/vkGetAdGenderAgeStats.Rd delete mode 100644 en/man/vkGetAdGenderStats.Rd delete mode 100644 en/man/vkGetAdPostsReach.Rd delete mode 100644 en/man/vkGetAdStatistics.Rd delete mode 100644 en/man/vkGetAds.Rd delete mode 100644 en/man/vkGetAdsLayout.Rd delete mode 100644 en/man/vkGetDbCities.Rd delete mode 100644 en/man/vkGetDbCountries.Rd delete mode 100644 en/man/vkGetDbRegions.Rd delete mode 100644 en/man/vkGetGroupStat.Rd delete mode 100644 en/man/vkGetGroupStatAge.Rd delete mode 100644 en/man/vkGetGroupStatCity.Rd delete mode 100644 en/man/vkGetGroupStatCountries.Rd delete mode 100644 en/man/vkGetGroupStatGender.Rd delete mode 100644 en/man/vkGetGroupStatGenderAge.Rd delete mode 100644 en/man/vkGetGroupStatPostReach.Rd delete mode 100644 en/man/vkGetGroupToken.Rd delete mode 100644 en/man/vkGetToken.Rd delete mode 100644 en/man/vkGetUserDialogs.Rd delete mode 100644 en/man/vkGetUserFriends.Rd delete mode 100644 en/man/vkGetUserGroups.Rd delete mode 100644 en/man/vkGetUserWall.Rd delete mode 100644 en/man/vkLoadToken.Rd delete mode 100644 en/vkGetGroupStatPostReach.R delete mode 100644 man/vkGetUserDialogs.Rd create mode 100644 rvkstat.Rproj diff --git a/.Rbuildignore b/.Rbuildignore new file mode 100644 index 0000000..91114bf --- /dev/null +++ b/.Rbuildignore @@ -0,0 +1,2 @@ +^.*\.Rproj$ +^\.Rproj\.user$ diff --git a/.gitignore b/.gitignore new file mode 100644 index 0000000..5b6a065 --- /dev/null +++ b/.gitignore @@ -0,0 +1,4 @@ +.Rproj.user +.Rhistory +.RData +.Ruserdata diff --git a/R/vkGetUserDialogs.R b/R/vkGetUserDialogs.R deleted file mode 100644 index 614b5f3..0000000 --- a/R/vkGetUserDialogs.R +++ /dev/null @@ -1,68 +0,0 @@ -vkGetUserDialogs <- function(offset = NULL, - count = NULL, - start_message_id = NULL, - preview_length = 0, - unread = 0, - important = 0, - unanswered = 0, - api_version = NULL, - access_token = NULL){ - - if(is.null(access_token)){ - stop("Set access_token in options, is require.") - } - - # set api version - api_version <- api_version_checker(api_version) - - # collect params - params <- c() - - for(param in ls()[! ls() %in% c("params","api_version")]){ - if(is.null(get(param))) next - params <- c(params,paste0(param,"=",get(param))) - rm(param) - } - - params <- paste0(params, collapse = "&") - - # result frame - result <- data.frame(id = integer(0), - date = as.Date(character()), - out = integer(0), - user_id = integer(0), - read_state = integer(0), - title = character(0), - body = character(0), - stringsAsFactors = F) - - - # query - query <- paste0("https://api.vk.com/method/messages.getDialogs?",params,"&v=",api_version) - answer <- GET(query) - stop_for_status(answer) - dataRaw <- content(answer, "parsed", "application/json") - - # check for error - if(!is.null(dataRaw$error)){ - stop(paste0("Error ", dataRaw$error$error_code," - ", dataRaw$error$error_msg)) - } - - - # parsing - for(i in 1:length(dataRaw$response$items)){ - result <- rbind(result, - data.frame(id = ifelse(is.null(dataRaw$response$items[[i]]$message$id), NA,dataRaw$response$items[[i]]$message$id), - date = ifelse(is.null(dataRaw$response$items[[i]]$message$date), NA,as.POSIXct(dataRaw$response$items[[i]]$message$date, origin="1970-01-01")), - out = ifelse(is.null(dataRaw$response$items[[i]]$message$out), NA,dataRaw$response$items[[i]]$message$out), - user_id = ifelse(is.null(dataRaw$response$items[[i]]$message$user_id), NA,dataRaw$response$items[[i]]$message$user_id), - read_state = ifelse(is.null(dataRaw$response$items[[i]]$message$read_state), NA,dataRaw$response$items[[i]]$message$read_state), - title = ifelse(is.null(dataRaw$response$items[[i]]$message$title), NA,dataRaw$response$items[[i]]$message$title), - body = ifelse(is.null(dataRaw$response$items[[i]]$message$body), NA,dataRaw$response$items[[i]]$message$body), - random_id = ifelse(is.null(dataRaw$response$items[[i]]$message$random_id), NA,dataRaw$response$items[[i]]$message$random_id), - stringsAsFactors = F))} - # convert date - result$date <- as.POSIXct(result$date, origin="1970-01-01") - - # return result - return(result)} diff --git a/en/DESCRIPTION b/en/DESCRIPTION deleted file mode 100644 index ac929d4..0000000 --- a/en/DESCRIPTION +++ /dev/null @@ -1,11 +0,0 @@ -Package: rvkstat -Type: Package -Title: Load data from vk.com api into R -Version: 2.5.6 -Date: 2016-04-29 -Author: Alexey Seleznev -Maintainer: Alexey Seleznev -Description: Load data from vk.com api about your communiti users and viewa by date into R -License: not license it free -Depends: R (>= 3.4.1) -Imports: RCurl, jsonlite, httr, tidyr diff --git a/en/Dictionary/ad.age_restriction.csv b/en/Dictionary/ad.age_restriction.csv deleted file mode 100644 index 5d35004..0000000 --- a/en/Dictionary/ad.age_restriction.csv +++ /dev/null @@ -1,7 +0,0 @@ -"id";"age_label" -"1";0;" " -"2";1;"0+" -"3";2;"6+" -"4";3;"12+" -"5";4;"16+" -"6";5;"18+" diff --git a/en/Dictionary/ad.approveds.csv b/en/Dictionary/ad.approveds.csv deleted file mode 100644 index ecb724f..0000000 --- a/en/Dictionary/ad.approveds.csv +++ /dev/null @@ -1,5 +0,0 @@ -"id";"approved_name" -"1";0;" " -"2";1;" " -"3";2;" " -"4";3;" " diff --git a/en/Dictionary/ad.cost_type.csv b/en/Dictionary/ad.cost_type.csv deleted file mode 100644 index 6893f63..0000000 --- a/en/Dictionary/ad.cost_type.csv +++ /dev/null @@ -1,3 +0,0 @@ -"id";"cost_type_name" -"1";0;"c " -"2";1;" " diff --git a/en/Dictionary/ad.formats.csv b/en/Dictionary/ad.formats.csv deleted file mode 100644 index 7debdf3..0000000 --- a/en/Dictionary/ad.formats.csv +++ /dev/null @@ -1,8 +0,0 @@ -"id";"format" -"1";1;" " -"2";2;" " -"3";3;" " -"4";4;" , " -"5";5;" ()" -"6";6;" " -"7";9;" " diff --git a/en/Dictionary/ad.status.csv b/en/Dictionary/ad.status.csv deleted file mode 100644 index db9b808..0000000 --- a/en/Dictionary/ad.status.csv +++ /dev/null @@ -1,4 +0,0 @@ -"id";"status_name" -"1";0;" " -"2";1;" " -"3";2;" " diff --git a/en/Dictionary/campaign.status.csv b/en/Dictionary/campaign.status.csv deleted file mode 100644 index 62f3b99..0000000 --- a/en/Dictionary/campaign.status.csv +++ /dev/null @@ -1,4 +0,0 @@ -"id";"status_name" -"1";0;" " -"2";1;" " -"3";2;" " diff --git a/en/NAMESPACE b/en/NAMESPACE deleted file mode 100644 index 7ba9467..0000000 --- a/en/NAMESPACE +++ /dev/null @@ -1,40 +0,0 @@ -export(vkAuth) -export(vkGetToken) -export(vkGetGroupToken) -export(vkGetGroupStat) -export(vkGetGroupStatAge) -export(vkGetGroupStatCity) -export(vkGetGroupStatCountries) -export(vkGetGroupStatGender) -export(vkGetGroupStatGenderAge) -export(vkGetGroupStatPostReach) -export(vkGetAds) -export(vkGetAdsLayout) -export(vkGetAdBudget) -export(vkGetAdCategories) -export(vkGetAdClients) -export(vkGetAdAccounts) -export(vkGetAdCampaigns) -export(vkGetAdStatistics) -export(vkGetAdCityStats) -export(vkGetAdGenderStats) -export(vkGetAdAgeStats) -export(vkGetAdGenderAgeStats) -export(vkGetAdPostsReach) -export(vkGetDbCountries) -export(vkGetDbCities) -export(vkGetDbRegions) -export(vkGetUserFriends) -export(vkGetUserDialogs) -export(vkGetUserGroups) -export(vkGetUserWall) -export(vkLoadToken) -importFrom(utils,browseURL) -importFrom(httr,GET) -importFrom(httr,stop_for_status) -importFrom(httr,content) -importFrom(RCurl,getURL) -importFrom(jsonlite,fromJSON) -importFrom(jsonlite,toJSON) -importFrom(tidyr,separate) -import(tidyr) diff --git a/en/R/api_version_checker.R b/en/R/api_version_checker.R deleted file mode 100644 index ffe5fe1..0000000 --- a/en/R/api_version_checker.R +++ /dev/null @@ -1,6 +0,0 @@ -api_version_checker <- function(v){ - current_version <- "5.73" - - if(is.null(v)) return(current_version) - if(as.numeric(v) < 4) return(current_version) - return(v)} diff --git a/en/R/vkAuth.R b/en/R/vkAuth.R deleted file mode 100644 index 496f232..0000000 --- a/en/R/vkAuth.R +++ /dev/null @@ -1,11 +0,0 @@ -vkAuth <- function(app_id = NULL, app_secret = NULL, apiVersion = "5.68"){ - #Ïîëó÷àåì code - browseURL(paste0("https://oauth.vk.com/authorize?client_id=",app_id,"&redirect_uri=https://selesnow.github.io/rvkstat/getCode/get_code.html&display=popup&scope=offline,groups,ads,stats&response_type=code&v=",apiVersion)) - code <- readline(prompt = "Enter code from URL: ") - #Ïîëó÷àåì òîêåí - token <- GET(paste0("https://oauth.vk.com/access_token?client_id=",app_id,"&client_secret=",app_secret,"&redirect_uri=https://selesnow.github.io/rvkstat/getCode/get_code.html&code=",code)) - stop_for_status(token) - accessCredentilas <- content(token, "parsed", "application/json") - save(accessCredentilas, file = "vkauth.RData") - return(accessCredentilas) -} diff --git a/en/R/vkGetAdAccounts.R b/en/R/vkGetAdAccounts.R deleted file mode 100644 index 5cf0c31..0000000 --- a/en/R/vkGetAdAccounts.R +++ /dev/null @@ -1,34 +0,0 @@ -vkGetAdAccounts <- function(access_token = NULL, - api_version = NULL){ - if(is.null(access_token)){ - stop("Не заполнен access_token, этот аргумент является обязательным.") - } - - api_version <- api_version_checker(api_version) - - query <- paste0("https://api.vk.com/method/ads.getAccounts?v=",api_version,"&access_token=",access_token) - answer <- GET(query) - stop_for_status(answer) - dataRaw <- content(answer, "parsed", "application/json") - - #Проверка ответа на ошибки - if(!is.null(dataRaw$error)){ - stop(paste0("Error ", dataRaw$error$error_code," - ", dataRaw$error$error_msg)) - } - - #Результирующий дата фрейм - result <- data.frame(account_id = integer(0), - account_type = character(0), - account_status = character(0), - access_role = character(0)) - - #Парсинг результата - for(i in 1:length(dataRaw$response)){ - result <- rbind(result, - data.frame(account_id = dataRaw$response[[i]]$account_id, - account_type = dataRaw$response[[i]]$account_type, - account_status = dataRaw$response[[i]]$account_status, - access_role = dataRaw$response[[i]]$access_role))} - - return(result) -} diff --git a/en/R/vkGetAdAgeStats.R b/en/R/vkGetAdAgeStats.R deleted file mode 100644 index 429d34a..0000000 --- a/en/R/vkGetAdAgeStats.R +++ /dev/null @@ -1,108 +0,0 @@ -vkGetAdAgeStats <- function(account_id = NULL, - ids_type = "campaign", - ids = NULL, - period = "day", - date_from = Sys.Date() - 30, - date_to = Sys.Date(), - api_version = NULL, - access_token = NULL){ - if(is.null(access_token)){ - stop("Не заполнен access_token, этот аргумент является обязательным.") - } - - if(!(period %in% c("day","month","overall"))){ - stop("Неверное значение в аргументе period, доступные значения day, month и overall") - } - - api_version <- api_version_checker(api_version) - - #Переводим дату в месяц - if(period == "month"){ - date_from <- format(as.Date(as.character(date_from)), "%Y-%m") - date_to <- format(as.Date(as.character(date_to)), "%Y-%m") - } - - if(period == "overall"){ - date_from <- 0 - date_to <- 0 - } - - #Фильтр по статусу объявления - ids <- paste0(ids, collapse = ",") - - #Рещультирующая таблица - result <- data.frame() - - #Формируем запрос - query <- paste0("https://api.vk.com/method/ads.getDemographics?account_id=",account_id,"&ids_type=",ids_type,"&ids=",ids,"&period=",period,"&date_from=",date_from,"&date_to=",date_to,"&access_token=",access_token,"&v=",api_version) - answer <- GET(query) - stop_for_status(answer) - dataRaw <- content(answer, "parsed", "application/json") - - #Проверка ответа на ошибки - if(!is.null(dataRaw$error)){ - stop(paste0("Error ", dataRaw$error$error_code," - ", dataRaw$error$error_msg)) - } - - for(i in 1:length(dataRaw$response)){ - - #Парсинг результата - if(period == "day"){ - for(dt in 1:length(dataRaw$response[[i]]$stats)){ - - for(city_i in 1:length(dataRaw$response[[i]]$stats[[dt]]$age)){ - - if(length(dataRaw$response[[i]]$stats[[dt]]$age)==0) next - - result <- rbind(result, - data.frame(id = ifelse(is.null(dataRaw$response[[i]]$id), NA,dataRaw$response[[i]]$id), - type = ifelse(is.null(dataRaw$response[[i]]$type), NA,dataRaw$response[[i]]$type), - day = ifelse(is.null(dataRaw$response[[i]]$stats[[dt]]$day), NA,dataRaw$response[[i]]$stats[[dt]]$day), - age = ifelse(is.null(dataRaw$response[[i]]$stats[[dt]]$age[[city_i]]$value), NA,dataRaw$response[[i]]$stats[[dt]]$age[[city_i]]$value), - impressions_rate = ifelse(is.null(dataRaw$response[[i]]$stats[[dt]]$age[[city_i]]$impressions_rate), NA,dataRaw$response[[i]]$stats[[dt]]$age[[city_i]]$impressions_rate), - clicks_rate = ifelse(is.null(dataRaw$response[[i]]$stats[[dt]]$age[[city_i]]$clicks_rate), NA,dataRaw$response[[i]]$stats[[dt]]$age[[city_i]]$clicks_rate), - stringsAsFactors = F))} - } - } - - if(period == "month"){ - for(dt in 1:length(dataRaw$response[[i]]$stats)){ - - for(city_i in 1:length(dataRaw$response[[i]]$stats[[dt]]$age)){ - - if(length(dataRaw$response[[i]]$stats[[dt]]$age)==0) next - - result <- rbind(result, - data.frame(id = ifelse(is.null(dataRaw$response[[i]]$id), NA,dataRaw$response[[i]]$id), - type = ifelse(is.null(dataRaw$response[[i]]$type), NA,dataRaw$response[[i]]$type), - month = ifelse(is.null(dataRaw$response[[i]]$stats[[dt]]$month), NA,dataRaw$response[[i]]$stats[[dt]]$month), - age = ifelse(is.null(dataRaw$response[[i]]$stats[[dt]]$age[[city_i]]$value), NA,dataRaw$response[[i]]$stats[[dt]]$age[[city_i]]$value), - impressions_rate = ifelse(is.null(dataRaw$response[[i]]$stats[[dt]]$age[[city_i]]$impressions_rate), NA,dataRaw$response[[i]]$stats[[dt]]$age[[city_i]]$impressions_rate), - clicks_rate = ifelse(is.null(dataRaw$response[[i]]$stats[[dt]]$age[[city_i]]$clicks_rate), NA,dataRaw$response[[i]]$stats[[dt]]$age[[city_i]]$clicks_rate), - stringsAsFactors = F))} - } - } - if(period == "overall"){ - for(dt in 1:length(dataRaw$response[[i]]$stats)){ - - for(city_i in 1:length(dataRaw$response[[i]]$stats[[dt]]$age)){ - - if(length(dataRaw$response[[i]]$stats[[dt]]$age)==0) next - - result <- rbind(result, - data.frame(id = ifelse(is.null(dataRaw$response[[i]]$id), NA,dataRaw$response[[i]]$id), - type = ifelse(is.null(dataRaw$response[[i]]$type), NA,dataRaw$response[[i]]$type), - day_from = ifelse(is.null(dataRaw$response[[i]]$stats[[dt]]$day_from), NA,dataRaw$response[[i]]$stats[[dt]]$day_from), - day_to = ifelse(is.null(dataRaw$response[[i]]$stats[[dt]]$day_to), NA,dataRaw$response[[i]]$stats[[dt]]$day_to), - age = ifelse(is.null(dataRaw$response[[i]]$stats[[dt]]$age[[city_i]]$value), NA,dataRaw$response[[i]]$stats[[dt]]$age[[city_i]]$value), - impressions_rate = ifelse(is.null(dataRaw$response[[i]]$stats[[dt]]$age[[city_i]]$impressions_rate), NA,dataRaw$response[[i]]$stats[[dt]]$age[[city_i]]$impressions_rate), - clicks_rate = ifelse(is.null(dataRaw$response[[i]]$stats[[dt]]$age[[city_i]]$clicks_rate), NA,dataRaw$response[[i]]$stats[[dt]]$age[[city_i]]$clicks_rate), - stringsAsFactors = F))} - } - } - - } - - - return(result) -} diff --git a/en/R/vkGetAdBudget.R b/en/R/vkGetAdBudget.R deleted file mode 100644 index 5a24d87..0000000 --- a/en/R/vkGetAdBudget.R +++ /dev/null @@ -1,28 +0,0 @@ -vkGetAdBudget <- function(account_id = NULL, - access_token = NULL, - api_version = NULL){ - - #Проверка заполнения аргументов - if(is.null(account_id)){ - stop("Не заполнен account_id, этот аргумент является обязательным.") - } - - if(is.null(access_token)){ - stop("Не заполнен access_token, этот аргумент является обязательным.") - } - - api_version <- api_version_checker(api_version) - - #Формируем запрос - query <- paste0("https://api.vk.com/method/ads.getBudget?account_id=",account_id,"&access_token=",access_token,"&v=",api_version) - answer <- GET(query) - stop_for_status(answer) - dataRaw <- content(answer, "parsed", "application/json") - - #Проверка ответа на наличие ошибок - if(!is.null(dataRaw$error)){ - stop(paste0("Error ", dataRaw$error$error_code," - ", dataRaw$error$error_msg)) - } - - return(as.numeric(dataRaw$response)) -} diff --git a/en/R/vkGetAdCampaigns.R b/en/R/vkGetAdCampaigns.R deleted file mode 100644 index 4500356..0000000 --- a/en/R/vkGetAdCampaigns.R +++ /dev/null @@ -1,80 +0,0 @@ -vkGetAdCampaigns <- function(account_id = NULL, - client_id = NULL, - include_deleted = TRUE, - campaign_ids = "null", - api_version = NULL, - access_token = NULL){ - - - #Проверка заполнения аргументов - if(is.null(account_id)){ - stop("Не заполнен account_id, этот аргумент является обязательным.") - } - - api_version <- api_version_checker(api_version) - - #Преобразуем фильтр по кампаниям в json массив - if(campaign_ids != "null"){ - campaign_ids <- toJSON(campaign_ids) - } - - #Фильтр по статусу объявления - include_deleted <- ifelse(include_deleted == T,1,0) - - #Результирующий дата фрейм - result <- data.frame(id = integer(0), - type = integer(0), - name = character(0), - status = character(0), - day_limit = character(0), - all_limit = character(0), - start_time = integer(0), - stop_time = character(0), - create_time = character(0), - update_time = integer(0), - stringsAsFactors = F) - - - #Формируем запрос - query <- paste0("https://api.vk.com/method/ads.getCampaigns?account_id=",account_id,ifelse(is.null(client_id), "",paste0("&client_id=",client_id)),"&include_deleted=",include_deleted,"&campaign_ids=",campaign_ids,"&access_token=",access_token,"&v=",api_version) - answer <- GET(query) - stop_for_status(answer) - dataRaw <- content(answer, "parsed", "application/json") - - #Проверка ответа на ошибки - if(!is.null(dataRaw$error)){ - stop(paste0("Error ", dataRaw$error$error_code," - ", dataRaw$error$error_msg)) - } - - #Парсинг результата - for(i in 1:length(dataRaw$response)){ - result <- rbind(result, - data.frame(id = ifelse(is.null(dataRaw$response[[i]]$id), NA,dataRaw$response[[i]]$id), - type = ifelse(is.null(dataRaw$response[[i]]$type), NA,dataRaw$response[[i]]$type), - name = ifelse(is.null(dataRaw$response[[i]]$name), NA,dataRaw$response[[i]]$name), - status = ifelse(is.null(dataRaw$response[[i]]$status), NA,dataRaw$response[[i]]$status), - day_limit = ifelse(is.null(dataRaw$response[[i]]$day_limit), NA,dataRaw$response[[i]]$day_limit), - all_limit = ifelse(is.null(dataRaw$response[[i]]$all_limit), NA,dataRaw$response[[i]]$all_limit), - start_time = ifelse(is.null(dataRaw$response[[i]]$start_time), NA,as.POSIXct(as.integer(dataRaw$response[[i]]$start_time), origin="1970-01-01")), - stop_time = ifelse(is.null(dataRaw$response[[i]]$stop_time), NA,as.POSIXct(as.integer(dataRaw$response[[i]]$stop_time), origin="1970-01-01")), - create_time = ifelse(is.null(dataRaw$response[[i]]$create_time), NA,as.POSIXct(as.integer(dataRaw$response[[i]]$create_time), origin="1970-01-01")), - update_time = ifelse(is.null(dataRaw$response[[i]]$update_time), NA,as.POSIXct(as.integer(dataRaw$response[[i]]$update_time), origin="1970-01-01")), - stringsAsFactors = F))} - - #Загружаем справочник статусов кампаний - campaign_status <- getURL("https://raw.githubusercontent.com/selesnow/rvkstat/master/Dictionary/campaign.status.csv", .encoding = "1251") - campaign_status <- read.csv(text = campaign_status, sep = ";", encoding = "UTF-8") - result$status <- as.character(merge(result, campaign_status, by.x = "status", by.y = "id", all.x = T)$status_name) - - #Приводим поля в правильный формат - result$create_time <- as.POSIXct(as.integer(result$create_time), origin="1970-01-01") - result$update_time <- as.POSIXct(as.integer(result$update_time), origin="1970-01-01") - result$start_time <- as.POSIXct(as.integer(result$start_time), origin="1970-01-01") - result$stop_time <- as.POSIXct(as.integer(result$stop_time), origin="1970-01-01") - - #Преобразование в числа - result$day_limit <- as.numeric(result$day_limit) - result$all_limit <- as.numeric(result$all_limit) - - return(result) -} diff --git a/en/R/vkGetAdCategories.R b/en/R/vkGetAdCategories.R deleted file mode 100644 index d281ec6..0000000 --- a/en/R/vkGetAdCategories.R +++ /dev/null @@ -1,37 +0,0 @@ -vkGetAdCategories <- function(access_token = NULL, - api_version = NULL){ - if(is.null(access_token)){ - stop("Не заполнен access_token, этот аргумент является обязательным.") - } - - api_version <- api_version_checker(api_version) - - #Создаём результирующий дата фрейм - result <- data.frame() - - #Формируем запрос - query <- paste0("https://api.vk.com/method/ads.getCategories?access_token=",access_token,"&v=",api_version) - answer <- GET(query) - stop_for_status(answer) - dataRaw <- content(answer, "parsed", "application/json") - - #Проверка ответа на ошибки - if(!is.null(dataRaw$error)){ - stop(paste0("Error ", dataRaw$error$error_code," - ", dataRaw$error$error_msg)) - } - - #Парсинг результата - for(i in 1:length(dataRaw$response)){ - for(subcat in 1:(if(length(dataRaw$response[[i]]$subcategories)==0) 1 else length(dataRaw$response[[i]]$subcategories))){ - - result <- rbind(result, - data.frame(id = ifelse(is.null(dataRaw$response[[i]]$id), NA,dataRaw$response[[i]]$id), - name = ifelse(is.null(dataRaw$response[[i]]$name), NA,dataRaw$response[[i]]$name), - subcategories_id = ifelse(is.null(dataRaw$response[[i]]$subcategories[[subcat]]$id), NA,dataRaw$response[[i]]$subcategories[[subcat]]$id), - ubcategories_name = ifelse(is.null(dataRaw$response[[i]]$subcategories[[subcat]]$name), NA,dataRaw$response[[i]]$subcategories[[subcat]]$name), - stringsAsFactors = F))} - - } - - - return(result)} diff --git a/en/R/vkGetAdCityStats.R b/en/R/vkGetAdCityStats.R deleted file mode 100644 index 1e97abd..0000000 --- a/en/R/vkGetAdCityStats.R +++ /dev/null @@ -1,111 +0,0 @@ -vkGetAdCityStats <- function(account_id = NULL, - ids_type = "campaign", - ids = NULL, - period = "day", - date_from = Sys.Date() - 30, - date_to = Sys.Date(), - api_version = NULL, - access_token = NULL){ - if(is.null(access_token)){ - stop("Не заполнен access_token, этот аргумент является обязательным.") - } - - api_version <- api_version_checker(api_version) - - if(!(period %in% c("day","month","overall"))){ - stop("Неверное значение в аргументе period, доступные значения day, month и overall") - } - - #Переводим дату в месяц - if(period == "month"){ - date_from <- format(as.Date(as.character(date_from)), "%Y-%m") - date_to <- format(as.Date(as.character(date_to)), "%Y-%m") - } - - if(period == "overall"){ - date_from <- 0 - date_to <- 0 - } - - #Фильтр по статусу объявления - ids <- paste0(ids, collapse = ",") - - #Рещультирующая таблица - result <- data.frame() - - #Формируем запрос - query <- paste0("https://api.vk.com/method/ads.getDemographics?account_id=",account_id,"&ids_type=",ids_type,"&ids=",ids,"&period=",period,"&date_from=",date_from,"&date_to=",date_to,"&access_token=",access_token,"&v=",api_version) - answer <- GET(query) - stop_for_status(answer) - dataRaw <- content(answer, "parsed", "application/json") - - #Проверка ответа на ошибки - if(!is.null(dataRaw$error)){ - stop(paste0("Error ", dataRaw$error$error_code," - ", dataRaw$error$error_msg)) - } - - for(i in 1:length(dataRaw$response)){ - - #Парсинг результата - if(period == "day"){ - for(dt in 1:length(dataRaw$response[[i]]$stats)){ - - for(city_i in 1:length(dataRaw$response[[i]]$stats[[dt]]$cities)){ - - if(length(dataRaw$response[[i]]$stats[[dt]]$cities)==0) next - - result <- rbind(result, - data.frame(id = ifelse(is.null(dataRaw$response[[i]]$id), NA,dataRaw$response[[i]]$id), - type = ifelse(is.null(dataRaw$response[[i]]$type), NA,dataRaw$response[[i]]$type), - day = ifelse(is.null(dataRaw$response[[i]]$stats[[dt]]$day), NA,dataRaw$response[[i]]$stats[[dt]]$day), - city_id = ifelse(is.null(dataRaw$response[[i]]$stats[[dt]]$cities[[city_i]]$value), NA,dataRaw$response[[i]]$stats[[dt]]$cities[[city_i]]$value), - city_name = ifelse(is.null(dataRaw$response[[i]]$stats[[dt]]$cities[[city_i]]$name), NA,dataRaw$response[[i]]$stats[[dt]]$cities[[city_i]]$name), - impressions_rate = ifelse(is.null(dataRaw$response[[i]]$stats[[dt]]$cities[[city_i]]$impressions_rate), NA,dataRaw$response[[i]]$stats[[dt]]$cities[[city_i]]$impressions_rate), - clicks_rate = ifelse(is.null(dataRaw$response[[i]]$stats[[dt]]$cities[[city_i]]$clicks_rate), NA,dataRaw$response[[i]]$stats[[dt]]$cities[[city_i]]$clicks_rate), - stringsAsFactors = F))} - } - } - - if(period == "month"){ - for(dt in 1:length(dataRaw$response[[i]]$stats)){ - - for(city_i in 1:length(dataRaw$response[[i]]$stats[[dt]]$cities)){ - - if(length(dataRaw$response[[i]]$stats[[dt]]$cities)==0) next - - result <- rbind(result, - data.frame(id = ifelse(is.null(dataRaw$response[[i]]$id), NA,dataRaw$response[[i]]$id), - type = ifelse(is.null(dataRaw$response[[i]]$type), NA,dataRaw$response[[i]]$type), - month = ifelse(is.null(dataRaw$response[[i]]$stats[[dt]]$month), NA,dataRaw$response[[i]]$stats[[dt]]$month), - city_id = ifelse(is.null(dataRaw$response[[i]]$stats[[dt]]$cities[[city_i]]$value), NA,dataRaw$response[[i]]$stats[[dt]]$cities[[city_i]]$value), - city_name = ifelse(is.null(dataRaw$response[[i]]$stats[[dt]]$cities[[city_i]]$name), NA,dataRaw$response[[i]]$stats[[dt]]$cities[[city_i]]$name), - impressions_rate = ifelse(is.null(dataRaw$response[[i]]$stats[[dt]]$cities[[city_i]]$impressions_rate), NA,dataRaw$response[[i]]$stats[[dt]]$cities[[city_i]]$impressions_rate), - clicks_rate = ifelse(is.null(dataRaw$response[[i]]$stats[[dt]]$cities[[city_i]]$clicks_rate), NA,dataRaw$response[[i]]$stats[[dt]]$cities[[city_i]]$clicks_rate), - stringsAsFactors = F))} - } - } - if(period == "overall"){ - for(dt in 1:length(dataRaw$response[[i]]$stats)){ - - for(city_i in 1:length(dataRaw$response[[i]]$stats[[dt]]$cities)){ - - if(length(dataRaw$response[[i]]$stats[[dt]]$cities)==0) next - - result <- rbind(result, - data.frame(id = ifelse(is.null(dataRaw$response[[i]]$id), NA,dataRaw$response[[i]]$id), - type = ifelse(is.null(dataRaw$response[[i]]$type), NA,dataRaw$response[[i]]$type), - day_from = ifelse(is.null(dataRaw$response[[i]]$stats[[dt]]$day_from), NA,dataRaw$response[[i]]$stats[[dt]]$day_from), - day_to = ifelse(is.null(dataRaw$response[[i]]$stats[[dt]]$day_to), NA,dataRaw$response[[i]]$stats[[dt]]$day_to), - city_id = ifelse(is.null(dataRaw$response[[i]]$stats[[dt]]$cities[[city_i]]$value), NA,dataRaw$response[[i]]$stats[[dt]]$cities[[city_i]]$value), - city_name = ifelse(is.null(dataRaw$response[[i]]$stats[[dt]]$cities[[city_i]]$name), NA,dataRaw$response[[i]]$stats[[dt]]$cities[[city_i]]$name), - impressions_rate = ifelse(is.null(dataRaw$response[[i]]$stats[[dt]]$cities[[city_i]]$impressions_rate), NA,dataRaw$response[[i]]$stats[[dt]]$cities[[city_i]]$impressions_rate), - clicks_rate = ifelse(is.null(dataRaw$response[[i]]$stats[[dt]]$cities[[city_i]]$clicks_rate), NA,dataRaw$response[[i]]$stats[[dt]]$cities[[city_i]]$clicks_rate), - stringsAsFactors = F))} - } - } - - } - - - return(result) -} diff --git a/en/R/vkGetAdClients.R b/en/R/vkGetAdClients.R deleted file mode 100644 index 3f9ffad..0000000 --- a/en/R/vkGetAdClients.R +++ /dev/null @@ -1,38 +0,0 @@ -vkGetAdClients <- function(account_id = NULL, - api_version = NULL, - access_token = NULL){ - - if(is.null(access_token)){ - stop("Не заполнен access_token, этот аргумент является обязательным.") - } - - #Ðåçóëüòèðóþùèé äàòà ôðåéì - result <- data.frame() - - - #Ôîðìèðóåì çàïðîñ - query <- paste0("https://api.vk.com/method/ads.getClients?account_id=",account_id,"&access_token=",access_token,"&v=",api_version) - answer <- GET(query) - stop_for_status(answer) - dataRaw <- content(answer, "parsed", "application/json") - - #Ïðîâåðêà îòâåòà Г­Г  îøèáêè - if(!is.null(dataRaw$error)){ - stop(paste0("Error ", dataRaw$error$error_code," - ", dataRaw$error$error_msg)) - } - - #Ïàðñèíã ðåçóëüòàòà - for(i in 1:length(dataRaw$response)){ - result <- rbind(result, - data.frame(id = ifelse(is.null(dataRaw$response[[i]]$id), NA,dataRaw$response[[i]]$id), - name = ifelse(is.null(dataRaw$response[[i]]$name), NA,dataRaw$response[[i]]$name), - day_limit = ifelse(is.null(dataRaw$response[[i]]$day_limit), NA,dataRaw$response[[i]]$day_limit), - all_limit = ifelse(is.null(dataRaw$response[[i]]$all_limit), NA,dataRaw$response[[i]]$all_limit), - stringsAsFactors = F))} - - #Ïðåîáðàçîâàíèå Гў ÷èñëà - result$day_limit <- as.numeric(result$day_limit) - result$all_limit <- as.numeric(result$all_limit) - - return(result) -} diff --git a/en/R/vkGetAdGenderAgeStats.R b/en/R/vkGetAdGenderAgeStats.R deleted file mode 100644 index c220e2d..0000000 --- a/en/R/vkGetAdGenderAgeStats.R +++ /dev/null @@ -1,111 +0,0 @@ -vkGetAdGenderAgeStats <- function(account_id = NULL, - ids_type = "campaign", - ids = NULL, - period = "day", - date_from = Sys.Date() - 30, - date_to = Sys.Date(), - api_version = NULL, - access_token = NULL){ - if(is.null(access_token)){ - stop("Не заполнен access_token, этот аргумент является обязательным.") - } - - if(!(period %in% c("day","month","overall"))){ - stop("Неверное значение в аргументе period, доступные значения day, month и overall") - } - - api_version <- api_version_checker(api_version) - - #Переводим дату в месяц - if(period == "month"){ - date_from <- format(as.Date(as.character(date_from)), "%Y-%m") - date_to <- format(as.Date(as.character(date_to)), "%Y-%m") - } - - if(period == "overall"){ - date_from <- 0 - date_to <- 0 - } - - #Фильтр по статусу объявления - ids <- paste0(ids, collapse = ",") - - #Рещультирующая таблица - result <- data.frame() - - #Формируем запрос - query <- paste0("https://api.vk.com/method/ads.getDemographics?account_id=",account_id,"&ids_type=",ids_type,"&ids=",ids,"&period=",period,"&date_from=",date_from,"&date_to=",date_to,"&access_token=",access_token,"&v=",api_version) - answer <- GET(query) - stop_for_status(answer) - dataRaw <- content(answer, "parsed", "application/json") - - #Проверка ответа на ошибки - if(!is.null(dataRaw$error)){ - stop(paste0("Error ", dataRaw$error$error_code," - ", dataRaw$error$error_msg)) - } - - for(i in 1:length(dataRaw$response)){ - - #Парсинг результата - if(period == "day"){ - for(dt in 1:length(dataRaw$response[[i]]$stats)){ - - for(city_i in 1:length(dataRaw$response[[i]]$stats[[dt]]$sex_age)){ - - if(length(dataRaw$response[[i]]$stats[[dt]]$sex_age)==0) next - - result <- rbind(result, - data.frame(id = ifelse(is.null(dataRaw$response[[i]]$id), NA,dataRaw$response[[i]]$id), - type = ifelse(is.null(dataRaw$response[[i]]$type), NA,dataRaw$response[[i]]$type), - day = ifelse(is.null(dataRaw$response[[i]]$stats[[dt]]$day), NA,dataRaw$response[[i]]$stats[[dt]]$day), - sex_age = ifelse(is.null(dataRaw$response[[i]]$stats[[dt]]$sex_age[[city_i]]$value), NA,dataRaw$response[[i]]$stats[[dt]]$sex_age[[city_i]]$value), - impressions_rate = ifelse(is.null(dataRaw$response[[i]]$stats[[dt]]$sex_age[[city_i]]$impressions_rate), NA,dataRaw$response[[i]]$stats[[dt]]$sex_age[[city_i]]$impressions_rate), - clicks_rate = ifelse(is.null(dataRaw$response[[i]]$stats[[dt]]$sex_age[[city_i]]$clicks_rate), NA,dataRaw$response[[i]]$stats[[dt]]$sex_age[[city_i]]$clicks_rate), - stringsAsFactors = F))} - } - } - - if(period == "month"){ - for(dt in 1:length(dataRaw$response[[i]]$stats)){ - - for(city_i in 1:length(dataRaw$response[[i]]$stats[[dt]]$sex_age)){ - - if(length(dataRaw$response[[i]]$stats[[dt]]$sex_age)==0) next - - result <- rbind(result, - data.frame(id = ifelse(is.null(dataRaw$response[[i]]$id), NA,dataRaw$response[[i]]$id), - type = ifelse(is.null(dataRaw$response[[i]]$type), NA,dataRaw$response[[i]]$type), - month = ifelse(is.null(dataRaw$response[[i]]$stats[[dt]]$month), NA,dataRaw$response[[i]]$stats[[dt]]$month), - sex_age = ifelse(is.null(dataRaw$response[[i]]$stats[[dt]]$sex_age[[city_i]]$value), NA,dataRaw$response[[i]]$stats[[dt]]$sex_age[[city_i]]$value), - impressions_rate = ifelse(is.null(dataRaw$response[[i]]$stats[[dt]]$sex_age[[city_i]]$impressions_rate), NA,dataRaw$response[[i]]$stats[[dt]]$sex_age[[city_i]]$impressions_rate), - clicks_rate = ifelse(is.null(dataRaw$response[[i]]$stats[[dt]]$sex_age[[city_i]]$clicks_rate), NA,dataRaw$response[[i]]$stats[[dt]]$sex_age[[city_i]]$clicks_rate), - stringsAsFactors = F))} - } - } - if(period == "overall"){ - for(dt in 1:length(dataRaw$response[[i]]$stats)){ - - for(city_i in 1:length(dataRaw$response[[i]]$stats[[dt]]$sex_age)){ - - if(length(dataRaw$response[[i]]$stats[[dt]]$sex_age)==0) next - - result <- rbind(result, - data.frame(id = ifelse(is.null(dataRaw$response[[i]]$id), NA,dataRaw$response[[i]]$id), - type = ifelse(is.null(dataRaw$response[[i]]$type), NA,dataRaw$response[[i]]$type), - day_from = ifelse(is.null(dataRaw$response[[i]]$stats[[dt]]$day_from), NA,dataRaw$response[[i]]$stats[[dt]]$day_from), - day_to = ifelse(is.null(dataRaw$response[[i]]$stats[[dt]]$day_to), NA,dataRaw$response[[i]]$stats[[dt]]$day_to), - sex_age = ifelse(is.null(dataRaw$response[[i]]$stats[[dt]]$sex_age[[city_i]]$value), NA,dataRaw$response[[i]]$stats[[dt]]$sex_age[[city_i]]$value), - impressions_rate = ifelse(is.null(dataRaw$response[[i]]$stats[[dt]]$sex_age[[city_i]]$impressions_rate), NA,dataRaw$response[[i]]$stats[[dt]]$sex_age[[city_i]]$impressions_rate), - clicks_rate = ifelse(is.null(dataRaw$response[[i]]$stats[[dt]]$sex_age[[city_i]]$clicks_rate), NA,dataRaw$response[[i]]$stats[[dt]]$sex_age[[city_i]]$clicks_rate), - stringsAsFactors = F))} - } - } - - } - - - #Разделяем пол и возрасты в разные столбцы - result <- separate(data = result, sex_age, c("gender", "age"), ";") - #Возвращаем результирующий дата фрейм - return(result) -} diff --git a/en/R/vkGetAdGenderStats.R b/en/R/vkGetAdGenderStats.R deleted file mode 100644 index 7b8dc27..0000000 --- a/en/R/vkGetAdGenderStats.R +++ /dev/null @@ -1,108 +0,0 @@ -vkGetAdGenderStats <- function(account_id = NULL, - ids_type = "campaign", - ids = NULL, - period = "day", - date_from = Sys.Date() - 30, - date_to = Sys.Date(), - api_version = NULL, - access_token = NULL){ - if(is.null(access_token)){ - stop("Не заполнен access_token, этот аргумент является обязательным.") - } - - api_version <- api_version_checker(api_version) - - if(!(period %in% c("day","month","overall"))){ - stop("Неверное значение в аргументе period, доступные значения day, month и overall") - } - - #Переводим дату в месяц - if(period == "month"){ - date_from <- format(as.Date(as.character(date_from)), "%Y-%m") - date_to <- format(as.Date(as.character(date_to)), "%Y-%m") - } - - if(period == "overall"){ - date_from <- 0 - date_to <- 0 - } - - #Фильтр по статусу объявления - ids <- paste0(ids, collapse = ",") - - #Рещультирующая таблица - result <- data.frame() - - #Формируем запрос - query <- paste0("https://api.vk.com/method/ads.getDemographics?account_id=",account_id,"&ids_type=",ids_type,"&ids=",ids,"&period=",period,"&date_from=",date_from,"&date_to=",date_to,"&access_token=",access_token,"&v=",api_version) - answer <- GET(query) - stop_for_status(answer) - dataRaw <- content(answer, "parsed", "application/json") - - #Проверка ответа на ошибки - if(!is.null(dataRaw$error)){ - stop(paste0("Error ", dataRaw$error$error_code," - ", dataRaw$error$error_msg)) - } - - for(i in 1:length(dataRaw$response)){ - - #Парсинг результата - if(period == "day"){ - for(dt in 1:length(dataRaw$response[[i]]$stats)){ - - for(city_i in 1:length(dataRaw$response[[i]]$stats[[dt]]$sex)){ - - if(length(dataRaw$response[[i]]$stats[[dt]]$sex)==0) next - - result <- rbind(result, - data.frame(id = ifelse(is.null(dataRaw$response[[i]]$id), NA,dataRaw$response[[i]]$id), - type = ifelse(is.null(dataRaw$response[[i]]$type), NA,dataRaw$response[[i]]$type), - day = ifelse(is.null(dataRaw$response[[i]]$stats[[dt]]$day), NA,dataRaw$response[[i]]$stats[[dt]]$day), - gender = ifelse(is.null(dataRaw$response[[i]]$stats[[dt]]$sex[[city_i]]$value), NA,dataRaw$response[[i]]$stats[[dt]]$sex[[city_i]]$value), - impressions_rate = ifelse(is.null(dataRaw$response[[i]]$stats[[dt]]$sex[[city_i]]$impressions_rate), NA,dataRaw$response[[i]]$stats[[dt]]$sex[[city_i]]$impressions_rate), - clicks_rate = ifelse(is.null(dataRaw$response[[i]]$stats[[dt]]$sex[[city_i]]$clicks_rate), NA,dataRaw$response[[i]]$stats[[dt]]$sex[[city_i]]$clicks_rate), - stringsAsFactors = F))} - } - } - - if(period == "month"){ - for(dt in 1:length(dataRaw$response[[i]]$stats)){ - - for(city_i in 1:length(dataRaw$response[[i]]$stats[[dt]]$sex)){ - - if(length(dataRaw$response[[i]]$stats[[dt]]$sex)==0) next - - result <- rbind(result, - data.frame(id = ifelse(is.null(dataRaw$response[[i]]$id), NA,dataRaw$response[[i]]$id), - type = ifelse(is.null(dataRaw$response[[i]]$type), NA,dataRaw$response[[i]]$type), - month = ifelse(is.null(dataRaw$response[[i]]$stats[[dt]]$month), NA,dataRaw$response[[i]]$stats[[dt]]$month), - gender = ifelse(is.null(dataRaw$response[[i]]$stats[[dt]]$sex[[city_i]]$value), NA,dataRaw$response[[i]]$stats[[dt]]$sex[[city_i]]$value), - impressions_rate = ifelse(is.null(dataRaw$response[[i]]$stats[[dt]]$sex[[city_i]]$impressions_rate), NA,dataRaw$response[[i]]$stats[[dt]]$sex[[city_i]]$impressions_rate), - clicks_rate = ifelse(is.null(dataRaw$response[[i]]$stats[[dt]]$sex[[city_i]]$clicks_rate), NA,dataRaw$response[[i]]$stats[[dt]]$sex[[city_i]]$clicks_rate), - stringsAsFactors = F))} - } - } - if(period == "overall"){ - for(dt in 1:length(dataRaw$response[[i]]$stats)){ - - for(city_i in 1:length(dataRaw$response[[i]]$stats[[dt]]$sex)){ - - if(length(dataRaw$response[[i]]$stats[[dt]]$sex)==0) next - - result <- rbind(result, - data.frame(id = ifelse(is.null(dataRaw$response[[i]]$id), NA,dataRaw$response[[i]]$id), - type = ifelse(is.null(dataRaw$response[[i]]$type), NA,dataRaw$response[[i]]$type), - day_from = ifelse(is.null(dataRaw$response[[i]]$stats[[dt]]$day_from), NA,dataRaw$response[[i]]$stats[[dt]]$day_from), - day_to = ifelse(is.null(dataRaw$response[[i]]$stats[[dt]]$day_to), NA,dataRaw$response[[i]]$stats[[dt]]$day_to), - gender = ifelse(is.null(dataRaw$response[[i]]$stats[[dt]]$sex[[city_i]]$value), NA,dataRaw$response[[i]]$stats[[dt]]$sex[[city_i]]$value), - impressions_rate = ifelse(is.null(dataRaw$response[[i]]$stats[[dt]]$sex[[city_i]]$impressions_rate), NA,dataRaw$response[[i]]$stats[[dt]]$sex[[city_i]]$impressions_rate), - clicks_rate = ifelse(is.null(dataRaw$response[[i]]$stats[[dt]]$sex[[city_i]]$clicks_rate), NA,dataRaw$response[[i]]$stats[[dt]]$sex[[city_i]]$clicks_rate), - stringsAsFactors = F))} - } - } - - } - - - return(result) -} diff --git a/en/R/vkGetAdPostsReach.R b/en/R/vkGetAdPostsReach.R deleted file mode 100644 index 0a88fcc..0000000 --- a/en/R/vkGetAdPostsReach.R +++ /dev/null @@ -1,56 +0,0 @@ -vkGetAdPostsReach <- function(account_id = NULL, - ids_type = "campaign", - ids = NULL, - api_version = NULL, - access_token = NULL){ - if(is.null(access_token)){ - stop("Не заполнен access_token, тот а гумент является обязательным.") - } - - if(!(ids_type %in% c("ad","campaign"))){ - stop("Не верно указан а гумент ids_type, допустимые значения ad или campaign!") - } - - - api_version <- api_version_checker(api_version) - - - ids <- paste0(ids, collapse = ",") - - - result <- data.frame() - - - query <- paste0("https://api.vk.com/method/ads.getPostsReach?account_id=",account_id,"&ids_type=",ids_type,"&ids=",ids,"&access_token=",access_token,"&v=",api_version) - answer <- GET(query) - stop_for_status(answer) - dataRaw <- content(answer, "parsed", "application/json") - - - if(!is.null(dataRaw$error)){ - stop(paste0("Error ", dataRaw$error$error_code," - ", dataRaw$error$error_msg)) - } - - for(i in 1:length(dataRaw$response)){ - - result <- rbind(result, - data.frame(id = ifelse(is.null(dataRaw$response[[i]]$id), NA,dataRaw$response[[i]]$id), - reach_subscribers = ifelse(is.null(dataRaw$response[[i]]$reach_subscribers), NA,dataRaw$response[[i]]$reach_subscribers), - reach_total = ifelse(is.null(dataRaw$response[[i]]$reach_total), NA,dataRaw$response[[i]]$reach_total), - links = ifelse(is.null(dataRaw$response[[i]]$links), NA,dataRaw$response[[i]]$links), - to_group = ifelse(is.null(dataRaw$response[[i]]$to_group ), NA,dataRaw$response[[i]]$to_group), - join_group = ifelse(is.null(dataRaw$response[[i]]$join_group), NA,dataRaw$response[[i]]$join_group), - report = ifelse(is.null(dataRaw$response[[i]]$report), NA,dataRaw$response[[i]]$report), - hide = ifelse(is.null(dataRaw$response[[i]]$hide), NA,dataRaw$response[[i]]$hide), - unsubscribe = ifelse(is.null(dataRaw$response[[i]]$unsubscribe), NA,dataRaw$response[[i]]$unsubscribe), - video_views_start = ifelse(is.null(dataRaw$response[[i]]$video_views_start), NA,dataRaw$response[[i]]$video_views_start), - video_views_3s = ifelse(is.null(dataRaw$response[[i]]$video_views_3s), NA,dataRaw$response[[i]]$video_views_3s), - video_views_25p = ifelse(is.null(dataRaw$response[[i]]$video_views_25p), NA,dataRaw$response[[i]]$video_views_25p), - video_views_50p = ifelse(is.null(dataRaw$response[[i]]$video_views_50p), NA,dataRaw$response[[i]]$video_views_50p), - video_views_75p = ifelse(is.null(dataRaw$response[[i]]$video_views_75p), NA,dataRaw$response[[i]]$video_views_75p), - video_views_100p = ifelse(is.null(dataRaw$response[[i]]$video_views_100p), NA,dataRaw$response[[i]]$video_views_100p), - stringsAsFactors = F))} - - - return(result) -} diff --git a/en/R/vkGetAdStatistics.R b/en/R/vkGetAdStatistics.R deleted file mode 100644 index 0ce7c67..0000000 --- a/en/R/vkGetAdStatistics.R +++ /dev/null @@ -1,112 +0,0 @@ -vkGetAdStatistics <- function(account_id = NULL, - ids_type = "office", - ids = NULL, - period = "overall", - date_from = Sys.Date() - 30, - date_to = Sys.Date(), - api_version = NULL, - access_token = NULL){ - - if(is.null(access_token)){ - stop("Не заполнен access_token, этот аргумент является обязательным.") - } - - #Проверка версии API - api_version <- api_version_checker(api_version) - - if(!(period %in% c("day","month","overall"))){ - stop("Неверное значение в аргументе period, доступные значения day, month и overall") - } - - #Преобразуем фильтр по кампаниям в json массив - if(period == "month"){ - date_from <- format(as.Date(as.character(date_from)), "%Y-%m") - date_to <- format(as.Date(as.character(date_to)), "%Y-%m") - } - - if(period == "overall"){ - date_from <- 0 - date_to <- 0 - } - - - #Фильтр по статусу объявления - ids <- paste0(ids, collapse = ",") - - #Рещультирующая таблица - result <- data.frame() - - #Формируем запрос - query <- paste0("https://api.vk.com/method/ads.getStatistics?account_id=",account_id,"&ids_type=",ids_type,"&ids=",ids,"&period=",period,"&date_from=",date_from,"&date_to=",date_to,"&access_token=",access_token,"&v=",api_version) - answer <- GET(query) - stop_for_status(answer) - dataRaw <- content(answer, "parsed", "application/json") - - #Проверка ответа на ошибки - if(!is.null(dataRaw$error)){ - stop(paste0("Error ", dataRaw$error$error_code," - ", dataRaw$error$error_msg)) - } - - for(i in 1:length(dataRaw$response)){ - - #Парсинг результата - if(period == "day"){ - for(dt in 1:length(dataRaw$response[[i]]$stats)){ - if(length(dataRaw$response[[i]]$stats)==0) next - result <- rbind(result, - data.frame(id = ifelse(is.null(dataRaw$response[[i]]$id), NA,dataRaw$response[[i]]$id), - type = ifelse(is.null(dataRaw$response[[i]]$type), NA,dataRaw$response[[i]]$type), - day = ifelse(is.null(dataRaw$response[[i]]$stats[[dt]]$day), NA,dataRaw$response[[i]]$stats[[dt]]$day), - spent = ifelse(is.null(dataRaw$response[[i]]$stats[[dt]]$spent), NA,dataRaw$response[[i]]$stats[[dt]]$spent), - impressions = ifelse(is.null(dataRaw$response[[i]]$stats[[dt]]$impressions), NA,dataRaw$response[[i]]$stats[[dt]]$impressions), - clicks = ifelse(is.null(dataRaw$response[[i]]$stats[[dt]]$clicks), NA,dataRaw$response[[i]]$stats[[dt]]$clicks), - reach = ifelse(is.null(dataRaw$response[[i]]$stats[[dt]]$reach), NA,dataRaw$response[[i]]$stats[[dt]]$reach), - video_views = ifelse(is.null(dataRaw$response[[i]]$stats[[dt]]$video_views), NA,dataRaw$response[[i]]$stats[[dt]]$video_views), - video_views_half = ifelse(is.null(dataRaw$response[[i]]$stats[[dt]]$video_views_half), NA,dataRaw$response[[i]]$stats[[dt]]$video_views_half), - video_views_full = ifelse(is.null(dataRaw$response[[i]]$stats[[dt]]$video_views_full), NA,dataRaw$response[[i]]$stats[[dt]]$video_views_full), - video_clicks_site = ifelse(is.null(dataRaw$response[[i]]$stats[[dt]]$video_clicks_site), NA,dataRaw$response[[i]]$stats[[dt]]$video_clicks_site), - join_rate = ifelse(is.null(dataRaw$response[[i]]$stats[[dt]]$join_rate ), NA,dataRaw$response[[i]]$stats[[dt]]$join_rate), - stringsAsFactors = F))} - } - if(period == "month"){ - for(dt in 1:length(dataRaw$response[[i]]$stats)){ - if(length(dataRaw$response[[i]]$stats)==0) next - result <- rbind(result, - data.frame(id = ifelse(is.null(dataRaw$response[[i]]$id), NA,dataRaw$response[[i]]$id), - type = ifelse(is.null(dataRaw$response[[i]]$type), NA,dataRaw$response[[i]]$type), - month = ifelse(is.null(dataRaw$response[[i]]$stats[[dt]]$month), NA,dataRaw$response[[i]]$stats[[dt]]$month), - spent = ifelse(is.null(dataRaw$response[[i]]$stats[[dt]]$spent), NA,dataRaw$response[[i]]$stats[[dt]]$spent), - impressions = ifelse(is.null(dataRaw$response[[i]]$stats[[dt]]$impressions), NA,dataRaw$response[[i]]$stats[[dt]]$impressions), - clicks = ifelse(is.null(dataRaw$response[[i]]$stats[[dt]]$clicks), NA,dataRaw$response[[i]]$stats[[dt]]$clicks), - reach = ifelse(is.null(dataRaw$response[[i]]$stats[[dt]]$reach), NA,dataRaw$response[[i]]$stats[[dt]]$reach), - video_views = ifelse(is.null(dataRaw$response[[i]]$stats[[dt]]$video_views), NA,dataRaw$response[[i]]$stats[[dt]]$video_views), - video_views_half = ifelse(is.null(dataRaw$response[[i]]$stats[[dt]]$video_views_half), NA,dataRaw$response[[i]]$stats[[dt]]$video_views_half), - video_views_full = ifelse(is.null(dataRaw$response[[i]]$stats[[dt]]$video_views_full), NA,dataRaw$response[[i]]$stats[[dt]]$video_views_full), - video_clicks_site = ifelse(is.null(dataRaw$response[[i]]$stats[[dt]]$video_clicks_site), NA,dataRaw$response[[i]]$stats[[dt]]$video_clicks_site), - join_rate = ifelse(is.null(dataRaw$response[[i]]$stats[[dt]]$join_rate ), NA,dataRaw$response[[i]]$stats[[dt]]$join_rate), - stringsAsFactors = F))} - } - if(period == "overall"){ - for(dt in 1:length(dataRaw$response[[i]]$stats)){ - if(length(dataRaw$response[[i]]$stats)==0) next - result <- rbind(result, - data.frame(id = ifelse(is.null(dataRaw$response[[i]]$id), NA,dataRaw$response[[i]]$id), - type = ifelse(is.null(dataRaw$response[[i]]$type), NA,dataRaw$response[[i]]$type), - day_from = ifelse(is.null(dataRaw$response[[i]]$stats[[dt]]$day_from), NA,dataRaw$response[[i]]$stats[[dt]]$day_from), - day_to = ifelse(is.null(dataRaw$response[[i]]$stats[[dt]]$day_to), NA,dataRaw$response[[i]]$stats[[dt]]$day_to), - spent = ifelse(is.null(dataRaw$response[[i]]$stats[[dt]]$spent), NA,dataRaw$response[[i]]$stats[[dt]]$spent), - impressions = ifelse(is.null(dataRaw$response[[i]]$stats[[dt]]$impressions), NA,dataRaw$response[[i]]$stats[[dt]]$impressions), - clicks = ifelse(is.null(dataRaw$response[[i]]$stats[[dt]]$clicks), NA,dataRaw$response[[i]]$stats[[dt]]$clicks), - reach = ifelse(is.null(dataRaw$response[[i]]$stats[[dt]]$reach), NA,dataRaw$response[[i]]$stats[[dt]]$reach), - video_views = ifelse(is.null(dataRaw$response[[i]]$stats[[dt]]$video_views), NA,dataRaw$response[[i]]$stats[[dt]]$video_views), - video_views_half = ifelse(is.null(dataRaw$response[[i]]$stats[[dt]]$video_views_half), NA,dataRaw$response[[i]]$stats[[dt]]$video_views_half), - video_views_full = ifelse(is.null(dataRaw$response[[i]]$stats[[dt]]$video_views_full), NA,dataRaw$response[[i]]$stats[[dt]]$video_views_full), - video_clicks_site = ifelse(is.null(dataRaw$response[[i]]$stats[[dt]]$video_clicks_site), NA,dataRaw$response[[i]]$stats[[dt]]$video_clicks_site), - join_rate = ifelse(is.null(dataRaw$response[[i]]$stats[[dt]]$join_rate ), NA,dataRaw$response[[i]]$stats[[dt]]$join_rate), - stringsAsFactors = F))} - } -} - - result$spent <- as.numeric(result$spent) - return(result) -} diff --git a/en/R/vkGetAds.R b/en/R/vkGetAds.R deleted file mode 100644 index 805974c..0000000 --- a/en/R/vkGetAds.R +++ /dev/null @@ -1,124 +0,0 @@ -vkGetAds <- function(account_id = NULL, - client_id = NULL, - include_deleted = TRUE, - campaign_ids = "null", - ad_ids = "null", - status_names = TRUE, - api_version = NULL, - access_token = NULL){ - - if(is.null(access_token)){ - stop("Не заполнен access_token, этот аргумент является обязательным.") - } - - #Проверка версии API - api_version <- api_version_checker(api_version) - - #Преобразуем фильтр по кампаниям в json массив - if(campaign_ids != "null"){ - campaign_ids <- toJSON(campaign_ids) - } - - #Преобразуем фильтр по кампаниям в json массив - if(ad_ids != "null"){ - ad_ids <- toJSON(ad_ids) - } - - #Фильтр по статусу объявления - include_deleted <- ifelse(include_deleted == T,1,0) - - #Результирующий дата фрейм - result <- data.frame(id = integer(0), - campaign_id = integer(0), - name = character(0), - status = character(0), - ad_format = character(0), - approved = character(0), - all_limit = integer(0), - create_time = character(0), - update_time = character(0), - age_restriction = integer(0), - category1_id = integer(0), - category2_id = integer(0), - cost_type = integer(0), - cpc = numeric(0), - cpm = numeric(0), - impressions_limit = integer(0), - impressions_limited = integer(0), - ad_platform = integer(0), - video = integer(0), - stringsAsFactors = F) - - - #Формируем запрос - query <- paste0("https://api.vk.com/method/ads.getAds?account_id=",account_id,ifelse(is.null(client_id), "",paste0("&client_id=",client_id)),"&include_deleted=",include_deleted,"&campaign_ids=",campaign_ids,"&ad_ids=",ad_ids,"&access_token=",access_token,"&v=",api_version) - answer <- GET(query) - stop_for_status(answer) - dataRaw <- content(answer, "parsed", "application/json") - - #Проверка ответа на ошибки - if(!is.null(dataRaw$error)){ - stop(paste0("Error ", dataRaw$error$error_code," - ", dataRaw$error$error_msg)) - } - - #Парсинг результата - for(i in 1:length(dataRaw$response)){ - result <- rbind(result, - data.frame(id = ifelse(is.null(dataRaw$response[[i]]$id), NA,dataRaw$response[[i]]$id), - campaign_id = ifelse(is.null(dataRaw$response[[i]]$campaign_id), NA,dataRaw$response[[i]]$campaign_id), - name = ifelse(is.null(dataRaw$response[[i]]$name), NA,dataRaw$response[[i]]$name), - status = ifelse(is.null(dataRaw$response[[i]]$status), NA,dataRaw$response[[i]]$status), - ad_format = ifelse(is.null(dataRaw$response[[i]]$ad_format), NA,dataRaw$response[[i]]$ad_format), - approved = ifelse(is.null(dataRaw$response[[i]]$approved), NA,dataRaw$response[[i]]$approved), - all_limit = ifelse(is.null(dataRaw$response[[i]]$all_limit), NA,dataRaw$response[[i]]$all_limit), - create_time = ifelse(is.null(dataRaw$response[[i]]$create_time), NA,as.POSIXct(as.integer(dataRaw$response[[i]]$create_time), origin="1970-01-01")), - update_time = ifelse(is.null(dataRaw$response[[i]]$update_time), NA,as.POSIXct(as.integer(dataRaw$response[[i]]$update_time), origin="1970-01-01")), - age_restriction = ifelse(is.null(dataRaw$response[[i]]$age_restriction), NA,dataRaw$response[[i]]$age_restriction), - category1_id = ifelse(is.null(dataRaw$response[[i]]$category1_id), NA,dataRaw$response[[i]]$category1_id), - category2_id = ifelse(is.null(dataRaw$response[[i]]$category2_id), NA,dataRaw$response[[i]]$category2_id), - cost_type = ifelse(is.null(dataRaw$response[[i]]$cost_type), NA,dataRaw$response[[i]]$cost_type), - cpc = ifelse(is.null(dataRaw$response[[i]]$cpc), NA,dataRaw$response[[i]]$cpc), - cpm = ifelse(is.null(dataRaw$response[[i]]$cpm), NA,dataRaw$response[[i]]$cpm), - impressions_limit = ifelse(is.null(dataRaw$response[[i]]$impressions_limit), NA,dataRaw$response[[i]]$impressions_limit), - impressions_limited = ifelse(is.null(dataRaw$response[[i]]$impressions_limited), NA,dataRaw$response[[i]]$impressions_limited), - ad_platform = ifelse(is.null(dataRaw$response[[i]]$ad_platform), NA,dataRaw$response[[i]]$ad_platform), - video = ifelse(is.null(dataRaw$response[[i]]$video), NA,dataRaw$response[[i]]$video), - stringsAsFactors = F))} - -if(status_names == TRUE){ - #Преобразуем переменные в правильный формат - result$create_time <- as.POSIXct(as.integer(result$create_time), origin="1970-01-01") - result$update_time <- as.POSIXct(as.integer(result$update_time), origin="1970-01-01") - - #Загружаем справочник форматов объвлений - ad_formats <- getURL("https://raw.githubusercontent.com/selesnow/rvkstat/master/Dictionary/ad.formats.csv", .encoding = "1251") - ad_formats <- read.csv(text = ad_formats, sep = ";") - result$ad_format <- as.character(merge(result, ad_formats, by.x = "ad_format", by.y = "id", all.x = T)$format) - - #Загружаем справочник статусов модерации объявлений - ad_approveds <- getURL("https://raw.githubusercontent.com/selesnow/rvkstat/master/Dictionary/ad.approveds.csv", .encoding = "1251") - ad_approveds <- read.csv(text = ad_approveds, sep = ";") - result$approved <- as.character(merge(result, ad_approveds, by.x = "approved", by.y = "id", all.x = T)$approved_name) - - #Загружаем справочник типов оплат - ad_cost_type <- getURL("https://raw.githubusercontent.com/selesnow/rvkstat/master/Dictionary/ad.cost_type.csv", .encoding = "1251") - ad_cost_type <- read.csv(text = ad_cost_type, sep = ";") - result$cost_type <- as.character(merge(result, ad_cost_type, by.x = "cost_type", by.y = "id", all.x = T)$cost_type_name) - - #Загружаем справочник возрастных меток - ad_age_restriction <- getURL("https://raw.githubusercontent.com/selesnow/rvkstat/master/Dictionary/ad.age_restriction.csv", .encoding = "1251") - ad_age_restriction <- read.csv(text = ad_age_restriction, sep = ";") - result$age_restriction <- as.character(merge(result, ad_age_restriction, by.x = "age_restriction", by.y = "id", all.x = T)$age_label) - - #Справочник статусов - ad_status <- getURL("https://raw.githubusercontent.com/selesnow/rvkstat/master/Dictionary/ad.status.csv", .encoding = "1251") - ad_status <- read.csv(text = ad_status, sep = ";") - result$status <- as.character(merge(result, ad_status, by.x = "status", by.y = "id", all.x = T)$status_name)} - -#Преобрахуем в числовой формат -result$cpc <- as.numeric(result$cpc) / 100 -result$cpm <- as.numeric(result$cpm) / 100 - -#Возвращаем результат -return(result) -} diff --git a/en/R/vkGetAdsLayout.R b/en/R/vkGetAdsLayout.R deleted file mode 100644 index 25f1398..0000000 --- a/en/R/vkGetAdsLayout.R +++ /dev/null @@ -1,86 +0,0 @@ -vkGetAdsLayout <- function(account_id = NULL, - client_id = NULL, - include_deleted = TRUE, - campaign_ids = "null", - ad_ids = "null", - api_version = NULL, - status_names = TRUE, - access_token = NULL){ - - - if(is.null(access_token)){ - stop("Не заполнен access_token, этот аргумент является обязательным.") - } - - #Проверка версии API - api_version <- api_version_checker(api_version) - - #Преобразуем фильтр по кампаниям в json массив - if(campaign_ids != "null"){ - campaign_ids <- toJSON(campaign_ids) - } - - #Преобразуем фильтр по кампаниям в json массив - if(ad_ids != "null"){ - ad_ids <- toJSON(ad_ids) - } - - #Фильтр по статусу объявления - include_deleted <- ifelse(include_deleted == T,1,0) - - #Результирующий дата фрейм - result <- data.frame(id = integer(0), - campaign_id = integer(0), - title = character(0), - link_url = character(0), - link_domain = character(0), - cost_type = character(0), - ad_format = integer(0), - preview_link = character(0), - image_src = character(0), - stringsAsFactors = F) - - - #Формируем запрос - query <- paste0("https://api.vk.com/method/ads.getAdsLayout?account_id=",account_id,ifelse(is.null(client_id), "",paste0("&client_id=",client_id)),"&include_deleted=",include_deleted,"&campaign_ids=",campaign_ids,"&ad_ids=",ad_ids,"&access_token=",access_token,"&v=",api_version) - answer <- GET(query) - stop_for_status(answer) - dataRaw <- content(answer, "parsed", "application/json") - - #Проверка ответа на ошибки - if(!is.null(dataRaw$error)){ - stop(paste0("Error ", dataRaw$error$error_code," - ", dataRaw$error$error_msg)) - } - - - #Парсинг результата - for(i in 1:length(dataRaw$response)){ - result <- rbind(result, - data.frame(id = ifelse(is.null(dataRaw$response[[i]]$id), NA,dataRaw$response[[i]]$id), - campaign_id = ifelse(is.null(dataRaw$response[[i]]$campaign_id), NA,dataRaw$response[[i]]$campaign_id), - age_restriction = ifelse(is.null(dataRaw$response[[i]]$age_restriction), NA,dataRaw$response[[i]]$age_restriction), - title = ifelse(is.null(dataRaw$response[[i]]$title), NA,dataRaw$response[[i]]$title), - link_url = ifelse(is.null(dataRaw$response[[i]]$link_url), NA,dataRaw$response[[i]]$link_url), - link_domain = ifelse(is.null(dataRaw$response[[i]]$link_domain), NA,dataRaw$response[[i]]$link_domain), - cost_type = ifelse(is.null(dataRaw$response[[i]]$cost_type), NA,dataRaw$response[[i]]$cost_type), - ad_format = ifelse(is.null(dataRaw$response[[i]]$ad_format), NA,dataRaw$response[[i]]$ad_format), - preview_link = ifelse(is.null(dataRaw$response[[i]]$preview_link), NA,dataRaw$response[[i]]$preview_link), - image_src = ifelse(is.null(dataRaw$response[[i]]$image_src), NA,dataRaw$response[[i]]$image_src), - stringsAsFactors = F))} - if(status_names == TRUE){ - #Загружаем справочник форматов объвлений - ad_formats <- getURL("https://raw.githubusercontent.com/selesnow/rvkstat/master/Dictionary/ad.formats.csv", .encoding = "1251") - ad_formats <- read.csv(text = ad_formats, sep = ";") - result$ad_format <- as.character(merge(result, ad_formats, by.x = "ad_format", by.y = "id", all.x = T)$format) - - #Загружаем справочник типов оплат - ad_cost_type <- getURL("https://raw.githubusercontent.com/selesnow/rvkstat/master/Dictionary/ad.cost_type.csv", .encoding = "1251") - ad_cost_type <- read.csv(text = ad_cost_type, sep = ";") - result$cost_type <- as.character(merge(result, ad_cost_type, by.x = "cost_type", by.y = "id", all.x = T)$cost_type_name)} - - #Возвращаем результат - return(result) - - - -} diff --git a/en/R/vkGetDbCities.R b/en/R/vkGetDbCities.R deleted file mode 100644 index 493709c..0000000 --- a/en/R/vkGetDbCities.R +++ /dev/null @@ -1,70 +0,0 @@ -vkGetDbCities <- function(country_id = TRUE, - region_id = NULL, - q = NULL, - need_all = TRUE, - api_version = NULL, - access_token = NULL){ - - if(is.null(access_token)){ - stop("Не заполнен access_token, этот аргумент является обязательным.") - } - - #Фильтр по статусу объявления - if(is.null(country_id)){ - stop("Не заполнен country_id, этот аргумент является обязательным.") - } - - #Фильтр по статусу объявления - if(nchar(q) > 15 && !(is.null(q))){ - stop(paste0("В аргументе q максимальная длина строки — 15 символов. Вы ввели щапрос состоящий из ", nchar(q)," символов!")) - } - - api_version <- api_version_checker(api_version) - - if(need_all == TRUE){ - need_all <- 1 - } else { - need_all <- 0 - } - - #Результирующий дата фрейм - result <- data.frame() - - - #Постраничная выгрузка - offset <- 0 - count <- 1000 - last_iteration <- FALSE - - while(last_iteration == FALSE){ - - #Формируем запрос - query <- paste0("https://api.vk.com/method/database.getCities?need_all=",need_all,"&country_id=",country_id,ifelse(!(is.null(region_id)),paste0("®ion_id=",region_id),""),ifelse(!(is.null(q)),paste0("&q=",q),""),"&offset=",offset,"&count=",count,"&access_token=",access_token,"&v=",api_version) - answer <- GET(query) - stop_for_status(answer) - dataRaw <- content(answer, "parsed", "application/json") - - #Проверка ответа на ошибки - if(!is.null(dataRaw$error)){ - stop(paste0("Error ", dataRaw$error$error_code," - ", dataRaw$error$error_msg)) - } - - #Парсинг результата - for(i in 1:length(dataRaw$response)){ - result <- rbind(result, - data.frame(cid = ifelse(is.null(dataRaw$response[[i]]$cid), NA,dataRaw$response[[i]]$cid), - title = ifelse(is.null(dataRaw$response[[i]]$title), NA,dataRaw$response[[i]]$title), - important = ifelse(is.null(dataRaw$response[[i]]$important), NA,dataRaw$response[[i]]$important), - area = ifelse(is.null(dataRaw$response[[i]]$area), NA,dataRaw$response[[i]]$area), - region = ifelse(is.null(dataRaw$response[[i]]$region), NA,dataRaw$response[[i]]$region), - stringsAsFactors = F))} - - if(length(dataRaw$response) < 1000){ - last_iteration <- TRUE} - - #Смещаем offet - offset <- offset + count - } - - return(result) -} diff --git a/en/R/vkGetDbCountries.R b/en/R/vkGetDbCountries.R deleted file mode 100644 index be7be1a..0000000 --- a/en/R/vkGetDbCountries.R +++ /dev/null @@ -1,52 +0,0 @@ -vkGetDbCountries <- function(need_all = TRUE, - code = NULL, - api_version = NULL, - access_token = NULL){ - - if(is.null(access_token)){ - stop("Не заполнен access_token, этот аргумент является обязательным.") - } - - api_version <- api_version_checker(api_version) - - #Фильтр по статусу объявления - if(!(is.null(code))){ - code <- paste0(code, collapse = ",") - } - - if(need_all == TRUE){ - need_all <- 1 - } else { - need_all <- 0 - } - - #Результирующий дата фрейм - result <- data.frame() - - - #Постраничная выгрузка - offset <- 0 - count <- 1000 - - - #Формируем запрос - query <- paste0("https://api.vk.com/method/database.getCountries?need_all=",need_all,ifelse(!(is.null(code)),paste0("&code=",code),""),"&offset=",offset,"&count=",count,"&access_token=",access_token,"&v=",api_version) - answer <- GET(query) - stop_for_status(answer) - dataRaw <- content(answer, "parsed", "application/json") - - #Проверка ответа на ошибки - if(!is.null(dataRaw$error)){ - stop(paste0("Error ", dataRaw$error$error_code," - ", dataRaw$error$error_msg)) - } - - #Парсинг результата - for(i in 1:length(dataRaw$response)){ - result <- rbind(result, - data.frame(cid = ifelse(is.null(dataRaw$response[[i]]$cid), NA,dataRaw$response[[i]]$cid), - title = ifelse(is.null(dataRaw$response[[i]]$title), NA,dataRaw$response[[i]]$title), - stringsAsFactors = F))} - - return(result) -} - diff --git a/en/R/vkGetDbRegions.R b/en/R/vkGetDbRegions.R deleted file mode 100644 index e206d02..0000000 --- a/en/R/vkGetDbRegions.R +++ /dev/null @@ -1,62 +0,0 @@ -vkGetDbRegions <- function(country_id = NULL, - q = NULL, - api_version = NULL, - access_token = NULL){ - - if(is.null(access_token)){ - stop("Не заполнен access_token, этот аргумент является обязательным.") - } - - - #Фильтр по статусу объявления - if(nchar(q) > 15 && !(is.null(q))){ - stop(paste0("В аргументе q максимальная длина строки — 15 символов. Вы ввели щапрос состоящий из ", nchar(q)," символов!")) - } - - api_version <- api_version_checker(api_version) - - if(need_all == TRUE){ - need_all <- 1 - } else { - need_all <- 0 - } - - #Результирующий дата фрейм - result <- data.frame() - - - #Постраничная выгрузка - offset <- 0 - count <- 1000 - last_iteration <- FALSE - - while(last_iteration == FALSE){ - - #Формируем запрос - query <- paste0("https://api.vk.com/method/database.getRegions?need_all=",need_all,"&country_id=",country_id,ifelse(!(is.null(region_id)),paste0("®ion_id=",region_id),""),ifelse(!(is.null(q)),paste0("&q=",q),""),"&offset=",offset,"&count=",count,"&access_token=",access_token,"&v=",api_version) - answer <- GET(query) - stop_for_status(answer) - dataRaw <- content(answer, "parsed", "application/json") - - #Проверка ответа на ошибки - if(!is.null(dataRaw$error)){ - stop(paste0("Error ", dataRaw$error$error_code," - ", dataRaw$error$error_msg)) - } - - #Парсинг результата - for(i in 1:length(dataRaw$response)){ - result <- rbind(result, - data.frame(region_id = ifelse(is.null(dataRaw$response[[i]]$region_id), NA,dataRaw$response[[i]]$region_id), - title = ifelse(is.null(dataRaw$response[[i]]$title), NA,dataRaw$response[[i]]$title), - stringsAsFactors = F))} - - if(length(dataRaw$response) < 1000){ - last_iteration <- TRUE} - - #Смещаем offet - offset <- offset + count - } - - return(result) -} - diff --git a/en/R/vkGetGroupStat.R b/en/R/vkGetGroupStat.R deleted file mode 100644 index 1352ff4..0000000 --- a/en/R/vkGetGroupStat.R +++ /dev/null @@ -1,25 +0,0 @@ -vkGetGroupStat <- -function(date_from = Sys.Date(), date_to = Sys.Date(), group_id = NULL, access_token = NULL){ - #Create query text - apiQuery <- paste0("https://api.vk.com/method/stats.get?group_id=",group_id,"&date_from=",date_from,"&date_to=",date_to,"&v=5.52&access_token=",access_token) - - #Get json data - vkdatajson <- getURL(apiQuery) - - #Transform json to list - vkdatalist <- fromJSON(vkdatajson) - - #Transform list to data frame - vkdataRaw <- as.data.frame(vkdatalist) - - vkData <- data.frame(day = vkdataRaw$response.day, - views = vkdataRaw$response.views, - visitors = vkdataRaw$response.visitors, - total_reach = vkdataRaw$response.reach, - subscribers_reach = vkdataRaw$response.reach_subscribers, - subscribed = vkdataRaw$response.subscribed, - unsubscribed = vkdataRaw$response.unsubscribed) - colnames(vkData) <- c("Date","Views","Visitors","TotalReach","SubscribersReach","Subscribed","Unsubscribed") - vkData$Date <- as.POSIXct(vkData$Date, format = "%Y-%m-%d") - return(vkData) -} diff --git a/en/R/vkGetGroupStatAge.R b/en/R/vkGetGroupStatAge.R deleted file mode 100644 index 7fb2c70..0000000 --- a/en/R/vkGetGroupStatAge.R +++ /dev/null @@ -1,32 +0,0 @@ -vkGetGroupStatAge <- -function(date_from = Sys.Date(), date_to = Sys.Date(), group_id = NULL, access_token = NULL){ - #Create query text - apiQuery <- paste0("https://api.vk.com/method/stats.get?group_id=",group_id,"&date_from=",date_from,"&date_to=",date_to,"&v=5.52&access_token=",access_token) - - #Get json data - vkdatajson <- getURL(apiQuery) - - #Transform json to list - vkdatalist <- fromJSON(vkdatajson) - - #Transform list to data frame - vkdataRaw <- as.data.frame(vkdatalist) - - #Check stringsAsFactors - if(getOption("stringsAsFactors")) isFactor <- "Yes" else isFactor <- "No" - if(isFactor == "Yes") options(stringsAsFactors = FALSE) - - vkAge <- data.frame() - for (i in 1:length(vkdataRaw$response.day)) { - temp <- data.frame() - try(temp <- data.frame(date = vkdataRaw$response.day[i],do.call(rbind.data.frame, vkdataRaw$response.age[i])), silent = TRUE) - try(vkAge <- rbind(vkAge, temp),silent = TRUE) - try(rm(temp), silent = TRUE)} - colnames(vkAge) <- c("Date", "Visitors", "AgeGroup") - vkAge <- vkAge[c(1,3,2)] - vkAge$Date <- as.POSIXct(vkAge$Date, format = "%Y-%m-%d") - vkAge$AgeGroup <- as.factor(vkAge$AgeGroup) - return(vkAge) - - if(isFactor == "Yes") options(stringsAsFactors = TRUE) -} diff --git a/en/R/vkGetGroupStatCity.R b/en/R/vkGetGroupStatCity.R deleted file mode 100644 index b2349bb..0000000 --- a/en/R/vkGetGroupStatCity.R +++ /dev/null @@ -1,31 +0,0 @@ -vkGetGroupStatCity <- -function(date_from = Sys.Date(), date_to = Sys.Date(), group_id = NULL, access_token = NULL){ - #Create query text - apiQuery <- paste0("https://api.vk.com/method/stats.get?group_id=",group_id,"&date_from=",date_from,"&date_to=",date_to,"&v=5.52&access_token=",access_token) - - #Get json data - vkdatajson <- getURL(apiQuery) - - #Transform json to list - vkdatalist <- fromJSON(vkdatajson) - - #Transform list to data frame - vkdataRaw <- as.data.frame(vkdatalist) - - #Check stringsAsFactors - if(getOption("stringsAsFactors")) isFactor <- "Yes" else isFactor <- "No" - if(isFactor == "Yes") options(stringsAsFactors = FALSE) - - vkCities <- data.frame() - for (i in 1:length(vkdataRaw$response.day)) { - temp <- data.frame() - try(temp <- data.frame(date = vkdataRaw$response.day[i],do.call(rbind.data.frame, vkdataRaw$response.cities[i])), silent = TRUE) - try(vkCities <- rbind(vkCities, temp), silent = TRUE) - try(rm(temp), silent = TRUE)} - colnames(vkCities) <- c("Date", "Visitors", "CityID", "CityName") - vkCities <- vkCities[c(1,4,3,2)] - vkCities$Date <- as.POSIXct(vkCities$Date, format = "%Y-%m-%d") - return(vkCities) - - if(isFactor == "Yes") options(stringsAsFactors = TRUE) -} diff --git a/en/R/vkGetGroupStatCountries.R b/en/R/vkGetGroupStatCountries.R deleted file mode 100644 index b79796a..0000000 --- a/en/R/vkGetGroupStatCountries.R +++ /dev/null @@ -1,31 +0,0 @@ -vkGetGroupStatCountries <- -function(date_from = Sys.Date(), date_to = Sys.Date(), group_id = NULL, access_token = NULL){ - #Create query text - apiQuery <- paste0("https://api.vk.com/method/stats.get?group_id=",group_id,"&date_from=",date_from,"&date_to=",date_to,"&v=5.52&access_token=",access_token) - - #Get json data - vkdatajson <- getURL(apiQuery) - - #Transform json to list - vkdatalist <- fromJSON(vkdatajson) - - #Transform list to data frame - vkdataRaw <- as.data.frame(vkdatalist) - - #Check stringsAsFactors - if(getOption("stringsAsFactors")) isFactor <- "Yes" else isFactor <- "No" - if(isFactor == "Yes") options(stringsAsFactors = FALSE) - - vkCountries <- data.frame() - for (i in 1:length(vkdataRaw$response.day)) { - temp <- data.frame() - try(temp <- data.frame(date = vkdataRaw$response.day[i],do.call(rbind.data.frame, vkdataRaw$response.countries[i])), silent = TRUE) - try(vkCountries <- rbind(vkCountries, temp), silent = TRUE) - try(rm(temp), silent = TRUE)} - colnames(vkCountries) <- c("Date", "Visitors", "CountryID", "CountryCode", "CountryName") - vkCountries <- vkCountries[c(1,5,4,3,2)] - vkCountries$Date <- as.POSIXct(vkCountries$Date, format = "%Y-%m-%d") - return(vkCountries) - - if(isFactor == "Yes") options(stringsAsFactors = TRUE) -} diff --git a/en/R/vkGetGroupStatGender.R b/en/R/vkGetGroupStatGender.R deleted file mode 100644 index cdedb95..0000000 --- a/en/R/vkGetGroupStatGender.R +++ /dev/null @@ -1,32 +0,0 @@ -vkGetGroupStatGender <- -function(date_from = Sys.Date(), date_to = Sys.Date(), group_id = NULL, access_token = NULL){ - #Create query text - apiQuery <- paste0("https://api.vk.com/method/stats.get?group_id=",group_id,"&date_from=",date_from,"&date_to=",date_to,"&v=5.52&access_token=",access_token) - - #Get json data - vkdatajson <- getURL(apiQuery) - - #Transform json to list - vkdatalist <- fromJSON(vkdatajson) - - #Transform list to data frame - vkdataRaw <- as.data.frame(vkdatalist) - - #Check stringsAsFactors - if(getOption("stringsAsFactors")) isFactor <- "Yes" else isFactor <- "No" - if(isFactor == "Yes") options(stringsAsFactors = FALSE) - - vkGender <- data.frame() - for (i in 1:length(vkdataRaw$response.day)) { - temp <- data.frame() - try(temp <- data.frame(date = vkdataRaw$response.day[i],do.call(rbind.data.frame, vkdataRaw$response.sex[i])), TRUE) - try(vkGender <- rbind(vkGender, temp),TRUE) - try(rm(temp))} - colnames(vkGender) <- c("Date", "Visitors", "Gender") - vkGender <- vkGender[c(1,3,2)] - vkGender$Date <- as.POSIXct(vkGender$Date, format = "%Y-%m-%d") - vkGender$Gender <- as.factor(vkGender$Gender) - return(vkGender) - - if(isFactor == "Yes") options(stringsAsFactors = TRUE) -} diff --git a/en/R/vkGetGroupStatGenderAge.R b/en/R/vkGetGroupStatGenderAge.R deleted file mode 100644 index 56b2ebf..0000000 --- a/en/R/vkGetGroupStatGenderAge.R +++ /dev/null @@ -1,40 +0,0 @@ -vkGetGroupStatGenderAge <- -function(date_from = Sys.Date(), date_to = Sys.Date(), group_id = NULL, access_token = NULL){ - #Create query text - apiQuery <- paste0("https://api.vk.com/method/stats.get?group_id=",group_id,"&date_from=",date_from,"&date_to=",date_to,"&v=5.52&access_token=",access_token) - - #Get json data - vkdatajson <- getURL(apiQuery) - - #Transform json to list - vkdatalist <- fromJSON(vkdatajson) - - #Transform list to data frame - vkdataRaw <- as.data.frame(vkdatalist) - - #Check stringsAsFactors - if(getOption("stringsAsFactors")) isFactor <- "Yes" else isFactor <- "No" - if(isFactor == "Yes") options(stringsAsFactors = FALSE) - - vkGenderAge <- data.frame() - for (i in 1:length(vkdataRaw$response.day)) { - temp <- data.frame() - try(temp <- data.frame(date = vkdataRaw$response.day[i],do.call(rbind.data.frame, vkdataRaw$response.sex_age[i])), TRUE) - try(vkGenderAge <- rbind(vkGenderAge, temp),TRUE) - try(rm(temp),TRUE)} - colnames(vkGenderAge) <- c("Date","Visitors","Value") - vkGenderAge$Gender <- substr(vkGenderAge$Value,1,regexpr(";",vkGenderAge$Value)-1) - vkGenderAge$AgeGroup <- substr(vkGenderAge$Value,regexpr(";",vkGenderAge$Value)+1,nchar(vkGenderAge$Value)) - vkGenderAge$Value <- NULL - #vkGenderAge <- data.frame(Date <- vkGenderAge$date, - # Gender <- vkGenderAge$Gender, - # AgeGroup <- vkGenderAge$AgeGroup, - # Visitors <- vkGenderAge$visitors) - vkGenderAge$Date <- as.POSIXct(vkGenderAge$Date, format = "%Y-%m-%d") - vkGenderAge$Gender <- as.factor(vkGenderAge$Gender) - vkGenderAge$AgeGroup <- as.factor(vkGenderAge$AgeGroup) - - return(vkGenderAge[c(1,3,4,2)]) - - if(isFactor == "Yes") options(stringsAsFactors = TRUE) -} diff --git a/en/R/vkGetGroupStatPostReach.R b/en/R/vkGetGroupStatPostReach.R deleted file mode 100644 index e7c85d0..0000000 --- a/en/R/vkGetGroupStatPostReach.R +++ /dev/null @@ -1,32 +0,0 @@ -vkGetGroupStatPostReach <- function(owner_id = NULL, - post_ids = NULL, - api_version = NULL, - access_token = NULL){ - - if(is.null(access_token)){ - stop("Íå çàïîëíåí access_token, ýòîò àðãóìåíò ÿâëÿåòñÿ îáÿçàòåëüíûì.") - } - - #Ïðîâåðêà âåðñèè API - api_version <- api_version_checker(api_version) - - #Ðåùóëüòèðóþùàÿ òàáëèöà - result <- data.frame(stringsAsFactors = F) - - for (post_id in post_ids){ - #Send query - answer <- GET("https://api.vk.com/method/stats.getPostReach", query = list(owner_id = owner_id, post_id = post_id, v = api_version, access_token = access_token)) - stop_for_status(answer) - dataRaw <- content(answer, "parsed", "application/json") - - #I?iaa?ea ioaaoa ia ioeaee - if(!is.null(dataRaw$error)){ - stop(paste0("Error ", dataRaw$error$error_code," - ", dataRaw$error$error_msg)) - } - - result <- rbind(result, cbind(do.call(cbind, dataRaw$response[[1]]), post_id)) - Sys.sleep(1) - } - return(result) -} - diff --git a/en/R/vkGetGroupToken.R b/en/R/vkGetGroupToken.R deleted file mode 100644 index 1c144d2..0000000 --- a/en/R/vkGetGroupToken.R +++ /dev/null @@ -1,9 +0,0 @@ -vkGetGroupToken <- - function(app_id = NULL, group_ids = NULL) { - group_ids <- paste0(group_ids, collapse = ",") - tokenURL <- paste0("https://oauth.vk.com/authorize?client_id=",app_id,"&group_ids=",group_ids,"&display=popup&redirect_uri=https://oauth.vk.com/blank.html&scope=messages,manage,photos,docs,stories&response_type=token&v=5.68") - browseURL(tokenURL) - vkToken <- readline("Your vk token from URL parameter access_token: ") - save(vkToken, file = "vkauth") - return(vkToken) - } diff --git a/en/R/vkGetToken.R b/en/R/vkGetToken.R deleted file mode 100644 index 96204b0..0000000 --- a/en/R/vkGetToken.R +++ /dev/null @@ -1,8 +0,0 @@ -vkGetToken <- -function(app_id = NULL) { -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: ") -save(vkToken, file = "vkauth") -return(vkToken) -} diff --git a/en/R/vkGetUserDialogs.R b/en/R/vkGetUserDialogs.R deleted file mode 100644 index 83025a0..0000000 --- a/en/R/vkGetUserDialogs.R +++ /dev/null @@ -1,68 +0,0 @@ -vkGetUserDialogs <- function(offset = NULL, - count = NULL, - start_message_id = NULL, - preview_length = 0, - unread = 0, - important = 0, - unanswered = 0, - api_version = NULL, - access_token = NULL){ - - if(is.null(access_token)){ - stop("Не заполнен access_token, этот аргумент является обязательным.") - } - - #Проверка версии API - api_version <- api_version_checker(api_version) - - #Собираем параметры - params <- c() - - for(param in ls()[! ls() %in% c("params","api_version")]){ - if(is.null(get(param))) next - params <- c(params,paste0(param,"=",get(param))) - rm(param) - } - - params <- paste0(params, collapse = "&") - - #Результирующий дата фрейм - result <- data.frame(id = integer(0), - date = as.Date(character()), - out = integer(0), - user_id = integer(0), - read_state = integer(0), - title = character(0), - body = character(0), - stringsAsFactors = F) - - - #Формируем запрос - query <- paste0("https://api.vk.com/method/messages.getDialogs?",params,"&v=",api_version) - answer <- GET(query) - stop_for_status(answer) - dataRaw <- content(answer, "parsed", "application/json") - - #Проверка ответа на ошибки - if(!is.null(dataRaw$error)){ - stop(paste0("Error ", dataRaw$error$error_code," - ", dataRaw$error$error_msg)) - } - - - #Парсинг результата - for(i in 1:length(dataRaw$response$items)){ - result <- rbind(result, - data.frame(id = ifelse(is.null(dataRaw$response$items[[i]]$message$id), NA,dataRaw$response$items[[i]]$message$id), - date = ifelse(is.null(dataRaw$response$items[[i]]$message$date), NA,as.POSIXct(dataRaw$response$items[[i]]$message$date, origin="1970-01-01")), - out = ifelse(is.null(dataRaw$response$items[[i]]$message$out), NA,dataRaw$response$items[[i]]$message$out), - user_id = ifelse(is.null(dataRaw$response$items[[i]]$message$user_id), NA,dataRaw$response$items[[i]]$message$user_id), - read_state = ifelse(is.null(dataRaw$response$items[[i]]$message$read_state), NA,dataRaw$response$items[[i]]$message$read_state), - title = ifelse(is.null(dataRaw$response$items[[i]]$message$title), NA,dataRaw$response$items[[i]]$message$title), - body = ifelse(is.null(dataRaw$response$items[[i]]$message$body), NA,dataRaw$response$items[[i]]$message$body), - random_id = ifelse(is.null(dataRaw$response$items[[i]]$message$random_id), NA,dataRaw$response$items[[i]]$message$random_id), - stringsAsFactors = F))} - #Конвертируем дату - result$date <- as.POSIXct(result$date, origin="1970-01-01") - - #Возвращаем результат - return(result)} diff --git a/en/R/vkGetUserFriends.R b/en/R/vkGetUserFriends.R deleted file mode 100644 index f614c76..0000000 --- a/en/R/vkGetUserFriends.R +++ /dev/null @@ -1,64 +0,0 @@ -vkGetUserFriends <- function(user_id = NULL, - access_token = NULL, - api_version = NULL, - name_case = "nom"){ - - if(is.null(access_token)){ - stop("Не заполнен access_token, этот аргумент является обязательным.") - } - - api_version <- api_version_checker(api_version) - - #Ðåùóëüòèðóþùàÿ òàáëèöà - result <- data.frame(stringsAsFactors = F) - - #Ôîðìèðóåì çàïðîñ - query <- paste0("https://api.vk.com/method/friends.get?",ifelse(is.null(user_id),"",paste0("user_id=",user_id)),"&hints&count=10000&fields=nickname,domain,sex,bdate,city,country,timezone,photo_50,photo_100,photo_200_orig,has_mobile,contacts,education,online,relation,last_seen,status,can_write_private_message,can_see_all_posts,can_post,universities&name_case",name_case,"&access_token=",access_token,"&v=",api_version) - answer <- GET(query) - stop_for_status(answer) - dataRaw <- content(answer, "parsed", "application/json") - - #Ïðîâåðêà îòâåòà Г­Г  îøèáêè - if(!is.null(dataRaw$error)){ - stop(paste0("Error ", dataRaw$error$error_code," - ", dataRaw$error$error_msg)) - } - - for(i in 1:length(dataRaw$response)){ - - result <- rbind(result, - data.frame(user_id = ifelse(is.null(dataRaw$response[[i]]$uid), NA,dataRaw$response[[i]]$uid), - first_name = ifelse(is.null(dataRaw$response[[i]]$first_name), NA,dataRaw$response[[i]]$first_name), - last_name = ifelse(is.null(dataRaw$response[[i]]$last_name), NA,dataRaw$response[[i]]$last_name), - gender = ifelse(is.null(dataRaw$response[[i]]$sex), NA,dataRaw$response[[i]]$sex), - nickname = ifelse(is.null(dataRaw$response[[i]]$nickname ), NA,dataRaw$response[[i]]$nickname), - domain = ifelse(is.null(dataRaw$response[[i]]$domain), NA,dataRaw$response[[i]]$domain), - bdate = ifelse(is.null(dataRaw$response[[i]]$bdate), NA,dataRaw$response[[i]]$bdate), - city = ifelse(is.null(dataRaw$response[[i]]$city), NA,dataRaw$response[[i]]$city), - country = ifelse(is.null(dataRaw$response[[i]]$country), NA,dataRaw$response[[i]]$country), - photo_50 = ifelse(is.null(dataRaw$response[[i]]$photo_50), NA,dataRaw$response[[i]]$photo_50), - photo_100 = ifelse(is.null(dataRaw$response[[i]]$photo_100), NA,dataRaw$response[[i]]$photo_100), - photo_200_orig = ifelse(is.null(dataRaw$response[[i]]$photo_200_orig), NA,dataRaw$response[[i]]$photo_200_orig), - has_mobile = ifelse(is.null(dataRaw$response[[i]]$has_mobile), NA,dataRaw$response[[i]]$has_mobile), - online = ifelse(is.null(dataRaw$response[[i]]$online), NA,dataRaw$response[[i]]$online), - can_post = ifelse(is.null(dataRaw$response[[i]]$can_post), NA,dataRaw$response[[i]]$can_post), - can_see_all_posts = ifelse(is.null(dataRaw$response[[i]]$can_see_all_posts), NA,dataRaw$response[[i]]$can_see_all_posts), - can_write_private_message = ifelse(is.null(dataRaw$response[[i]]$can_write_private_message), NA,dataRaw$response[[i]]$can_write_private_message), - home_phone = ifelse(is.null(dataRaw$response[[i]]$home_phone), NA,dataRaw$response[[i]]$home_phone), - status = ifelse(is.null(dataRaw$response[[i]]$status), NA,dataRaw$response[[i]]$status), - last_seen_time = ifelse(is.null(dataRaw$response[[i]]$last_seen$time), NA,dataRaw$response[[i]]$last_seen$time), - last_seen_platform = ifelse(is.null(dataRaw$response[[i]]$last_seen$platform), NA,dataRaw$response[[i]]$last_seen$platform), - university = ifelse(is.null(dataRaw$response[[i]]$university), NA,dataRaw$response[[i]]$university), - university_name = ifelse(is.null(dataRaw$response[[i]]$university_name), NA,dataRaw$response[[i]]$university_name), - faculty = ifelse(is.null(dataRaw$response[[i]]$faculty), NA,dataRaw$response[[i]]$faculty), - faculty_name = ifelse(is.null(dataRaw$response[[i]]$faculty_name), NA,dataRaw$response[[i]]$faculty_name), - graduation = ifelse(is.null(dataRaw$response[[i]]$graduation), NA,dataRaw$response[[i]]$graduation), - education_form = ifelse(is.null(dataRaw$response[[i]]$education_form), NA,dataRaw$response[[i]]$education_form), - education_status = ifelse(is.null(dataRaw$response[[i]]$education_status), NA,dataRaw$response[[i]]$education_status), - relation = ifelse(is.null(dataRaw$response[[i]]$relation), NA,dataRaw$response[[i]]$relation), - stringsAsFactors = F))} - #Ïåðåâîäèì äàòó Гў íóæíûé ôîðìàò - result$last_seen_time <- as.POSIXct(as.integer(result$last_seen_time), origin="1970-01-01") - - #Âîçâðàùàåì ðåçóëüòèðóþùèé äàòà ôðåéì - return(result) -} diff --git a/en/R/vkGetUserGroups.R b/en/R/vkGetUserGroups.R deleted file mode 100644 index 747a7f3..0000000 --- a/en/R/vkGetUserGroups.R +++ /dev/null @@ -1,70 +0,0 @@ -vkGetUserGroups <- function(user_id = NULL, - filter = NULL, - api_version = NULL, - access_token = NULL){ - - if(is.null(access_token)){ - stop("Не заполнен access_token, этот аргумент является обязательным.") - } - - #Проверка версии API - api_version <- api_version_checker(api_version) - - #Рещультирующая таблица - result <- data.frame(stringsAsFactors = F) - - #Постраничная выгрузка - offset <- 0 - count <- 1000 - last_iteration <- FALSE - - while(last_iteration == FALSE){ - #Формируем запрос - query <- paste0("https://api.vk.com/method/groups.get?fields=city,country,place,description,wiki_page,members_count,counters,start_date,finish_date,can_post,can_see_all_posts,activity,status,contacts,links,fixed_post,verified,site,can_create_topic",ifelse(is.null(user_id),"",paste0("&user_id=",user_id)),"&extended=1","&offset=",offset,"&count=1000",ifelse(is.null(filter),"",paste0("&filter=",filter)),"&access_token=",access_token,"&v=",api_version) - answer <- GET(query) - stop_for_status(answer) - dataRaw <- content(answer, "parsed", "application/json") - - #Проверка ответа на ошибки - if(!is.null(dataRaw$error)){ - stop(paste0("Error ", dataRaw$error$error_code," - ", dataRaw$error$error_msg)) - } - - for(i in 1:length(dataRaw$response$items)){ - - result <- rbind(result, - data.frame(gid = ifelse(is.null(dataRaw$response$items[[i]]$id), NA,dataRaw$response$items[[i]]$id), - name = ifelse(is.null(dataRaw$response$items[[i]]$name), NA,dataRaw$response$items[[i]]$name), - screen_name = ifelse(is.null(dataRaw$response$items[[i]]$screen_name), NA,dataRaw$response$items[[i]]$screen_name), - is_closed = ifelse(is.null(dataRaw$response$items[[i]]$is_closed), NA,dataRaw$response$items[[i]]$is_closed), - type = ifelse(is.null(dataRaw$response$items[[i]]$type), NA,dataRaw$response$items[[i]]$type), - description = ifelse(is.null(dataRaw$response$items[[i]]$description), NA,dataRaw$response$items[[i]]$description), - wiki_page = ifelse(is.null(dataRaw$response$items[[i]]$wiki_page), NA,dataRaw$response$items[[i]]$wiki_page), - members_count = ifelse(is.null(dataRaw$response$items[[i]]$members_count), NA,dataRaw$response$items[[i]]$members_count), - start_date = ifelse(is.null(dataRaw$response$items[[i]]$start_date), NA,dataRaw$response$items[[i]]$start_date), - can_post = ifelse(is.null(dataRaw$response$items[[i]]$can_post), NA,dataRaw$response$items[[i]]$can_post), - can_see_all_posts = ifelse(is.null(dataRaw$response$items[[i]]$can_see_all_posts), NA,dataRaw$response$items[[i]]$can_see_all_posts), - activity = ifelse(is.null(dataRaw$response$items[[i]]$activity), NA,dataRaw$response$items[[i]]$activity), - status = ifelse(is.null(dataRaw$response$items[[i]]$status), NA,dataRaw$response$items[[i]]$status), - fixed_post = ifelse(is.null(dataRaw$response$items[[i]]$fixed_post), NA,dataRaw$response$items[[i]]$fixed_post), - verified = ifelse(is.null(dataRaw$response$items[[i]]$verified), NA,dataRaw$response$items[[i]]$verified), - site = ifelse(is.null(dataRaw$response$items[[i]]$site), NA,dataRaw$response$items[[i]]$site), - can_create_topic = ifelse(is.null(dataRaw$response$items[[i]]$can_create_topic), NA,dataRaw$response$items[[i]]$can_create_topic), - photo = ifelse(is.null(dataRaw$response$items[[i]]$photo), NA,dataRaw$response$items[[i]]$photo), - photo_medium = ifelse(is.null(dataRaw$response$items[[i]]$photo_medium), NA,dataRaw$response$items[[i]]$photo_medium), - photo_big = ifelse(is.null(dataRaw$response$items[[i]]$photo_big), NA,dataRaw$response$items[[i]]$photo_big), - stringsAsFactors = F))} - - #Переводим дату в нужный формат - if(length(dataRaw$response) < 1000){ - last_iteration <- TRUE} - - #Niauaai offet - offset <- offset + count} - - #Преобразуем дату в формат Windows - result$start_date <- as.POSIXct(as.integer(result$start_date), origin="1970-01-01") - - #Возвращаем результирующий дата фрейм - return(result) -} diff --git a/en/R/vkGetUserWall.R b/en/R/vkGetUserWall.R deleted file mode 100644 index 6e02ff2..0000000 --- a/en/R/vkGetUserWall.R +++ /dev/null @@ -1,93 +0,0 @@ -vkGetUserWall <- function(user_id = NULL, - domain = NULL, - filter = NULL, - api_version = NULL, - access_token = NULL){ - - if(is.null(access_token)){ - stop("Не заполнен access_token, этот аргумент является обязательным.") - } - - #Проверка версии API - api_version <- api_version_checker(api_version) - - #Рещультирующая таблица - result <- data.frame(stringsAsFactors = F) - - #Постраничная выгрузка - offset <- 0 - count <- 100 - last_iteration <- FALSE - - while(last_iteration == FALSE){ - #Oi?ie?oai cai?in - query <- paste0("https://api.vk.com/method/wall.get?extended=1",ifelse(is.null(user_id),"",paste0("&owner_id=",user_id)),ifelse(is.null(domain),"",paste0("&domain=",domain)),"&offset=",offset,"&count=100",ifelse(is.null(filter),"",paste0("&filter=",filter)),"&access_token=",access_token,"&v=",api_version) - answer <- GET(query) - stop_for_status(answer) - dataRaw <- content(answer, "parsed", "application/json") - - #I?iaa?ea ioaaoa ia ioeaee - if(!is.null(dataRaw$error)){ - stop(paste0("Error ", dataRaw$error$error_code," - ", dataRaw$error$error_msg)) - } - - if (api_version < 5){ - for(i in 2:length(dataRaw$response$wall)){ - - result <- rbind(result, - data.frame(id = ifelse(is.null(dataRaw$response$wall[[i]]$id), NA,dataRaw$response$wall[[i]]$id), - from_id = ifelse(is.null(dataRaw$response$wall[[i]]$from_id), NA,dataRaw$response$wall[[i]]$from_id), - to_id = ifelse(is.null(dataRaw$response$wall[[i]]$to_id), NA,dataRaw$response$wall[[i]]$to_id), - date = ifelse(is.null(dataRaw$response$wall[[i]]$date), NA,dataRaw$response$wall[[i]]$date), - post_type = ifelse(is.null(dataRaw$response$wall[[i]]$post_type), NA,dataRaw$response$wall[[i]]$post_type), - text = ifelse(is.null(dataRaw$response$wall[[i]]$text), NA,dataRaw$response$wall[[i]]$text), - can_delete = ifelse(is.null(dataRaw$response$wall[[i]]$can_delete), NA,dataRaw$response$wall[[i]]$can_delete), - comments_count = ifelse(is.null(dataRaw$response$wall[[i]]$comments$count), NA,dataRaw$response$wall[[i]]$comments$count), - likes_count = ifelse(is.null(dataRaw$response$wall[[i]]$likes$count), NA,dataRaw$response$wall[[i]]$likes$count), - reposts_count = ifelse(is.null(dataRaw$response$wall[[i]]$reposts$count), NA,dataRaw$response$wall[[i]]$reposts$count), - attachment_type = ifelse(is.null(dataRaw$response$wall[[i]]$attachment$type), NA,dataRaw$response$wall[[i]]$attachment$type), - stringsAsFactors = F))} - - #Ia?aaiaei aaoo a io?iue oi?iao - if(length(dataRaw$response$wall) < 100){ - last_iteration <- TRUE} - - #Niauaai offet - offset <- offset + count - Sys.sleep(0.5) - - - } else { - - for(i in 1:length(dataRaw$response$items)){ - - result <- rbind(result, - data.frame(id = ifelse(is.null(dataRaw$response$items[[i]]$id), NA,dataRaw$response$items[[i]]$id), - from_id = ifelse(is.null(dataRaw$response$items[[i]]$from_id), NA,dataRaw$response$items[[i]]$from_id), - to_id = ifelse(is.null(dataRaw$response$items[[i]]$to_id), NA,dataRaw$response$items[[i]]$to_id), - date = ifelse(is.null(dataRaw$response$items[[i]]$date), NA,dataRaw$response$items[[i]]$date), - post_type = ifelse(is.null(dataRaw$response$items[[i]]$post_type), NA,dataRaw$response$items[[i]]$post_type), - text = ifelse(is.null(dataRaw$response$items[[i]]$text), NA,dataRaw$response$items[[i]]$text), - can_delete = ifelse(is.null(dataRaw$response$items[[i]]$can_delete), NA,dataRaw$response$items[[i]]$can_delete), - views = ifelse(is.null(dataRaw$response$items[[i]]$views$count), NA,dataRaw$response$items[[i]]$views$count), - comments_count = ifelse(is.null(dataRaw$response$items[[i]]$comments$count), NA,dataRaw$response$items[[i]]$comments$count), - likes_count = ifelse(is.null(dataRaw$response$items[[i]]$likes$count), NA,dataRaw$response$items[[i]]$likes$count), - reposts_count = ifelse(is.null(dataRaw$response$items[[i]]$reposts$count), NA,dataRaw$response$items[[i]]$reposts$count), - attachment_type = ifelse(is.null(dataRaw$response$items[[i]]$attachment$type), NA,dataRaw$response$items[[i]]$attachment$type), - stringsAsFactors = F))} - - #Ia?aaiaei aaoo a io?iue oi?iao - if(length(dataRaw$response$items) < 100){ - last_iteration <- TRUE} - - #Niauaai offet - offset <- offset + count - Sys.sleep(0.5) - } - } - - #Преобразуем дату в формат Windows - result$date <- as.POSIXct(as.integer(result$date), origin="1970-01-01") - #Возвращаем результирующий дата фрейм - return(result) -} diff --git a/en/R/vkLoadToken.R b/en/R/vkLoadToken.R deleted file mode 100644 index f81802c..0000000 --- a/en/R/vkLoadToken.R +++ /dev/null @@ -1,5 +0,0 @@ -vkLoadToken <- -function() { - load(file = "vkauth") - return(vkToken) -} diff --git a/en/R/zzz.R b/en/R/zzz.R deleted file mode 100644 index 1b03d0f..0000000 --- a/en/R/zzz.R +++ /dev/null @@ -1,33 +0,0 @@ -.onAttach <- function(lib, pkg,...){ - packageStartupMessage(rvkstatWelcomeMessage()) -} - -# -# - -rvkstatWelcomeMessage <- function(){ - # library(utils) - - paste0("\n", - "---------------------\n", - "Добро паловать в rvkstat версии ", utils::packageDescription("rvkstat")$Version, "\n", - "\n", - "Описание: \n", - "rvkstat - R клиент для упрощённой работы с API социальной сети ВКонтакте, и загрузки данных в R. \n", - "\n", - "Автор пакета: \n", - "Алексей Селезнёв / Alexey Seleznev (Head of analytics dept at Netpeak).\n", - "Email: selesnow@gmail.com\n", - "Блог: https://alexeyseleznev.wordpress.com \n", - "Facebook: https://facebook.com/selesnown \n", - "Linkedin: https://www.linkedin.com/in/selesnow \n", - "\n", - "Используйте ?rvkstat для получения справки по всем доступным в пакете rvkstat функциям.\n", - "Страница пакета на github: https://github.com/selesnow/rvkstat/\n", - "\n", - "Предлоджения по улучшению пакета, а так же отчёты об ошибках можно оставлять тут: https://github.com/selesnow/rvkstat/issues\n", - "\n", - "\tЧто бы это сообщение больше не выводилось используйте команду: ", "suppressPackageStartupMessages(library(rvkstat))\n", - "---------------------\n" - ) -} diff --git a/en/README.md b/en/README.md deleted file mode 100644 index 52050e1..0000000 --- a/en/README.md +++ /dev/null @@ -1,896 +0,0 @@ - - - - -

- -

- -# Содержание ReadMe пакета rvkstat - -- **[Краткое описание пакета rvkstat](https://selesnow.github.io/rvkstat/#краткое-описание-пакета-rvkstat)** -- **[Как получить подробную справку по функциям пакета](https://selesnow.github.io/rvkstat/#как-получить-подробную-справку-по-функциям-пакета-rvkstat)** -- **[Что необходимо для начала работы с API Вктонтакте с помощью пакета rvkstat](https://selesnow.github.io/rvkstat/#что-необходимо-для-начала-работы-с-api-вктонтакте-с-помощью-пакета-rvkstat)** -- **[Как обойти блокировку API сервиса Вконтакте на Украине](https://selesnow.github.io/rvkstat/#как-работать-с-api-сервисом-вконтакте-на-украине)** -- **[Установка пакета rvkstat](https://selesnow.github.io/rvkstat/#установка-пакета)** -- **[Как пройти аутентификацию для работы с API Вконтакте с помощью пакета rvkstat](https://selesnow.github.io/rvkstat/#авторизация-вконтакте-для-работы-с-api)** - - [vkGetToken](https://selesnow.github.io/rvkstat/#пример-прохождения-авторизации-с-помощью-функции-vkgettoken) - Авторизация в Вконтакте с помощью метода [Implicit Flow](https://github.com/selesnow/rvkstat#Пример-прохождения-авторизации-с-помощью-функции-vkgettoken) - - [vkAuth](https://selesnow.github.io/rvkstat/#пример-прохождения-авторизации-с-помощью-функции-vkauth) - Авторизация в Вконтакте с помощью метода [Authorization Code Flow](https://vk.com/dev/authcode_flow_user) -- **[Функции доступные в пакете rvkstat](https://selesnow.github.io/rvkstat/#функции-доступные-в-пакете-rvkstat)** - - [Функции для загрузки данных из рекламного кабинета Вконтакте](https://selesnow.github.io/rvkstat/#функции-для-загрузки-данных-из-рекламного-кабинета-вконтакте) - - [vkGetAdCategories](https://selesnow.github.io/rvkstat/#получить-список-возможных-тематик-рекламных-объявлений-и-их-подразделов) - Получить возможные тематики рекламных объявлений и их подразделы. - - [vkGetAdAccounts](https://selesnow.github.io/rvkstat/#получить-список-досупных-рекламных-кабинетов-вконтакте) - Получить список доступных рекламных кабинетов - - [vkGetAdClients](https://selesnow.github.io/rvkstat/#получить-список-клиентов-из-агентского-аккаунта-вконтакте) - Получить список клиентов из агентского аккаунта - - [vkGetAds](https://selesnow.github.io/rvkstat/#получить-список-объявлений-из-рекламного-кабинета-вконтакте) - Получить список объявлений - - [vkGetAdsLayout](#получить-список-объявлений-из-рекламного-кабинета-вконтакте) - Возвращает описания внешнего вида рекламных объявлений. - - [vkGetAdCampaigns](https://selesnow.github.io/rvkstat/#получить-список-рекламных-кампаний-из-рекламного-кабинета-вконтакте) - Получить список рекламных кампаний - - [vkGetAdStatistics](https://selesnow.github.io/rvkstat/#получить-статистику-показателей-эффективности-по-рекламным-объявлениям-кампаниям-клиентам-или-всему-кабинету) - Получить статистику показателей эффективности по рекламным объявлениям, кампаниям, клиентам или всему кабинету - - [vkGetAdCityStats](https://selesnow.github.io/rvkstat/#получить-статистику-по-охвату-аудитории-по-рекламным-кампаним-или-объявления-в-разрезе-городов) - Получить статистику по охвату аудитории по рекламным кампаним или объявления в разрезе городов - - [vkGetAdGenderStats](https://selesnow.github.io/rvkstat/#получить-статистику-по-охвату-аудитории-по-рекламным-кампаним-или-объявления-в-разрезе-пола) - Получить статистику по охвату аудитории по рекламным кампаним или объявления в разрезе пола - - [vkGetAdAgeStats](https://selesnow.github.io/rvkstat/#получить-статистику-по-охвату-аудитории-по-рекламным-кампаним-или-объявления-в-разрезе-возраста) - Получить статистику по охвату аудитории по рекламным кампаним или объявления в разрезе возраста - - [vkGetAdGenderAgeStats](https://selesnow.github.io/rvkstat/#получить-статистику-по-охвату-аудитории-по-рекламным-кампаним-или-объявления-в-разрезе-пола-и-возраста) - Получить статистику по охвату аудитории по рекламным кампаним или объявления в разрезе пола и возраста - - [vkGetAdBudget](https://selesnow.github.io/rvkstat/#получить-остаток-средств-из-рекламного-кабинета) - Получить остаток средств из рекламного кабинета - - [vkGetAdPostsReach](https://selesnow.github.io/rvkstat/#получить-подробную-статистику-по-охвату-рекламных-записей-из-объявлений-и-кампаний-для-продвижения-записей-сообщества) - Получить подробную статистику по охвату рекламных записей из объявлений и кампаний для продвижения записей сообщества - - [Функции для загрузки данных из сообществ Вконтакте](https://selesnow.github.io/rvkstat/#функции-для-загрузки-данных-из-сообществ-вконтакте) - - [vkGetGroupStat](https://selesnow.github.io/rvkstat/#получить-данные-о-количестве-просмотров-посетителях-подписавшихся-и-отписавшихся-посетителей-по-дням) - Получить общую статистику по сообществу - - [vkGetGroupStatAge](https://selesnow.github.io/rvkstat/#получить-данные-о-возрастных-группах-посетителей-по-дням) - Получить данные о посетителях сообщества по возрасту - - [vkGetGroupStatCity](https://selesnow.github.io/rvkstat/#получить-данные-о-городах-посетителей) -Получить данные о посетителях сообщества по городам - - [vkGetGroupStatCountries](https://selesnow.github.io/rvkstat/#получить-данные-о-странах-посетителей) - Получить данные о посетителях сообщества по странам - - [vkGetGroupStatGender](https://selesnow.github.io/rvkstat/#получить-данные-о-поле-посетителей-по-дням) - Получить данные о посетителях сообщества по полу - - [vkGetGroupStatGenderAge](https://selesnow.github.io/rvkstat/#получить-данные-о-половозрастной-структуре-ваших-посетителей-по-дням) - Получить данные о посетителях сообщества по полу и возрасту - - [Функции для загрузки справочной инормации из Вконтакте](https://selesnow.github.io/rvkstat/#функции-для-загрузки-справочной-информации-из-вконтакте) - - [vkGetDbCountries](https://selesnow.github.io/rvkstat/#получить-id-и-название-стран) - Получить id и название стран - - [vkGetDbCities](https://selesnow.github.io/rvkstat/#получить-справочник-городов) - Получить справочник городов - - [vkGetDbRegions](https://selesnow.github.io/rvkstat/#получить-справочник-регионов) - Получить справочник регионов - - [Функции для загрузки инормации о пользователе Вконтакте](https://selesnow.github.io/rvkstat/#функции-для-загрузки-инормации-о-пользователе-Вконтакте) - - [vkGetUserFriends](https://selesnow.github.io/rvkstat/#получиить-список-друзей-пользователя-Вконтакте) - Получить список друзей пользователя Вконтакте - - [vkGetUserGroups](https://selesnow.github.io/rvkstat/#получить-список-групп-и-сообществ-в-которых-состоит-пользователь-Вконтакте) - Получить список групп и сообществ в которых состоит пользователь Вконтакте - - [vkGetUserWall](https://selesnow.github.io/rvkstat/#получить-сообщения-со-стены-пользователя-с-количеством-комментариев-лайков-и-рипостов) - Получить сообщения со стены пользователя с количеством комментариев, лайков и рипостов -- **[Список статей с примерами работы с пакетом rvkstat](https://github.com/selesnow/rvkstat/blob/master/README.md#Список-статей-с-примерами-работы-с-пакетом-rvkstat)** - - [Как перенести данные из ВКонтакте в Power BI (Алексей Селезнёв)](https://netpeak.net/ru/blog/kak-perenesti-dannyye-iz-vkontakte-v-power-bi/) - - [Загрузка статистики из «ВКонтакте» и Facebook в Google BigQuery — руководство (Михаил Гусев)](https://ppc.world/articles/zagruzka-statistiki-iz-vkontakte-i-facebook-v-google-bigquery/) -- **[Информация об авторе пакета](https://selesnow.github.io/rvkstat/#автор-пакета-алексей-селезнёв-head-of-analytics-dept-at-netpeak)** - -## Краткое описание пакета rvkstat -Пакет rvkstat является R клиентом для работы с API социальной сети [Вконтакте](url), с помощью функций данного пакета можно получить статистику из рекламного кабинета Вконтакте, а так же данные о посетителях сообществ вконтакте по дням, в разрезе возрастных групп, пола и геолокации посетителей. - -Все функции входящие в пакет rvkstat имеюи префикс vk. - -Все функции пакета разделены на блоки, определить к какому блоку относится функция можно из её названия, название блока к которому относится функция идёт сразу после префикса vk: - -* Блок функция **GetGroupStat** предназначем для загрузки статистики по сообществам Вконтакте. -* Блок функций **GetAd** направлен на загрузку данных из рекламного кабинета Вконтакте. -* Блок функций **GetDb** даёт возможность загрузки справочной информации из Вконтакте. -* Блок функций **GetUser** используется для загрузки данных о конкретном пользователе Вконтакте. - -## Как получить подробную справку по функциям пакета rvkstat -Все функции пакета имеют подробное описание на русском языке, получить детальную справку по любой функции пакета rvkstat можно с помощь команды `help`, если вы работаете в RStudio справку так же можно получить указав `?` перед названием комапнды: - -`help("vkGetAdStatistics")` - -`?vkGetAdStatistics` - -## Что необходимо для начала работы с API Вктонтакте с помощью пакета rvkstat -Для работы с api вконтакте вам необходимо создать Standalone-приложение, для этого перейдите по этой ссылке, и выберите Standalone-приложение. -

- -Для начала работы и для того, что бы с помощью функции авторизации в Вконтакте получить токен разработчика используйте ID и Защищённый ключ приложения. -

- -## Как работать с API сервисом Вконтакте на Украине -Обойти блокировку API Вконтакте на Украине можно с помощью пакета [getProxy](https://github.com/selesnow/getProxy). -Процесс обхода блокировки с помозью пакета getProxy: - -1. Устанавливаем пакет getProxy с помощью приведённого ниже кода: -``` -if(!"devtools" %in% installed.packages()[,1]){install.packages("devtools")} -library(devtools) -install_github("selesnow/getProxy") -``` -2. Подключаем пакет getProxy с помощью комманды `library(getProxy)`. -3. Далее с помощью функции `getProy` обходим блокировку через прокси сервер, пример кода ниже: - -``` -#Направляем интернет соединение через прокси сервер -getProxy(port = "3128", country = "RU", supportsHttps = TRUE, action = "start") - -#Пишем код для работы с API Вконтакте с помощью функций пакета rvkstat - -#Отключаемся от прокси сервера -getProxy9action = "stop") -``` - -## Установка пакета -Пакет rvkstat может быть установлен непосредственно из репозитория Github с помощью приведённого ниже программного кода. - -### Установка на Windows -``` -if(!"devtools" %in% installed.packages()[,1]){install.packages("devtools")} -devtools::install_github('selesnow/rvkstat') -``` -### Установка на Ubuntu, Linux, Mac -``` -if(!"devtools" %in% installed.packages()[,1]){install.packages("devtools")} -devtools::install_github('selesnow/rvkstat', subdir = "en") -``` -## Авторизация вконтакте для работы с API. -Для прохождения процесса авторизации в пакете rvkstat есть две функции: - -+ vkGetToken - Упрощённая авторизация по методу [Implicit Flow](https://vk.com/dev/implicit_flow_user), токен доступа выдаётся с привязкой к IP адресу, в связи с чем при смене IP адреса прийдётся проходить процедуру авторизации. -+ vkAuth - Для прохождение процесса авторизации с помощью метода [Authorization Code Flow](https://vk.com/dev/authcode_flow_user), токен полученный с помощью данной функции будет работать с любого IP. - -#### Пример прохождения авторизации с помощью функции vkGetToken -Для авторизации по схеме [Implicit Flow](https://vk.com/dev/implicit_flow_user) воспользуйтесь следующим кодом: - -`myToken <- vkGetToken(app_id = )` - -Измените на ID вашего приложения, ID приложения можно получить на странице настройки приложения, как показано в разделе "[Что необходимо для начала работы с API Вктонтакте с помощью пакета rvkstat](https://github.com/selesnow/rvkstat/blob/master/README.md#Требование)". - -После запуска функции откроется окно браузера, в котором вам необходимо предоставить приложению все необходимые для работы разрешения. -

- -После предоставления разрешения вы будете перенаправлены на страницу https://selesnow.github.io/rvkstat/getCode/get_token.html где вам будет сгенерирован токен доступа. - -

- -Скопируйте его значение и вставьте в R, в качестве ответа на запрос "Your vk token from URL parameter access_token: ". - -#### Пример прохождения авторизации с помощью функции vkAuth -`myToken <- vkAuth(app_id = , app_secret = <Защищённый Ключ Вашего Приложения>)` - -Вместо укажите ID вашего приложения, вместо <Защищённый Ключ Вашего Приложения> укажите защищёный ключ вашего приложения, оба аргумента можно посмотреть на странице настройки приложения как описано в разделе "[Что необходимо для начала работы с API Вктонтакте с помощью пакета rvkstat](https://github.com/selesnow/rvkstat/blob/master/README.md#Требование)". - -После запуска функции откроется окно браузера, в котором вы должны подтвердить разрешение доступ к данным в вконтакте. -

- -После предоставления разрешения вы будете перенаправлены на страницу https://selesnow.github.io/rvkstat/getCode/get_code.html где вам будет сгенерирован код для получения токена доступа. - -

- -Скопируйте его значение и вставьте в R, в качестве ответа на запрос "Enter code from URL: ". После чего в рабочем окружении R появится объект myToken, который будет содержать токен доступа, срок действия токена (в данном случае токен бессрочный) и id пользователя которому был предоставлен токен доступа к API. - -## Функции доступные в пакете rvkstat - -### Функции для загрузки данных из рекламного кабинета Вконтакте - -#### Получить список возможных тематик рекламных объявлений и их подразделов. -``` -##Авторизация в вк -my_tok <- vkAuth(app_id = 11111111,app_secret = "H2Pk8htyFD8024mZaPHm") -##Получение списка возможных тематик рекламных объявлений -vk_ad_categories <- vkGetAdCategories(access_token = my_tok$access_token) -``` -##### Аргументы -* access_token - Токен доступа к API, полученный с помощью функций vkAuth или vkGetToken -* api_version - Версия API к который вы будете обращаться, список актуальных версий доступен по [ссылке](https://vk.com/dev/versions). - -#### Получить список досупных рекламных кабинетов Вконтакте -``` -##Авторизация в вк -my_tok <- vkAuth(app_id = 11111111,app_secret = "H2Pk8htyFD8024mZaPHm") -##Запрос списка доступных рекламных кабинетов -my_vk_acc <- vkGetAdAccounts(my_tok$access_token) -``` -##### Аргументы -* access_token - Токен доступа к API, полученный с помощью функций vkAuth или vkGetToken -* api_version - Версия API к который вы будете обращаться, список актуальных версий доступен по [ссылке](https://vk.com/dev/versions). - -#### Получить список клиентов из агентского аккаунта Вконтакте -``` -##Авторизация в вк -my_tok <- vkAuth(app_id = 11111111,app_secret = "H2Pk8htyFD8024mZaPHm") -##Запрос списка доступных рекламных кабинетов -my_vk_clients <- vkGetAdClients(account_id = 11111111, access_token = my_tok$access_token) -``` -##### Аргументы -* account_id - Идентификатор рекламного кабинета, список всех доступных рекламных кабинетов можно получить с помщью функции vkGetAdAccounts. -* access_token - Токен доступа к API, полученный с помощью функций vkAuth или vkGetToken -* api_version - Версия API к который вы будете обращаться, список актуальных версий доступен по [ссылке](https://vk.com/dev/versions). - -#### Получить список объявлений из рекламного кабинета вконтакте -``` -##Авторизация в вконтакте -my_tok <- vkAuth(app_id = 11111111,app_secret = "H2Pk8htyFD8024mZaPHm") -#Получаем список объявлений -my_vk_ads <- vkGetAds(account_id = 11111111, - access_token = my_tok$access_token) -``` -##### Аргументы -* account_id - Идентификатор рекламного кабинета, список всех доступных рекламных кабинетов можно получить с помщью функции vkGetAdAccounts. -* client_id - Идентификатор клиента, у которого запрашиваются рекламные объявления. Доступно и обязательно для рекламных агентств. -* include_deleted - Логическое TRUE или FALSE, флаг, задающий необходимость вывода архивных объявлений. -* campaign_ids - Числовой вектор, фильтр по рекламным кампаниям. -* ad_ids - Числовой вектор, фильтр по рекламным объявлениям. -* status_names - Логическое TRUE или FALSE, если значение TRUE то формат объявления, статус модерации объявления, тип оплаты, метка о возрастном ограничении объявления и статус объявления будут возвращены в виде строковых значений, если передать в аргумент status_names значение FALSE то перечисленные значения будут возвращены в виде их ID. -* api_version - Версия API к который вы будете обращаться, список актуальных версий доступен по [ссылке](https://vk.com/dev/versions). -* access_token - Токен доступа к API, полученный с помощью функций vkAuth или vkGetToken - -#### Получить описания внешнего вида рекламных объявлений. -``` -##Авторизация в вконтакте -my_tok <- vkAuth(app_id = 11111111,app_secret = "H2Pk8htyFD8024mZaPHm") -#Получаем список объявлений с описанием их внешнего вида -my_vk_ads <- vkGetAdsLayout(account_id = 11111111, - access_token = my_tok$access_token) -``` -##### Аргументы -* account_id - Идентификатор рекламного кабинета, список всех доступных рекламных кабинетов можно получить с помщью функции vkGetAdAccounts. -* client_id - Идентификатор клиента, у которого запрашиваются рекламные объявления. Доступно и обязательно для рекламных агентств. -* include_deleted - Логическое TRUE или FALSE, флаг, задающий необходимость вывода архивных объявлений. -* campaign_ids - Числовой вектор, фильтр по рекламным кампаниям. -* ad_ids - Числовой вектор, фильтр по рекламным объявлениям. -* status_names - Логическое TRUE или FALSE, если значение TRUE то формат объявления и тип оплаты будут возвращены в виде строковых значений, если передать в аргумент status_names значение FALSE то перечисленные значения будут возвращены в виде их ID. -* api_version - Версия API к который вы будете обращаться, список актуальных версий доступен по [ссылке](https://vk.com/dev/versions). -* access_token - Токен доступа к API, полученный с помощью функций vkAuth или vkGetToken - -##### Возвращаемые значения -* id - идентификатор объявления. -* campaign_id - идентификатор кампании. -* ad_format - формат объявления -* cost_type - тип оплаты (0 — оплата за переходы, 1 — оплата за показы) -* video - 1 — объявление является видеорекламой. -* title - заголовок объявления. -* description - описание объявления. -* link_url - ссылка на рекламируемый объект. -* link_domain - домен рекламируемого сайта. -* preview_link - ссылка, перейдя по которой можно просмотреть рекламное объявление так, как оно выглядит на сайте. Ссылка доступна в течение 30 минут после выполнения метода ads.getAdsLayout функции. -* image_src - url изображения объявления. - -#### Получить список рекламных кампаний из рекламного кабинета вконтакте -``` -##Авторизация в вконтакте -my_tok <- vkAuth(app_id = 11111111,app_secret = "H2Pk8htyFD8024mZaPHm") -#Получаем список рекламных кампаний -my_vk_campaigns <- vkGetAdCampaigns(account_id = 11111111, - access_token = my_tok$access_token) -``` -##### Аргументы -* account_id - Идентификатор рекламного кабинета, список всех доступных рекламных кабинетов можно получить с помщью функции vkGetAdAccounts. -* client_id - Идентификатор клиента, у которого запрашиваются рекламные объявления. Доступно и обязательно для рекламных агентств. -* include_deleted - Логическое TRUE или FALSE, флаг, задающий необходимость вывода архивных объявлений. -* campaign_ids - Числовой вектор, фильтр по рекламным кампаниям. -* status_names - Логическое TRUE или FALSE, если значение TRUE то статус кампании будет возвращён в виде строкового значения, если указать значение FALSE будет возвращён ID статуса кампании. -* api_version - Версия API к который вы будете обращаться, список актуальных версий доступен по [ссылке](https://vk.com/dev/versions). -* access_token - Токен доступа к API, полученный с помощью функций vkAuth или vkGetToken - -#### Получить статистику показателей эффективности по рекламным объявлениям, кампаниям, клиентам или всему кабинету. -``` -##Авторизация в вконтакте -my_tok <- vkAuth(app_id = 11111111,app_secret = "H2Pk8htyFD8024mZaPHm") - -##Получаем список рекламных кампаний -camp <- vkGetAdCampaigns(account_id = 11111111, access_token = my_tok$access_token) - -##Получаем статистику по рекламным кампаниям по дням -vk_stat_by_campaign <- vkGetAdStatistics(account_id = 11111111, - ids_type = "campaign", - ids = camp$id , - period = "day", - date_from = "2010-01-01", - date_to = "2017-09-10", - access_token = my_tok$access_token) - -``` -##### Аргументы -* account_id - Идентификатор рекламного кабинета, список всех доступных рекламных кабинетов можно получить с помщью функции vkGetAdAccounts. -* ids_type - Тип запрашиваемых объектов, которые перечислены в параметре ids, допустимые значения: - * ad — объявления - * campaign — кампании - * client — клиенты - * office — кабинет -* ids - Перечисленные через запятую id запрашиваемых объявлений, кампаний, клиентов или кабинета, в зависимости от того, что указано в параметре ids_type. -* period - Способ группировки данных по датам, допустимые значения: - * day — статистика по дням - * month — статистика по месяцам - * overall — статистика за всё время -* date_from - Начальная дата выводимой статистики. Используется разный формат дат для разного значения параметра period - * day: YYYY-MM-DD, пример: 2011-09-27 - 27 сентября 2011 - * month: YYYY-MM, пример: 2011-09 - сентябрь 2011 - * overall: 0 -* date_to - Конечная дата выводимой статистики. Используется разный формат дат для разного значения параметра period: - * day: YYYY-MM-DD, пример: 2011-09-27 - 27 сентября 2011 - * month: YYYY-MM, пример: 2011-09 - сентябрь 2011 - * overall: 0 -* api_version - Версия API к который вы будете обращаться, список актуальных версий доступен по [ссылке](https://vk.com/dev/versions). -* access_token - Токен доступа к API, полученный с помощью функций vkAuth или vkGetToken - -##### Возвращаемые значения -* id — id объекта из параметра ids -* type — тип объекта из параметра ids_type -* day (если period равен day) — день в формате YYYY-MM-DD -* month (если period равен month) — день в формате YYYY-MM -* overall (если period равен overall) — 1 -* spent — потраченные средства -* impressions — просмотры -* clicks — клики -* reach (если ids_type равен ad или campaign и period равен day или month) — охват -* video_views (если ids_type равен ad) — просмотры видеоролика (для видеорекламы) -* video_views_half (если ids_type равен ad) — просмотры половины видеоролика (для видеорекламы) -* video_views_full (если ids_type равен ad) — просмотры целого видеоролика (для видеорекламы) -* video_clicks_site (если ids_type равен ad) — переходы на сайт рекламодателя из видеорекламы (для видеорекламы) -* join_rate (если ids_type равен ad или campaign) — вступления в группу, событие, подписки на публичную страницу или установки приложения (только если в объявлении указана прямая ссылка на соответствующую страницу ВКонтакте) - -#### Получить остаток средств из рекламного кабинета -``` -##Авторизация в вконтакте -my_tok <- vkAuth(app_id = 11111111,app_secret = "H2Pk8htyFD8024mZaPHm") -#Получаем остаток средств из рекламного кабинета -vk_budget <- vkGetAdBudget(account_id = 11111111, - access_token = my_tok$access_token) -``` -##### Аргументы -* account_id - Идентификатор рекламного кабинета, список всех доступных рекламных кабинетов можно получить с помщью функции vkGetAdAccounts. -* access_token - Токен доступа к API, полученный с помощью функций vkAuth или vkGetToken -* api_version - Версия API к который вы будете обращаться, список актуальных версий доступен по [ссылке](https://vk.com/dev/versions). - -#### Получить статистику по охвату аудитории по рекламным кампаним или объявления в разрезе городов -``` -##Авторизация в вконтакте -my_tok <- vkAuth(app_id = 11111111,app_secret = "H2Pk8htyFD8024mZaPHm") - -##Получаем список рекламных кампаний -camp <- vkGetAdCampaigns(account_id = 11111111, access_token = my_tok$access_token) - -##Получаем статистику по рекламным кампаниям по дням -vk_ad_city_stat_day <- vkGetAdCityStats(account_id = 11111111, - ids_type = "campaign", - ids = camp$id , - period = "day", - date_from = "2010-01-01", - date_to = "2017-09-10", - access_token = my_tok$access_token) - -``` -##### Аргументы -* account_id - Идентификатор рекламного кабинета, список всех доступных рекламных кабинетов можно получить с помщью функции vkGetAdAccounts. -* ids_type - Тип запрашиваемых объектов, которые перечислены в параметре ids, допустимые значения: - * ad — объявления - * campaign — кампании -* ids - Перечисленные через запятую id запрашиваемых объявлений, кампаний, клиентов или кабинета, в зависимости от того, что указано в параметре ids_type. -* period - Способ группировки данных по датам, допустимые значения: - * day — статистика по дням - * month — статистика по месяцам - * overall — статистика за всё время -* date_from - Начальная дата выводимой статистики. Используется разный формат дат для разного значения параметра period - * day: YYYY-MM-DD, пример: 2011-09-27 - 27 сентября 2011 - * month: YYYY-MM, пример: 2011-09 - сентябрь 2011 - * overall: 0 -* date_to - Конечная дата выводимой статистики. Используется разный формат дат для разного значения параметра period: - * day: YYYY-MM-DD, пример: 2011-09-27 - 27 сентября 2011 - * month: YYYY-MM, пример: 2011-09 - сентябрь 2011 - * overall: 0 -* api_version - Версия API к который вы будете обращаться, список актуальных версий доступен по [ссылке](https://vk.com/dev/versions). -* access_token - Токен доступа к API, полученный с помощью функций vkAuth или vkGetToken - -##### Возвращаемые значения -* id — id объекта из параметра ids -* type — тип объекта из параметра ids_type -* day (если period равен day) — день в формате YYYY-MM-DD -* month (если period равен month) — день в формате YYYY-MM -* overall (если period равен overall) — 1 -* city_id — id города или other для остальных городов -* city_name — id города или other для остальных городов -* impressions_rate — часть аудитории, просмотревшая объявление, от 0 до 1. -* clicks_rate — часть аудитории, кликнувшая по объявлению, от 0 до 1. - -#### Получить статистику по охвату аудитории по рекламным кампаним или объявления в разрезе пола -``` -##Авторизация в вконтакте -my_tok <- vkAuth(app_id = 11111111,app_secret = "H2Pk8htyFD8024mZaPHm") - -##Получаем список рекламных кампаний -camp <- vkGetAdCampaigns(account_id = 11111111, access_token = my_tok$access_token) - -##Получаем статистику по рекламным кампаниям по дням -vk_ad_gender_stat_day <- vkGetAdGenderStats(account_id = 11111111, - ids_type = "campaign", - ids = camp$id , - period = "day", - date_from = "2010-01-01", - date_to = "2017-09-10", - access_token = my_tok$access_token) -``` -##### Аргументы -* account_id - Идентификатор рекламного кабинета, список всех доступных рекламных кабинетов можно получить с помщью функции vkGetAdAccounts. -* ids_type - Тип запрашиваемых объектов, которые перечислены в параметре ids, допустимые значения: - * ad — объявления - * campaign — кампании -* ids - Перечисленные через запятую id запрашиваемых объявлений, кампаний, клиентов или кабинета, в зависимости от того, что указано в параметре ids_type. -* period - Способ группировки данных по датам, допустимые значения: - * day — статистика по дням - * month — статистика по месяцам - * overall — статистика за всё время -* date_from - Начальная дата выводимой статистики. Используется разный формат дат для разного значения параметра period - * day: YYYY-MM-DD, пример: 2011-09-27 - 27 сентября 2011 - * month: YYYY-MM, пример: 2011-09 - сентябрь 2011 - * overall: 0 -* date_to - Конечная дата выводимой статистики. Используется разный формат дат для разного значения параметра period: - * day: YYYY-MM-DD, пример: 2011-09-27 - 27 сентября 2011 - * month: YYYY-MM, пример: 2011-09 - сентябрь 2011 - * overall: 0 -* api_version - Версия API к который вы будете обращаться, список актуальных версий доступен по [ссылке](https://vk.com/dev/versions). -* access_token - Токен доступа к API, полученный с помощью функций vkAuth или vkGetToken - -##### Возвращаемые значения -* id — id объекта из параметра ids -* type — тип объекта из параметра ids_type -* day (если period равен day) — день в формате YYYY-MM-DD -* month (если period равен month) — день в формате YYYY-MM -* overall (если period равен overall) — 1 -* gender — пол, f - женский, m - мужской -* impressions_rate — часть аудитории, просмотревшая объявление, от 0 до 1. -* clicks_rate — часть аудитории, кликнувшая по объявлению, от 0 до 1. - -#### Получить статистику по охвату аудитории по рекламным кампаним или объявления в разрезе возраста -``` -##Авторизация в вконтакте -my_tok <- vkAuth(app_id = 11111111,app_secret = "H2Pk8htyFD8024mZaPHm") - -##Получаем список рекламных кампаний -camp <- vkGetAdCampaigns(account_id = 11111111, access_token = my_tok$access_token) - -##Получаем статистику по рекламным кампаниям по дням -vk_ad_age_stat_day <- vkGetAdAgeStats(account_id = 1, - ids_type = "campaign", - ids = camp$id , - period = "day", - date_from = "2010-01-01", - date_to = "2017-09-10", - access_token = my_tok$access_token) -``` -##### Аргументы -* account_id - Идентификатор рекламного кабинета, список всех доступных рекламных кабинетов можно получить с помщью функции vkGetAdAccounts. -* ids_type - Тип запрашиваемых объектов, которые перечислены в параметре ids, допустимые значения: - * ad — объявления - * campaign — кампании -* ids - Перечисленные через запятую id запрашиваемых объявлений, кампаний, клиентов или кабинета, в зависимости от того, что указано в параметре ids_type. -* period - Способ группировки данных по датам, допустимые значения: - * day — статистика по дням - * month — статистика по месяцам - * overall — статистика за всё время -* date_from - Начальная дата выводимой статистики. Используется разный формат дат для разного значения параметра period - * day: YYYY-MM-DD, пример: 2011-09-27 - 27 сентября 2011 - * month: YYYY-MM, пример: 2011-09 - сентябрь 2011 - * overall: 0 -* date_to - Конечная дата выводимой статистики. Используется разный формат дат для разного значения параметра period: - * day: YYYY-MM-DD, пример: 2011-09-27 - 27 сентября 2011 - * month: YYYY-MM, пример: 2011-09 - сентябрь 2011 - * overall: 0 -* api_version - Версия API к который вы будете обращаться, список актуальных версий доступен по [ссылке](https://vk.com/dev/versions). -* access_token - Токен доступа к API, полученный с помощью функций vkAuth или vkGetToken - -##### Возвращаемые значения -* id — id объекта из параметра ids -* type — тип объекта из параметра ids_type -* day (если period равен day) — день в формате YYYY-MM-DD -* month (если period равен month) — день в формате YYYY-MM -* overall (если period равен overall) — 1 -* age — возрастная группа (12-18, 18-21, 21-24, 24-27, 27-30, 30-35, 35-45, 45-100) -* impressions_rate — часть аудитории, просмотревшая объявление, от 0 до 1. -* clicks_rate — часть аудитории, кликнувшая по объявлению, от 0 до 1. - -#### Получить статистику по охвату аудитории по рекламным кампаним или объявления в разрезе пола и возраста -``` -##Авторизация в вконтакте -my_tok <- vkAuth(app_id = 11111111,app_secret = "H2Pk8htyFD8024mZaPHm") - -##Получаем список рекламных кампаний -camp <- vkGetAdCampaigns(account_id = 11111111, access_token = my_tok$access_token) - -##Получаем статистику по рекламным кампаниям по дням -vk_ad_gender_age_stat_day <- vkGetAdGenderAgeStats(account_id = 11111111, - ids_type = "campaign", - ids = camp$id , - period = "day", - date_from = "2010-01-01", - date_to = "2017-09-10", - access_token = my_tok$access_token) -``` -##### Аргументы -* account_id - Идентификатор рекламного кабинета, список всех доступных рекламных кабинетов можно получить с помщью функции vkGetAdAccounts. -* ids_type - Тип запрашиваемых объектов, которые перечислены в параметре ids, допустимые значения: - * ad — объявления - * campaign — кампании -* ids - Перечисленные через запятую id запрашиваемых объявлений, кампаний, клиентов или кабинета, в зависимости от того, что указано в параметре ids_type. -* period - Способ группировки данных по датам, допустимые значения: - * day — статистика по дням - * month — статистика по месяцам - * overall — статистика за всё время -* date_from - Начальная дата выводимой статистики. Используется разный формат дат для разного значения параметра period - * day: YYYY-MM-DD, пример: 2011-09-27 - 27 сентября 2011 - * month: YYYY-MM, пример: 2011-09 - сентябрь 2011 - * overall: 0 -* date_to - Конечная дата выводимой статистики. Используется разный формат дат для разного значения параметра period: - * day: YYYY-MM-DD, пример: 2011-09-27 - 27 сентября 2011 - * month: YYYY-MM, пример: 2011-09 - сентябрь 2011 - * overall: 0 -* api_version - Версия API к который вы будете обращаться, список актуальных версий доступен по [ссылке](https://vk.com/dev/versions). -* access_token - Токен доступа к API, полученный с помощью функций vkAuth или vkGetToken - -##### Возвращаемые значения -* id — id объекта из параметра ids -* type — тип объекта из параметра ids_type -* day (если period равен day) — день в формате YYYY-MM-DD -* month (если period равен month) — день в формате YYYY-MM -* overall (если period равен overall) — 1 -* gender - пол (f — женщины, m — мужчины) -* age — возрастная группа (12-18, 18-21, 21-24, 24-27, 27-30, 30-35, 35-45, 45-100) -* impressions_rate — часть аудитории, просмотревшая объявление, от 0 до 1 -* clicks_rate — часть аудитории, кликнувшая по объявлению, от 0 до 1 - -#### Получить подробную статистику по охвату рекламных записей из объявлений и кампаний для продвижения записей сообщества -``` -##Авторизация в вконтакте -my_tok <- vkAuth(app_id = 11111111,app_secret = "H2Pk8htyFD8024mZaPHm") - -##Получаем список рекламных кампаний -camp <- vkGetAdCampaigns(account_id = 11111111, access_token = my_tok$access_token) - -#Получаем данные по охвату в разрезе рекламных кампаний -post_reach <- vkGetAdPostsReach(account_id = 11111111, - ids_type = "campaign", - ids = camp$id, - access_token = my_tok$access_token) -``` -##### Аргументы -* account_id - Идентификатор рекламного кабинета, список всех доступных рекламных кабинетов можно получить с помщью функции vkGetAdAccounts. -* ids_type - Тип запрашиваемых объектов, которые перечислены в параметре ids, допустимые значения: - * ad — объявления - * campaign — кампании -* ids - Перечисленные через запятую id запрашиваемых объявлений, кампаний, клиентов или кабинета, в зависимости от того, что указано в параметре ids_type. -* api_version - Версия API к который вы будете обращаться, список актуальных версий доступен по [ссылке](https://vk.com/dev/versions). -* access_token - Токен доступа к API, полученный с помощью функций vkAuth или vkGetToken - -##### Возвращаемые значения -* id — ID объекта из параметра ids -* reach_subscribers - Охват подписчиков -* reach_total - Суммарный охват -* links - Переходы по ссылке -* to_group - Переходы в сообщество -* join_group - Вступления в сообщество -* report - Количество жалоб на запись -* hide - Количество скрытий записи -* unsubscribe - Количество отписавшихся участников -* video_views_start - Количество стартов просмотра видео -* video_views_3s - Количество досмотров видео до 3 секунд -* video_views_25p - Количество досмотров видео до 25 процентов -* video_views_50p - Количество досмотров видео до 50 процентов -* video_views_75p - Количество досмотров видео до 75 процентов -* video_views_100p - Количество досмотров видео до 100 процентов - -### Функции для загрузки данных из сообществ Вконтакте -Во всех примерах этого раздела подразумевается что вы сначала прошли процесс авторизации с помощью функции vkAuth, пример кода ниже: - -``` -##Авторизация в вконтакте -my_tok <- vkAuth(app_id = 1,app_secret = "H2Pk8htyFD8024mZaPHm") -``` - -#### Получить данные о количестве просмотров, посетителях, подписавшихся и отписавшихся посетителей по дням - -``` -communityData <- vkGetGroupStat(date_from = "2016-01-01", - date_to = "2016-04-01", - group_id = 1, - access_token = my_tok$access_token) -``` -##### Аргументы -* date_from - Начальная дата выводимой статистики в формате YYYY-MM-DD. -* date_to - Конечная дата выводимой статистики в формате YYYY-MM-DD. -* group_id - Идентификатор сообщества. -* api_version - Версия API к который вы будете обращаться, список актуальных версий доступен по [ссылке](https://vk.com/dev/versions). -* access_token - Токен доступа к API, полученный с помощью функций vkAuth или vkGetToken - -#### Получить данные о возрастных группах посетителей по дням. - -``` -communityDataAge <- vkGetGroupStatAge(date_from = "2016-01-01", - date_to = "2016-04-01", - group_id = 1, - access_token = my_tok$access_token) -``` -##### Аргументы -* date_from - Начальная дата выводимой статистики в формате YYYY-MM-DD. -* date_to - Конечная дата выводимой статистики в формате YYYY-MM-DD. -* group_id - Идентификатор сообщества. -* api_version - Версия API к который вы будете обращаться, список актуальных версий доступен по [ссылке](https://vk.com/dev/versions). -* access_token - Токен доступа к API, полученный с помощью функций vkAuth или vkGetToken - -#### Получить данные о поле посетителей по дням. - -``` -communityDataGender <- vkGetGroupStatGender(date_from = "2016-01-01", - date_to = "2016-04-01", - group_id = 1, - access_token = my_tok$access_token) -``` -##### Аргументы -* date_from - Начальная дата выводимой статистики в формате YYYY-MM-DD. -* date_to - Конечная дата выводимой статистики в формате YYYY-MM-DD. -* group_id - Идентификатор сообщества. -* api_version - Версия API к который вы будете обращаться, список актуальных версий доступен по [ссылке](https://vk.com/dev/versions). -* access_token - Токен доступа к API, полученный с помощью функций vkAuth или vkGetToken - -#### Получить данные о половозрастной структуре ваших посетителей по дням. - -``` -communityDataGenderAge <- vkGetGroupStatGenderAge(date_from = "2016-01-01", - date_to = "2016-04-01", - group_id = 1, - access_token = my_tok$access_token) -``` -##### Аргументы -* date_from - Начальная дата выводимой статистики в формате YYYY-MM-DD. -* date_to - Конечная дата выводимой статистики в формате YYYY-MM-DD. -* group_id - Идентификатор сообщества. -* api_version - Версия API к который вы будете обращаться, список актуальных версий доступен по [ссылке](https://vk.com/dev/versions). -* access_token - Токен доступа к API, полученный с помощью функций vkAuth или vkGetToken - -#### Получить данные о городах посетителей. - -``` -communityDataCity <- vkGetGroupStatCity(date_from = "2016-01-01", - date_to = "2016-04-01", - group_id = 1, - access_token = my_tok$access_token) -``` -##### Аргументы -* date_from - Начальная дата выводимой статистики в формате YYYY-MM-DD. -* date_to - Конечная дата выводимой статистики в формате YYYY-MM-DD. -* group_id - Идентификатор сообщества. -* api_version - Версия API к который вы будете обращаться, список актуальных версий доступен по [ссылке](https://vk.com/dev/versions). -* access_token - Токен доступа к API, полученный с помощью функций vkAuth или vkGetToken - -#### Получить данные о странах посетителей. - -``` -communityDataCountries <- vkGetGroupStatCountries(date_from = "2016-01-01", - date_to = "2016-04-01", - group_id = 1, - access_token = my_tok$access_token) -``` -##### Аргументы -* date_from - Начальная дата выводимой статистики в формате YYYY-MM-DD. -* date_to - Конечная дата выводимой статистики в формате YYYY-MM-DD. -* group_id - Идентификатор сообщества. -* api_version - Версия API к который вы будете обращаться, список актуальных версий доступен по [ссылке](https://vk.com/dev/versions). -* access_token - Токен доступа к API, полученный с помощью функций vkAuth или vkGetToken - -### Функции для загрузки справочной информации из Вконтакте -Во всех примерах этого раздела подразумевается что вы сначала прошли процесс авторизации с помощью функции vkAuth, пример кода ниже: - -``` -##Авторизация в вконтакте -my_tok <- vkAuth(app_id = 1,app_secret = "H2Pk8htyFD8024mZaPHm") -``` - -#### Получить id и название стран -``` -##Получаем список стран -vk_countries <- vkGetDbCountries(need_all = T, - code = c("RU","UA","BY"), - access_token = my_tok$access_token) -``` -##### Аргументы -* need_all - Логическое TRUE или FALSE, флаг - вернуть список всех стран. -* code - Текстовый вектор, двухбуквенные коды стран в стандарте ISO 3166-1 alpha-2, для которых необходимо выдать информацию. Пример c("RU","UA","BY"), список всех кодов можно посмотреть по ссылке - https://vk.com/dev/country_codes. Не обязательный аргумент. -* api_version - Версия API к который вы будете обращаться, список актуальных версий доступен по [ссылке](https://vk.com/dev/versions). -* access_token - Токен доступа к API, полученный с помощью функций vkAuth или vkGetToken - -#### Получить справочник городов -``` -##Получаем справочник городов Украины, т.к. id Украины = 2 -vk_cities <- vkGetDbCities(country_id = 2, - access_token = my_tok$access_token) -``` -##### Аргументы -* country_id - Идентификатор страны, полученный с помощью функции vkGetDbCountries. -* region_id - Идентификатор региона, города которого необходимо получить. (параметр не обязателен).} -* q - Строка поискового запроса. Например, "Санкт". Максимальная длина строки — 15 символов. -* need_all - Логическое TRUE или FALSE, флаг - вернуть список всех городов страны указанной в аргументе country_id. -* api_version - Версия API к который вы будете обращаться, список актуальных версий доступен по [ссылке](https://vk.com/dev/versions). -* access_token - Токен доступа к API, полученный с помощью функций vkAuth или vkGetToken - -#### Получить справочник регионов -``` -##Получаем справочник городов Украины, т.к. id Украины = 2, по запросу "Оде" -vk_regions_search <- vkGetDbRegions(country_id = 2, - q = "Оде", - access_token = my_tok$access_token) -``` -##### Аргументы -* country_id - Идентификатор страны, полученный с помощью функции vkGetDbCountries. -* q - Строка поискового запроса. Например, "Санкт". Максимальная длина строки — 15 символов. -* api_version - Версия API к который вы будете обращаться, список актуальных версий доступен по [ссылке](https://vk.com/dev/versions). -* access_token - Токен доступа к API, полученный с помощью функций vkAuth или vkGetToken - -### Функции для загрузки инормации о пользователе Вконтакте -Во всех примерах этого раздела подразумевается что вы сначала прошли процесс авторизации с помощью функции vkAuth, пример кода ниже: - -``` -##Авторизация в вконтакте -my_tok <- vkAuth(app_id = 1,app_secret = "H2Pk8htyFD8024mZaPHm") -``` - -#### Получиить список друзей пользователя Вконтакте. -``` -my_vk_friends <- vkGetUserfriends(user_id = 7437995, - access_token = my_tok$access_token) -``` -##### Аргументы -* user_id - Идентификатор пользователя, для которого необходимо получить список друзей. Если параметр не задан, то считается, что он равен идентификатору текущего пользователя. -* name_case - Падеж для склонения имени и фамилии пользователя. Возможные значения: - * именительный – nom - * родительный – gen - * дательный – dat - * винительный – acc - * творительный – ins - * предложный – abl - * По умолчанию - nom -* api_version - Версия API к который вы будете обращаться, список актуальных версий доступен по [ссылке](https://vk.com/dev/versions). -* access_tokenТокен доступа к API, полученный с помощью функций vkAuth или vkGetToken - -##### Возвращаемые значения -* user_id - Идентификатор пользователя. -* first_name - Имя. -* last_name - Фамилия. -* gender - Пол. -* nickname - Никнейм (отчество) пользователя. -* domain - Короткий адрес страницы. Возвращается строка, содержащая короткий адрес страницы (например, andrew). Если он не назначен, возвращается "id"+user_id, например, id35828305. -* bdate - Дата рождения. Возвращается в формате D.M.YYYY или D.M (если год рождения скрыт). Если дата рождения скрыта целиком, поле отсутствует в ответе. -* city - ID города, название города можно получить с помощью функции vkGetDbCities. -* country - ID страны, название страны можно получить с помощью функции vkGetDbCountries. -* photo_50 - Url квадратной фотографии пользователя, имеющей ширину 50 пикселей. В случае отсутствия у пользователя фотографии возвращается http://vk.com/images/camera_c.gif. -* photo_100 - Url квадратной фотографии пользователя, имеющей ширину 100 пикселей. В случае отсутствия у пользователя фотографии возвращается http://vk.com/images/camera_b.gif. -* photo_200_orig - Url фотографии пользователя, имеющей ширину 200 пикселей. В случае отсутствия у пользователя фотографии возвращается http://vk.com/images/camera_a.gif. -* has_mobile - Информация о том, известен ли номер мобильного телефона пользователя. Возвращаемые значения: 1 — известен, 0 — не известен. -* online - Информация о том, находится ли пользователь сейчас на сайте. -* can_post - Информация о том, может ли текущий пользователь оставлять записи на стене. Возможные значения: - * 1 — может - * 0 — не может. -* can_see_all_posts - Информация о том, может ли текущий пользователь видеть чужие записи на стене. Возможные значения: - * 1 — может - * 0 — не может. -* can_write_private_message - Информация о том, может ли текущий пользователь отправить личное сообщение. Возможные значения: - * 1 — может - * 0 — не может. -* status - Статус пользователя. Возвращается строка, содержащая текст статуса, расположенного в профиле под именем пользователя. -* last_seen_time - Дата и время время последнего посещения. -* last_seen_platform - Тип платформы, через которую был осуществлён последний вход. Возможные значения: - * 1 — мобильная версия - * 2 — приложение для iPhone - * 3 — приложение для iPad - * 4 — приложение для Android - * 5 — приложение для Windows Phone - * 6 — приложение для Windows 10 - * 7 — полная версия сайта. -* university - Идентификатор университета. -* university_name - Название университета. -* faculty - Идентификатор факультета. -* faculty_name - Название факультета. -* graduation - Год окончания. -* education_form - Форма обучения -* education_status - Статус (например, "Выпускник (специалист)") -* relation - Семейное положение пользователя. Возможные значения: - * 1 — не женат/не замужем - * 2 — есть друг/есть подруга - * 3 — помолвлен/помолвлена - * 4 — женат/замужем - * 5 — всё сложно - * 6 — в активном поиске - * 7 — влюблён/влюблена - * 8 — в гражданском браке - * 0 — не указано.} - -#### Получить список групп и сообществ в которых состоит пользователь Вконтакте -``` -my_vk_community <- vkGetUserGroups(user_id = 7437995, - access_token = my_tok$access_token) -``` -##### Аргументы -* user_id - Идентификатор пользователя, для которого необходимо получить список друзей. Если параметр не задан, то считается, что он равен идентификатору текущего пользователя. -* filter - Текстовый вектор фильтров сообществ, которые необходимо вернуть. Возможные значения - * admin - сообщества, в которых пользователь является администратором - * editor - администратором или редактором - * moder – администратором, редактором или модератором - * groups – группы - * publics – публичные страницы - * events – мероприятия - * По умолчанию возвращаются все сообщества пользователя. -* api_version - Версия API к который вы будете обращаться, список актуальных версий доступен по [ссылке](https://vk.com/dev/versions). -* access_tokenТокен доступа к API, полученный с помощью функций vkAuth или vkGetToken - -##### Возвращаемые значения -* gid - Идентификатор сообщества. -* name - Название сообщества. -* screen_name - Короткий адрес, например, apiclub. -* is_closed - Является ли сообщество закрытым. Возможные значения: - * 0 — открытое - * 1 — закрытое - * 2 — частное -* type - Тип сообщества: - * group — группа - * page — публичная страница - * event — мероприятие. -* description - Текст описания сообщества. -* wiki_page - Название главной вики-страницы. -* members_count - Количество участников. -* start_date - Дата основания. -* can_post - Информация о том, может ли текущий пользователь оставлять записи на стене сообщества. Возможные значения: - * 1 — может - * 0 — не может. -* can_see_all_posts - Информация о том, разрешено ли видеть чужие записи на стене группы. Возможные значения: - * 1 — может - * 0 — не может. -* activity - Строка состояния публичной страницы. У групп возвращается строковое значение, открыта ли группа или нет, а у событий дата начала. -* status - Статус сообщества. -* fixed_post - Идентификатор закрепленной записи. -* verified - Информация о том, верифицировано ли сообщество. Возможные значения: - * 1 — может - * 0 — не может. -* site - Адрес сайта из поля «веб-сайт» в описании сообщества. -* can_create_topic - Информация о том, может ли текущий пользователь создать новое обсуждение в группе. Возможные значения: - * 1 — может, - * 0 — не может. -* photo - URL главной фотографии с размером 50x50px. -* photo_medium - URL главной фотографии с размером 100х100px. -* photo_big - URL главной фотографии в максимальном размере. - -#### Получить сообщения со стены пользователя с количеством комментариев, лайков и рипостов -``` -my_vk_wall <- vkGetUserWall(user_id = 7437995, - access_token = my_tok$access_token) -``` -##### Аргументы -* user_id - Идентификатор пользователя, для которого необходимо получить список друзей. Если параметр не задан, то считается, что он равен идентификатору текущего пользователя. -* domain - Короткий адрес пользователя -* filter - определяет, какие типы записей на стене необходимо получить. Возможные значения: - * suggests — предложенные записи на стене сообщества - * postponed — отложенные записи - * owner — записи владельца стены - * others — записи не от владельца стены - * all — все записи на стене (owner + others) - * По умолчанию: all. -* api_version - Версия API к который вы будете обращаться, список актуальных версий доступен по [ссылке](https://vk.com/dev/versions). -* access_tokenТокен доступа к API, полученный с помощью функций vkAuth или vkGetToken - -##### Возвращаемые значения -* id - Идентификатор записи. -* from_id - Идентификатор автора записи. -* to_id - Идентификатор владельца стены, на которой размещена запись. -* date - Время публикации записи -* post_type - Тип записи, может принимать следующие значения: post, copy, reply, postpone, suggest. -* text - Текст записи. -* can_delete - Информация о том, может ли текущий пользователь удалить запись - * 1 — может - * 0 — не может. -* comments_count - Кличество комментариев. -* likes_count - Число пользователей, которым понравилась запись. -* reposts_count - Число пользователей, скопировавших запись. -* attachment_type - Тип медиавложения записи (фотографии, ссылки и т.п.) - -## Список статей с примерами работы с пакетом rvkstat -* [Как перенести данные из ВКонтакте в Power BI](https://netpeak.net/ru/blog/kak-perenesti-dannyye-iz-vkontakte-v-power-bi/) ([Блог Netpeak](https://netpeak.net/ru/blog/)), *[Алексей Селезнёв](https://www.facebook.com/selesnow)* -* [Загрузка статистики из «ВКонтакте» и Facebook в Google BigQuery — руководство](https://ppc.world/articles/zagruzka-statistiki-iz-vkontakte-i-facebook-v-google-bigquery/) ([ppc.world](https://ppc.world/)), *[Михаил Гусев](https://ppc.world/profile/12937/)* - -## Автор пакета: Алексей Селезнёв, Head of Analytics Dept. at Netpeak* -

- -

- -### Контакты: - - -

- -

diff --git a/en/_config.yml b/en/_config.yml deleted file mode 100644 index 1885487..0000000 --- a/en/_config.yml +++ /dev/null @@ -1 +0,0 @@ -theme: jekyll-theme-midnight \ No newline at end of file diff --git a/en/getCode/get_code.html b/en/getCode/get_code.html deleted file mode 100644 index 124d471..0000000 --- a/en/getCode/get_code.html +++ /dev/null @@ -1,62 +0,0 @@ - - - - - - - - - - - - - -

Авторизация для работы с API Вконтакте с помощью R клиента rvkstat

-

Ваш Код подтверждения:

-

- -

Введите значение данного когда в R консоль на запрос "Enter code from URL:", после чего в R будет создан объект содержащий токен доступа к API Вконтакте и вы сможете получить данные с помощью функций доступных в пакете rvkstat.

- -

Подробное описание всех доступных функций пакета можно найти тут.

-

Author: Alexey Seleznev

- -
-
-
- - - - - - - -
-
-
-
- - diff --git a/en/getCode/get_token.html b/en/getCode/get_token.html deleted file mode 100644 index e2f2cc4..0000000 --- a/en/getCode/get_token.html +++ /dev/null @@ -1,49 +0,0 @@ - - - - - - - - - - - - -

Авторизация для работы с API Вконтакте с помощью R клиента rvksta

-

Ваш Код Токен доступа:

-

- -

Введите значение данного когда в R консоль на запрос "Your vk token from URL parameter access_token: ", после чего в R будет создан объект содержащий токен доступа к API Вконтакте и вы сможете получить данные с помощью функций доступных в пакете rvkstat.

- -

Подробное описание всех доступных функций пакета можно найти тут.

-

Author: Alexey Seleznev

- -
-
-
- - - - - - - -
-
-
-
- - - diff --git a/en/index.html b/en/index.html deleted file mode 100644 index f8af433..0000000 --- a/en/index.html +++ /dev/null @@ -1,1068 +0,0 @@ - - - - - - - -Содержание ReadMe пакета rvkstat | rvkstat - - - - - - - - - -
- -

rvkstat

- - - - - - - - - - - -

Содержание ReadMe пакета rvkstat

- - - -

Краткое описание пакета rvkstat

-

Пакет rvkstat является R клиентом для работы с API социальной сети Вконтакте, с помощью функций данного пакета можно получить статистику из рекламного кабинета Вконтакте, а так же данные о посетителях сообществ вконтакте по дням, в разрезе возрастных групп, пола и геолокации посетителей.

- -

Все функции входящие в пакет rvkstat имеюи префикс vk.

- -

Все функции пакета разделены на блоки, определить к какому блоку относится функция можно из её названия, название блока к которому относится функция идёт сразу после префикса vk:

- -
    -
  • Блок функция GetGroupStat предназначем для загрузки статистики по сообществам Вконтакте.
    • -
  • Блок функций GetAd направлен на загрузку данных из рекламного кабинета Вконтакте.
    • -
  • Блок функций GetDb даёт возможность загрузки справочной информации из Вконтакте.
    • -
  • Блок функций GetUser используется для загрузки данных о конкретном пользователе Вконтакте.
    • -
- -

Как получить подробную справку по функциям пакета rvkstat

-

Все функции пакета имеют подробное описание на русском языке, получить детальную справку по любой функции пакета rvkstat можно с помощь команды help, если вы работаете в RStudio справку так же можно получить указав ? перед названием комапнды:

- -

help("vkGetAdStatistics")

- -

?vkGetAdStatistics

- -

Что необходимо для начала работы с API Вктонтакте с помощью пакета rvkstat

-

Для работы с api вконтакте вам необходимо создать Standalone-приложение, для этого перейдите по этой ссылке, и выберите Standalone-приложение.

-

- -

Для начала работы и для того, что бы с помощью функции авторизации в Вконтакте получить токен разработчика используйте ID и Защищённый ключ приложения.

-

- -

Как работать с API сервисом Вконтакте на Украине

-

Обойти блокировку API Вконтакте на Украине можно с помощью пакета getProxy. -Процесс обхода блокировки с помозью пакета getProxy:

- -
    -
  1. Устанавливаем пакет getProxy с помощью приведённого ниже кода: - 
    if(!"devtools" %in% installed.packages()[,1]){install.packages("devtools")}
-library(devtools)
-install_github("selesnow/getProxy")
-
    -
    -
    2. -
  2. Подключаем пакет getProxy с помощью комманды library(getProxy).
    3. -
  3. Далее с помощью функции getProy обходим блокировку через прокси сервер, пример кода ниже:
    4. -
- -
#Направляем интернет соединение через прокси сервер
-getProxy(port = "3128", country = "RU", supportsHttps = TRUE, action = "start")
-
-#Пишем код для работы с API Вконтакте с помощью функций пакета rvkstat
-
-#Отключаемся от прокси сервера
-getProxy9action = "stop")
-
-
- -

Установка пакета

-

Пакет rvkstat может быть установлен непосредственно из репозитория Github с помощью приведённого ниже программного кода.

- -
if(!"devtools" %in% installed.packages()[,1]){install.packages("devtools")}
-devtools::install_github('selesnow/rvkstat')
-
-
-

Авторизация вконтакте для работы с API.

-

Для прохождения процесса авторизации в пакете rvkstat есть две функции:

- -
    -
  • vkGetToken - Упрощённая авторизация по методу Implicit Flow, токен доступа выдаётся с привязкой к IP адресу, в связи с чем при смене IP адреса прийдётся проходить процедуру авторизации.
    • -
  • vkAuth - Для прохождение процесса авторизации с помощью метода Authorization Code Flow, токен полученный с помощью данной функции будет работать с любого IP.
    • -
- -

Пример прохождения авторизации с помощью функции vkGetToken

-

Для авторизации по схеме Implicit Flow воспользуйтесь следующим кодом:

- -

myToken <- vkGetToken(app_id = <ID Вашего Приложения>)

- -

Измените на ID вашего приложения, ID приложения можно получить на странице настройки приложения, как показано в разделе "[Что необходимо для начала работы с API Вктонтакте с помощью пакета rvkstat](https://github.com/selesnow/rvkstat/blob/master/README.md#Требование)".

- -

После запуска функции откроется окно браузера, в котором вам необходимо предоставить приложению все необходимые для работы разрешения.

-

- -

После предоставления разрешения вы будете перенаправлены на страницу https://selesnow.github.io/rvkstat/getCode/get_token.html где вам будет сгенерирован токен доступа.

- -

- -

Скопируйте его значение и вставьте в R, в качестве ответа на запрос “Your vk token from URL parameter access_token: “.

- -

Пример прохождения авторизации с помощью функции vkAuth

-

myToken <- vkAuth(app_id = <ID Вашего Приложения>, app_secret = <Защищённый Ключ Вашего Приложения>)

- -

Вместо укажите ID вашего приложения, вместо <Защищённый Ключ="" Вашего="" Приложения=""> укажите защищёный ключ вашего приложения, оба аргумента можно посмотреть на странице настройки приложения как описано в разделе "[Что необходимо для начала работы с API Вктонтакте с помощью пакета rvkstat](https://github.com/selesnow/rvkstat/blob/master/README.md#Требование)".

- -

После запуска функции откроется окно браузера, в котором вы должны подтвердить разрешение доступ к данным в вконтакте.

-

- -

После предоставления разрешения вы будете перенаправлены на страницу https://selesnow.github.io/rvkstat/getCode/get_code.html где вам будет сгенерирован код для получения токена доступа.

- -

- -

Скопируйте его значение и вставьте в R, в качестве ответа на запрос “Enter code from URL: “. После чего в рабочем окружении R появится объект myToken, который будет содержать токен доступа, срок действия токена (в данном случае токен бессрочный) и id пользователя которому был предоставлен токен доступа к API.

- -

Функции доступные в пакете rvkstat

- -

Функции для загрузки данных из рекламного кабинета Вконтакте

- -

Получить список возможных тематик рекламных объявлений и их подразделов.

-
##Авторизация в вк
-my_tok <- vkAuth(app_id = 11111111,app_secret = "H2Pk8htyFD8024mZaPHm")
-##Получение списка возможных тематик рекламных объявлений
-vk_ad_categories <- vkGetAdCategories(access_token = my_tok$access_token)
-
-
-
Аргументы
-
    -
  • access_token - Токен доступа к API, полученный с помощью функций vkAuth или vkGetToken
    • -
- -

Получить список досупных рекламных кабинетов Вконтакте

-
##Авторизация в вк
-my_tok <- vkAuth(app_id = 11111111,app_secret = "H2Pk8htyFD8024mZaPHm")
-##Запрос списка доступных рекламных кабинетов
-my_vk_acc <- vkGetAdAccounts(my_tok$access_token)
-
-
-
Аргументы
-
    -
  • access_token - Токен доступа к API, полученный с помощью функций vkAuth или vkGetToken
    • -
- -

Получить список клиентов из агентского аккаунта Вконтакте

-
##Авторизация в вк
-my_tok <- vkAuth(app_id = 11111111,app_secret = "H2Pk8htyFD8024mZaPHm")
-##Запрос списка доступных рекламных кабинетов
-my_vk_clients <- vkGetAdClients(account_id = 11111111, access_token = my_tok$access_token)
-
-
-
Аргументы
-
    -
  • account_id - Идентификатор рекламного кабинета, список всех доступных рекламных кабинетов можно получить с помщью функции vkGetAdAccounts.
    • -
  • access_token - Токен доступа к API, полученный с помощью функций vkAuth или vkGetToken
    • -
- -

Получить список объявлений из рекламного кабинета вконтакте

-
##Авторизация в вконтакте
-my_tok <- vkAuth(app_id = 11111111,app_secret = "H2Pk8htyFD8024mZaPHm")
-#Получаем список объявлений
-my_vk_ads <- vkGetAds(account_id = 11111111, 
-                      access_token = my_tok$access_token)
-
-
-
Аргументы
-
    -
  • account_id - Идентификатор рекламного кабинета, список всех доступных рекламных кабинетов можно получить с помщью функции vkGetAdAccounts.
    • -
  • client_id - Идентификатор клиента, у которого запрашиваются рекламные объявления. Доступно и обязательно для рекламных агентств.
    • -
  • include_deleted - Логическое TRUE или FALSE, флаг, задающий необходимость вывода архивных объявлений.
    • -
  • campaign_ids - Числовой вектор, фильтр по рекламным кампаниям.
    • -
  • ad_ids - Числовой вектор, фильтр по рекламным объявлениям.
    • -
  • access_token - Токен доступа к API, полученный с помощью функций vkAuth или vkGetToken
    • -
- -

Получить список рекламных кампаний из рекламного кабинета вконтакте

-
##Авторизация в вконтакте
-my_tok <- vkAuth(app_id = 11111111,app_secret = "H2Pk8htyFD8024mZaPHm")
-#Получаем список рекламных кампаний
-my_vk_campaigns <- vkGetAdCampaigns(account_id = 11111111, 
-                                    access_token = my_tok$access_token)
-
-
-
Аргументы
-
    -
  • account_id - Идентификатор рекламного кабинета, список всех доступных рекламных кабинетов можно получить с помщью функции vkGetAdAccounts.
    • -
  • client_id - Идентификатор клиента, у которого запрашиваются рекламные объявления. Доступно и обязательно для рекламных агентств.
    • -
  • include_deleted - Логическое TRUE или FALSE, флаг, задающий необходимость вывода архивных объявлений.
    • -
  • campaign_ids - Числовой вектор, фильтр по рекламным кампаниям.
    • -
  • access_token - Токен доступа к API, полученный с помощью функций vkAuth или vkGetToken
    • -
- -

Получить статистику показателей эффективности по рекламным объявлениям, кампаниям, клиентам или всему кабинету.

-
##Авторизация в вконтакте
-my_tok <- vkAuth(app_id = 11111111,app_secret = "H2Pk8htyFD8024mZaPHm")
-
-##Получаем список рекламных кампаний
-camp <- vkGetAdCampaigns(account_id = 11111111, access_token = my_tok$access_token)
-
-##Получаем статистику по рекламным кампаниям по дням
-vk_stat_by_campaign <- vkGetAdStatistics(account_id = 11111111,
-                                         ids_type = "campaign",
-                                         ids = camp$id ,
-                                         period = "day",
-                                         date_from = "2010-01-01", 
-                                         date_to = "2017-09-10",
-                                         access_token = my_tok$access_token)
-										
-
-
-
Аргументы
-
    -
  • account_id - Идентификатор рекламного кабинета, список всех доступных рекламных кабинетов можно получить с помщью функции vkGetAdAccounts.
    • -
  • ids_type - Тип запрашиваемых объектов, которые перечислены в параметре ids, допустимые значения: -
      -
    • ad — объявления
      • -
    • campaign — кампании
      • -
    • client — клиенты
      • -
    • office — кабинет
      • -
    -
    • -
  • ids - Перечисленные через запятую id запрашиваемых объявлений, кампаний, клиентов или кабинета, в зависимости от того, что указано в параметре ids_type.
    • -
  • period - Способ группировки данных по датам, допустимые значения: -
      -
    • day — статистика по дням
      • -
    • month — статистика по месяцам
      • -
    • overall — статистика за всё время
      • -
    -
    • -
  • date_from - Начальная дата выводимой статистики. Используется разный формат дат для разного значения параметра period -
      -
    • day: YYYY-MM-DD, пример: 2011-09-27 - 27 сентября 2011
      • -
    • month: YYYY-MM, пример: 2011-09 - сентябрь 2011
      • -
    • overall: 0
      • -
    -
    • -
  • date_to - Конечная дата выводимой статистики. Используется разный формат дат для разного значения параметра period: -
      -
    • day: YYYY-MM-DD, пример: 2011-09-27 - 27 сентября 2011
      • -
    • month: YYYY-MM, пример: 2011-09 - сентябрь 2011
      • -
    • overall: 0
      • -
    -
    • -
  • access_token - Токен доступа к API, полученный с помощью функций vkAuth или vkGetToken
    • -
- -
Возвращаемые значения
-
    -
  • id — id объекта из параметра ids
    • -
  • type — тип объекта из параметра ids_type
    • -
  • day (если period равен day) — день в формате YYYY-MM-DD
    • -
  • month (если period равен month) — день в формате YYYY-MM
    • -
  • overall (если period равен overall) — 1
    • -
  • spent — потраченные средства
    • -
  • impressions — просмотры
    • -
  • clicks — клики
    • -
  • reach (если ids_type равен ad или campaign и period равен day или month) — охват
    • -
  • video_views (если ids_type равен ad) — просмотры видеоролика (для видеорекламы)
    • -
  • video_views_half (если ids_type равен ad) — просмотры половины видеоролика (для видеорекламы)
    • -
  • video_views_full (если ids_type равен ad) — просмотры целого видеоролика (для видеорекламы)
    • -
  • video_clicks_site (если ids_type равен ad) — переходы на сайт рекламодателя из видеорекламы (для видеорекламы)
    • -
  • join_rate (если ids_type равен ad или campaign) — вступления в группу, событие, подписки на публичную страницу или установки приложения (только если в объявлении указана прямая ссылка на соответствующую страницу ВКонтакте)
    • -
- -

Получить остаток средств из рекламного кабинета

-
##Авторизация в вконтакте
-my_tok <- vkAuth(app_id = 11111111,app_secret = "H2Pk8htyFD8024mZaPHm")
-#Получаем остаток средств из рекламного кабинета
-vk_budget <- vkGetAdBudget(account_id = 11111111, 
-                           access_token = my_tok$access_token)
-
-
-
Аргументы
-
    -
  • account_id - Идентификатор рекламного кабинета, список всех доступных рекламных кабинетов можно получить с помщью функции vkGetAdAccounts.
    • -
  • access_token - Токен доступа к API, полученный с помощью функций vkAuth или vkGetToken
    • -
- -

Получить статистику по охвату аудитории по рекламным кампаним или объявления в разрезе городов

-
##Авторизация в вконтакте
-my_tok <- vkAuth(app_id = 11111111,app_secret = "H2Pk8htyFD8024mZaPHm")
-
-##Получаем список рекламных кампаний
-camp <- vkGetAdCampaigns(account_id = 11111111, access_token = my_tok$access_token)
-
-##Получаем статистику по рекламным кампаниям по дням
-vk_ad_city_stat_day <- vkGetAdCityStats(account_id = 11111111,
-                                        ids_type = "campaign",
-                                        ids = camp$id ,
-                                        period = "day",
-                                        date_from = "2010-01-01", 
-                                        date_to = "2017-09-10",
-                                        access_token = my_tok$access_token)
-										
-
-
-
Аргументы
-
    -
  • account_id - Идентификатор рекламного кабинета, список всех доступных рекламных кабинетов можно получить с помщью функции vkGetAdAccounts.
    • -
  • ids_type - Тип запрашиваемых объектов, которые перечислены в параметре ids, допустимые значения: -
      -
    • ad — объявления
      • -
    • campaign — кампании
      • -
    -
    • -
  • ids - Перечисленные через запятую id запрашиваемых объявлений, кампаний, клиентов или кабинета, в зависимости от того, что указано в параметре ids_type.
    • -
  • period - Способ группировки данных по датам, допустимые значения: -
      -
    • day — статистика по дням
      • -
    • month — статистика по месяцам
      • -
    • overall — статистика за всё время
      • -
    -
    • -
  • date_from - Начальная дата выводимой статистики. Используется разный формат дат для разного значения параметра period -
      -
    • day: YYYY-MM-DD, пример: 2011-09-27 - 27 сентября 2011
      • -
    • month: YYYY-MM, пример: 2011-09 - сентябрь 2011
      • -
    • overall: 0
      • -
    -
    • -
  • date_to - Конечная дата выводимой статистики. Используется разный формат дат для разного значения параметра period: -
      -
    • day: YYYY-MM-DD, пример: 2011-09-27 - 27 сентября 2011
      • -
    • month: YYYY-MM, пример: 2011-09 - сентябрь 2011
      • -
    • overall: 0
      • -
    -
    • -
  • access_token - Токен доступа к API, полученный с помощью функций vkAuth или vkGetToken
    • -
- -
Возвращаемые значения
-
    -
  • id — id объекта из параметра ids
    • -
  • type — тип объекта из параметра ids_type
    • -
  • day (если period равен day) — день в формате YYYY-MM-DD
    • -
  • month (если period равен month) — день в формате YYYY-MM
    • -
  • overall (если period равен overall) — 1
    • -
  • city_id — id города или other для остальных городов
    • -
  • city_name — id города или other для остальных городов
    • -
  • impressions_rate — часть аудитории, просмотревшая объявление, от 0 до 1.
    • -
  • clicks_rate — часть аудитории, кликнувшая по объявлению, от 0 до 1.
    • -
- -

Получить статистику по охвату аудитории по рекламным кампаним или объявления в разрезе пола

-
##Авторизация в вконтакте
-my_tok <- vkAuth(app_id = 11111111,app_secret = "H2Pk8htyFD8024mZaPHm")
-
-##Получаем список рекламных кампаний
-camp <- vkGetAdCampaigns(account_id = 11111111, access_token = my_tok$access_token)
-
-##Получаем статистику по рекламным кампаниям по дням
-vk_ad_gender_stat_day <- vkGetAdGenderStats(account_id = 11111111,
-                                            ids_type = "campaign",
-                                            ids = camp$id ,
-                                            period = "day",
-                                            date_from = "2010-01-01", 
-                                            date_to = "2017-09-10",
-                                            access_token = my_tok$access_token)
-
-
-
Аргументы
-
    -
  • account_id - Идентификатор рекламного кабинета, список всех доступных рекламных кабинетов можно получить с помщью функции vkGetAdAccounts.
    • -
  • ids_type - Тип запрашиваемых объектов, которые перечислены в параметре ids, допустимые значения: -
      -
    • ad — объявления
      • -
    • campaign — кампании
      • -
    -
    • -
  • ids - Перечисленные через запятую id запрашиваемых объявлений, кампаний, клиентов или кабинета, в зависимости от того, что указано в параметре ids_type.
    • -
  • period - Способ группировки данных по датам, допустимые значения: -
      -
    • day — статистика по дням
      • -
    • month — статистика по месяцам
      • -
    • overall — статистика за всё время
      • -
    -
    • -
  • date_from - Начальная дата выводимой статистики. Используется разный формат дат для разного значения параметра period -
      -
    • day: YYYY-MM-DD, пример: 2011-09-27 - 27 сентября 2011
      • -
    • month: YYYY-MM, пример: 2011-09 - сентябрь 2011
      • -
    • overall: 0
      • -
    -
    • -
  • date_to - Конечная дата выводимой статистики. Используется разный формат дат для разного значения параметра period: -
      -
    • day: YYYY-MM-DD, пример: 2011-09-27 - 27 сентября 2011
      • -
    • month: YYYY-MM, пример: 2011-09 - сентябрь 2011
      • -
    • overall: 0
      • -
    -
    • -
  • access_token - Токен доступа к API, полученный с помощью функций vkAuth или vkGetToken
    • -
- -
Возвращаемые значения
-
    -
  • id — id объекта из параметра ids
    • -
  • type — тип объекта из параметра ids_type
    • -
  • day (если period равен day) — день в формате YYYY-MM-DD
    • -
  • month (если period равен month) — день в формате YYYY-MM
    • -
  • overall (если period равен overall) — 1
    • -
  • gender — пол, f - женский, m - мужской
    • -
  • impressions_rate — часть аудитории, просмотревшая объявление, от 0 до 1.
    • -
  • clicks_rate — часть аудитории, кликнувшая по объявлению, от 0 до 1.
    • -
- -

Получить статистику по охвату аудитории по рекламным кампаним или объявления в разрезе возраста

-
##Авторизация в вконтакте
-my_tok <- vkAuth(app_id = 11111111,app_secret = "H2Pk8htyFD8024mZaPHm")
-
-##Получаем список рекламных кампаний
-camp <- vkGetAdCampaigns(account_id = 11111111, access_token = my_tok$access_token)
-
-##Получаем статистику по рекламным кампаниям по дням
-vk_ad_age_stat_day <- vkGetAdAgeStats(account_id = 1,
-                                      ids_type = "campaign",
-                                      ids = camp$id ,
-                                      period = "day",
-                                      date_from = "2010-01-01", 
-                                      date_to = "2017-09-10",
-                                      access_token = my_tok$access_token)
-
-
-
Аргументы
-
    -
  • account_id - Идентификатор рекламного кабинета, список всех доступных рекламных кабинетов можно получить с помщью функции vkGetAdAccounts.
    • -
  • ids_type - Тип запрашиваемых объектов, которые перечислены в параметре ids, допустимые значения: -
      -
    • ad — объявления
      • -
    • campaign — кампании
      • -
    -
    • -
  • ids - Перечисленные через запятую id запрашиваемых объявлений, кампаний, клиентов или кабинета, в зависимости от того, что указано в параметре ids_type.
    • -
  • period - Способ группировки данных по датам, допустимые значения: -
      -
    • day — статистика по дням
      • -
    • month — статистика по месяцам
      • -
    • overall — статистика за всё время
      • -
    -
    • -
  • date_from - Начальная дата выводимой статистики. Используется разный формат дат для разного значения параметра period -
      -
    • day: YYYY-MM-DD, пример: 2011-09-27 - 27 сентября 2011
      • -
    • month: YYYY-MM, пример: 2011-09 - сентябрь 2011
      • -
    • overall: 0
      • -
    -
    • -
  • date_to - Конечная дата выводимой статистики. Используется разный формат дат для разного значения параметра period: -
      -
    • day: YYYY-MM-DD, пример: 2011-09-27 - 27 сентября 2011
      • -
    • month: YYYY-MM, пример: 2011-09 - сентябрь 2011
      • -
    • overall: 0
      • -
    -
    • -
  • access_token - Токен доступа к API, полученный с помощью функций vkAuth или vkGetToken
    • -
- -
Возвращаемые значения
-
    -
  • id — id объекта из параметра ids
    • -
  • type — тип объекта из параметра ids_type
    • -
  • day (если period равен day) — день в формате YYYY-MM-DD
    • -
  • month (если period равен month) — день в формате YYYY-MM
    • -
  • overall (если period равен overall) — 1
    • -
  • age — возрастная группа (12-18, 18-21, 21-24, 24-27, 27-30, 30-35, 35-45, 45-100)
    • -
  • impressions_rate — часть аудитории, просмотревшая объявление, от 0 до 1.
    • -
  • clicks_rate — часть аудитории, кликнувшая по объявлению, от 0 до 1.
    • -
- -

Получить статистику по охвату аудитории по рекламным кампаним или объявления в разрезе пола и возраста

-
##Авторизация в вконтакте
-my_tok <- vkAuth(app_id = 11111111,app_secret = "H2Pk8htyFD8024mZaPHm")
-
-##Получаем список рекламных кампаний
-camp <- vkGetAdCampaigns(account_id = 11111111, access_token = my_tok$access_token)
-
-##Получаем статистику по рекламным кампаниям по дням
-vk_ad_gender_age_stat_day <- vkGetAdGenderAgeStats(account_id = 11111111,
-                                                   ids_type = "campaign",
-                                                   ids = camp$id ,
-                                                   period = "day",
-                                                   date_from = "2010-01-01", 
-                                                   date_to = "2017-09-10",
-                                                   access_token = my_tok$access_token)
-
-
-
Аргументы
-
    -
  • account_id - Идентификатор рекламного кабинета, список всех доступных рекламных кабинетов можно получить с помщью функции vkGetAdAccounts.
    • -
  • ids_type - Тип запрашиваемых объектов, которые перечислены в параметре ids, допустимые значения: -
      -
    • ad — объявления
      • -
    • campaign — кампании
      • -
    -
    • -
  • ids - Перечисленные через запятую id запрашиваемых объявлений, кампаний, клиентов или кабинета, в зависимости от того, что указано в параметре ids_type.
    • -
  • period - Способ группировки данных по датам, допустимые значения: -
      -
    • day — статистика по дням
      • -
    • month — статистика по месяцам
      • -
    • overall — статистика за всё время
      • -
    -
    • -
  • date_from - Начальная дата выводимой статистики. Используется разный формат дат для разного значения параметра period -
      -
    • day: YYYY-MM-DD, пример: 2011-09-27 - 27 сентября 2011
      • -
    • month: YYYY-MM, пример: 2011-09 - сентябрь 2011
      • -
    • overall: 0
      • -
    -
    • -
  • date_to - Конечная дата выводимой статистики. Используется разный формат дат для разного значения параметра period: -
      -
    • day: YYYY-MM-DD, пример: 2011-09-27 - 27 сентября 2011
      • -
    • month: YYYY-MM, пример: 2011-09 - сентябрь 2011
      • -
    • overall: 0
      • -
    -
    • -
  • access_token - Токен доступа к API, полученный с помощью функций vkAuth или vkGetToken
    • -
- -
Возвращаемые значения
-
    -
  • id — id объекта из параметра ids
    • -
  • type — тип объекта из параметра ids_type
    • -
  • day (если period равен day) — день в формате YYYY-MM-DD
    • -
  • month (если period равен month) — день в формате YYYY-MM
    • -
  • overall (если period равен overall) — 1
    • -
  • gender - пол (f — женщины, m — мужчины)
    • -
  • age — возрастная группа (12-18, 18-21, 21-24, 24-27, 27-30, 30-35, 35-45, 45-100)
    • -
  • impressions_rate — часть аудитории, просмотревшая объявление, от 0 до 1
    • -
  • clicks_rate — часть аудитории, кликнувшая по объявлению, от 0 до 1
    • -
- -

Получить подробную статистику по охвату рекламных записей из объявлений и кампаний для продвижения записей сообщества

-
##Авторизация в вконтакте
-my_tok <- vkAuth(app_id = 11111111,app_secret = "H2Pk8htyFD8024mZaPHm")
-
-##Получаем список рекламных кампаний
-camp <- vkGetAdCampaigns(account_id = 11111111, access_token = my_tok$access_token)
-
-#Получаем данные по охвату в разрезе рекламных кампаний
-post_reach <- vkGetAdPostsReach(account_id = 11111111,
-                                ids_type = "campaign",
-                                ids = camp$id,
-                                access_token = my_tok$access_token)
-
-
-
Аргументы
-
    -
  • account_id - Идентификатор рекламного кабинета, список всех доступных рекламных кабинетов можно получить с помщью функции vkGetAdAccounts.
    • -
  • ids_type - Тип запрашиваемых объектов, которые перечислены в параметре ids, допустимые значения: -
      -
    • ad — объявления
      • -
    • campaign — кампании
      • -
    -
    • -
  • ids - Перечисленные через запятую id запрашиваемых объявлений, кампаний, клиентов или кабинета, в зависимости от того, что указано в параметре ids_type.
    • -
  • access_token - Токен доступа к API, полученный с помощью функций vkAuth или vkGetToken
    • -
- -
Возвращаемые значения
-
    -
  • id — ID объекта из параметра ids
    • -
  • reach_subscribers - Охват подписчиков
    • -
  • reach_total - Суммарный охват
    • -
  • links - Переходы по ссылке
    • -
  • to_group - Переходы в сообщество
    • -
  • join_group - Вступления в сообщество
    • -
  • report - Количество жалоб на запись
    • -
  • hide - Количество скрытий записи
    • -
  • unsubscribe - Количество отписавшихся участников
    • -
  • video_views_start - Количество стартов просмотра видео
    • -
  • video_views_3s - Количество досмотров видео до 3 секунд
    • -
  • video_views_25p - Количество досмотров видео до 25 процентов
    • -
  • video_views_50p - Количество досмотров видео до 50 процентов
    • -
  • video_views_75p - Количество досмотров видео до 75 процентов
    • -
  • video_views_100p - Количество досмотров видео до 100 процентов
    • -
- -

Функции для загрузки данных из сообществ Вконтакте

-

Во всех примерах этого раздела подразумевается что вы сначала прошли процесс авторизации с помощью функции vkAuth, пример кода ниже:

- -
##Авторизация в вконтакте
-my_tok <- vkAuth(app_id = 1,app_secret = "H2Pk8htyFD8024mZaPHm")
-
-
- -

Получить данные о количестве просмотров, посетителях, подписавшихся и отписавшихся посетителей по дням

- -
communityData <- vkGetGroupStat(date_from = "2016-01-01", 
-                                date_to = "2016-04-01", 
-                                group_id = 1, 
-                                access_token = my_tok$access_token)
-
-
-
Аргументы
-
    -
  • date_from - Начальная дата выводимой статистики в формате YYYY-MM-DD.
    • -
  • date_to - Конечная дата выводимой статистики в формате YYYY-MM-DD.
    • -
  • group_id - Идентификатор сообщества.
    • -
  • access_token - Токен доступа к API, полученный с помощью функций vkAuth или vkGetToken
    • -
- -

Получить данные о возрастных группах посетителей по дням.

- -
communityDataAge <- vkGetGroupStatAge(date_from = "2016-01-01", 
-                                      date_to = "2016-04-01", 
-                                      group_id = 1, 
-                                      access_token = my_tok$access_token)
-
-
-
Аргументы
-
    -
  • date_from - Начальная дата выводимой статистики в формате YYYY-MM-DD.
    • -
  • date_to - Конечная дата выводимой статистики в формате YYYY-MM-DD.
    • -
  • group_id - Идентификатор сообщества.
    • -
  • access_token - Токен доступа к API, полученный с помощью функций vkAuth или vkGetToken
    • -
- -

Получить данные о поле посетителей по дням.

- -
communityDataGender <- vkGetGroupStatGender(date_from = "2016-01-01", 
-                                            date_to = "2016-04-01", 
-                                            group_id = 1, 
-                                            access_token = my_tok$access_token)
-
-
-
Аргументы
-
    -
  • date_from - Начальная дата выводимой статистики в формате YYYY-MM-DD.
    • -
  • date_to - Конечная дата выводимой статистики в формате YYYY-MM-DD.
    • -
  • group_id - Идентификатор сообщества.
    • -
  • access_token - Токен доступа к API, полученный с помощью функций vkAuth или vkGetToken
    • -
- -

Получить данные о половозрастной структуре ваших посетителей по дням.

- -
communityDataGenderAge <- vkGetGroupStatGenderAge(date_from = "2016-01-01", 
-                                                  date_to = "2016-04-01", 
-                                                  group_id = 1, 
-                                                  access_token = my_tok$access_token)
-
-
-
Аргументы
-
    -
  • date_from - Начальная дата выводимой статистики в формате YYYY-MM-DD.
    • -
  • date_to - Конечная дата выводимой статистики в формате YYYY-MM-DD.
    • -
  • group_id - Идентификатор сообщества.
    • -
  • access_token - Токен доступа к API, полученный с помощью функций vkAuth или vkGetToken
    • -
- -

Получить данные о городах посетителей.

- -
communityDataCity <- vkGetGroupStatCity(date_from = "2016-01-01", 
-                                        date_to = "2016-04-01", 
-                                        group_id = 1, 
-                                        access_token = my_tok$access_token)
-
-
-
Аргументы
-
    -
  • date_from - Начальная дата выводимой статистики в формате YYYY-MM-DD.
    • -
  • date_to - Конечная дата выводимой статистики в формате YYYY-MM-DD.
    • -
  • group_id - Идентификатор сообщества.
    • -
  • access_token - Токен доступа к API, полученный с помощью функций vkAuth или vkGetToken
    • -
- -

Получить данные о странах посетителей.

- -
communityDataCountries <- vkGetGroupStatCountries(date_from = "2016-01-01", 
-                                                  date_to = "2016-04-01", 
-                                                  group_id = 1, 
-                                                  access_token = my_tok$access_token)
-
-
-
Аргументы
-
    -
  • date_from - Начальная дата выводимой статистики в формате YYYY-MM-DD.
    • -
  • date_to - Конечная дата выводимой статистики в формате YYYY-MM-DD.
    • -
  • group_id - Идентификатор сообщества.
    • -
  • access_token - Токен доступа к API, полученный с помощью функций vkAuth или vkGetToken
    • -
- -

Функции для загрузки справочной информации из Вконтакте

-

Во всех примерах этого раздела подразумевается что вы сначала прошли процесс авторизации с помощью функции vkAuth, пример кода ниже:

- -
##Авторизация в вконтакте
-my_tok <- vkAuth(app_id = 1,app_secret = "H2Pk8htyFD8024mZaPHm")
-
-
- -

Получить id и название стран

-
##Получаем список стран
-vk_countries <- vkGetDbCountries(need_all = T,
-                                 code = c("RU","UA","BY"),
-                                 access_token = my_tok$access_token)
-
-
-
Аргументы
-
    -
  • need_all - Логическое TRUE или FALSE, флаг - вернуть список всех стран.
    • -
  • code - Текстовый вектор, двухбуквенные коды стран в стандарте ISO 3166-1 alpha-2, для которых необходимо выдать информацию. Пример c(“RU”,”UA”,”BY”), список всех кодов можно посмотреть по ссылке - https://vk.com/dev/country_codes. Не обязательный аргумент.
    • -
  • access_token - Токен доступа к API, полученный с помощью функций vkAuth или vkGetToken
    • -
- -

Получить справочник городов

-
##Получаем справочник городов Украины, т.к. id Украины = 2
-vk_cities <- vkGetDbCities(country_id = 2,
-                           access_token = my_tok$access_token)
-
-
-
Аргументы
-
    -
  • country_id - Идентификатор страны, полученный с помощью функции vkGetDbCountries.
    • -
  • region_id - Идентификатор региона, города которого необходимо получить. (параметр не обязателен).}
    • -
  • q - Строка поискового запроса. Например, “Санкт”. Максимальная длина строки — 15 символов.
    • -
  • need_all - Логическое TRUE или FALSE, флаг - вернуть список всех городов страны указанной в аргументе country_id.
    • -
  • access_token - Токен доступа к API, полученный с помощью функций vkAuth или vkGetToken
    • -
- -

Получить справочник регионов

-
##Получаем справочник городов Украины, т.к. id Украины = 2, по запросу "Оде"
-vk_regions_search  <- vkGetDbRegions(country_id = 2,
-                                     q = "Оде",
-                                     access_token = my_tok$access_token)
-
-
-
Аргументы
-
    -
  • country_id - Идентификатор страны, полученный с помощью функции vkGetDbCountries.
    • -
  • q - Строка поискового запроса. Например, “Санкт”. Максимальная длина строки — 15 символов.
    • -
  • access_token - Токен доступа к API, полученный с помощью функций vkAuth или vkGetToken
    • -
- -

Функции для загрузки инормации о пользователе Вконтакте

-

Во всех примерах этого раздела подразумевается что вы сначала прошли процесс авторизации с помощью функции vkAuth, пример кода ниже:

- -
##Авторизация в вконтакте
-my_tok <- vkAuth(app_id = 1,app_secret = "H2Pk8htyFD8024mZaPHm")
-
-
- -

Получиить список друзей пользователя Вконтакте.

-
my_vk_friends <- vkGetUserfriends(user_id = 7437995,
-                                  access_token = my_tok$access_token)
-
-
-
Аргументы
-
    -
  • user_id - Идентификатор пользователя, для которого необходимо получить список друзей. Если параметр не задан, то считается, что он равен идентификатору текущего пользователя.
    • -
  • name_case - Падеж для склонения имени и фамилии пользователя. Возможные значения: -
      -
    • именительный – nom
      • -
    • родительный – gen
      • -
    • дательный – dat
      • -
    • винительный – acc
      • -
    • творительный – ins
      • -
    • предложный – abl
      • -
    • По умолчанию - nom
      • -
    -
    • -
  • access_tokenТокен доступа к API, полученный с помощью функций vkAuth или vkGetToken
    • -
- -
Возвращаемые значения
-
    -
  • user_id - Идентификатор пользователя.
    • -
  • first_name - Имя.
    • -
  • last_name - Фамилия.
    • -
  • gender - Пол.
    • -
  • nickname - Никнейм (отчество) пользователя.
    • -
  • domain - Короткий адрес страницы. Возвращается строка, содержащая короткий адрес страницы (например, andrew). Если он не назначен, возвращается “id”+user_id, например, id35828305.
    • -
  • bdate - Дата рождения. Возвращается в формате D.M.YYYY или D.M (если год рождения скрыт). Если дата рождения скрыта целиком, поле отсутствует в ответе.
    • -
  • city - ID города, название города можно получить с помощью функции vkGetDbCities.
    • -
  • country - ID страны, название страны можно получить с помощью функции vkGetDbCountries.
    • -
  • photo_50 - Url квадратной фотографии пользователя, имеющей ширину 50 пикселей. В случае отсутствия у пользователя фотографии возвращается http://vk.com/images/camera_c.gif.
    • -
  • photo_100 - Url квадратной фотографии пользователя, имеющей ширину 100 пикселей. В случае отсутствия у пользователя фотографии возвращается http://vk.com/images/camera_b.gif.
    • -
  • photo_200_orig - Url фотографии пользователя, имеющей ширину 200 пикселей. В случае отсутствия у пользователя фотографии возвращается http://vk.com/images/camera_a.gif.
    • -
  • has_mobile - Информация о том, известен ли номер мобильного телефона пользователя. Возвращаемые значения: 1 — известен, 0 — не известен.
    • -
  • online - Информация о том, находится ли пользователь сейчас на сайте.
    • -
  • can_post - Информация о том, может ли текущий пользователь оставлять записи на стене. Возможные значения: -
      -
    • 1 — может
      • -
    • 0 — не может.
      • -
    -
    • -
  • can_see_all_posts - Информация о том, может ли текущий пользователь видеть чужие записи на стене. Возможные значения: -
      -
    • 1 — может
      • -
    • 0 — не может.
      • -
    -
    • -
  • can_write_private_message - Информация о том, может ли текущий пользователь отправить личное сообщение. Возможные значения: -
      -
    • 1 — может
      • -
    • 0 — не может.
      • -
    -
    • -
  • status - Статус пользователя. Возвращается строка, содержащая текст статуса, расположенного в профиле под именем пользователя.
    • -
  • last_seen_time - Дата и время время последнего посещения.
    • -
  • last_seen_platform - Тип платформы, через которую был осуществлён последний вход. Возможные значения: -
      -
    • 1 — мобильная версия
      • -
    • 2 — приложение для iPhone
      • -
    • 3 — приложение для iPad
      • -
    • 4 — приложение для Android
      • -
    • 5 — приложение для Windows Phone
      • -
    • 6 — приложение для Windows 10
      • -
    • 7 — полная версия сайта.
      • -
    -
    • -
  • university - Идентификатор университета.
    • -
  • university_name - Название университета.
    • -
  • faculty - Идентификатор факультета.
    • -
  • faculty_name - Название факультета.
    • -
  • graduation - Год окончания.
    • -
  • education_form - Форма обучения
    • -
  • education_status - Статус (например, “Выпускник (специалист)”)
    • -
  • relation - Семейное положение пользователя. Возможные значения: -
      -
    • 1 — не женат/не замужем
      • -
    • 2 — есть друг/есть подруга
      • -
    • 3 — помолвлен/помолвлена
      • -
    • 4 — женат/замужем
      • -
    • 5 — всё сложно
      • -
    • 6 — в активном поиске
      • -
    • 7 — влюблён/влюблена
      • -
    • 8 — в гражданском браке
      • -
    • 0 — не указано.}
      • -
    -
    • -
- -

Получить список групп и сообществ в которых состоит пользователь Вконтакте

-
my_vk_community <- vkGetUserGroups(user_id = 7437995,
-                                   access_token = my_tok$access_token)
-
-
-
Аргументы
-
    -
  • user_id - Идентификатор пользователя, для которого необходимо получить список друзей. Если параметр не задан, то считается, что он равен идентификатору текущего пользователя.
    • -
  • filter - Текстовый вектор фильтров сообществ, которые необходимо вернуть. Возможные значения -
      -
    • admin - сообщества, в которых пользователь является администратором
      • -
    • editor - администратором или редактором
      • -
    • moder – администратором, редактором или модератором
      • -
    • groups – группы
      • -
    • publics – публичные страницы
      • -
    • events – мероприятия
      • -
    • По умолчанию возвращаются все сообщества пользователя.
      • -
    -
    • -
  • access_tokenТокен доступа к API, полученный с помощью функций vkAuth или vkGetToken
    • -
- -
Возвращаемые значения
-
    -
  • gid - Идентификатор сообщества.
    • -
  • name - Название сообщества.
    • -
  • screen_name - Короткий адрес, например, apiclub.
    • -
  • is_closed - Является ли сообщество закрытым. Возможные значения: -
      -
    • 0 — открытое
      • -
    • 1 — закрытое
      • -
    • 2 — частное
      • -
    -
    • -
  • type - Тип сообщества: -
      -
    • group — группа
      • -
    • page — публичная страница
      • -
    • event — мероприятие.
      • -
    -
    • -
  • description - Текст описания сообщества.
    • -
  • wiki_page - Название главной вики-страницы.
    • -
  • members_count - Количество участников.
    • -
  • start_date - Дата основания.
    • -
  • can_post - Информация о том, может ли текущий пользователь оставлять записи на стене сообщества. Возможные значения: -
      -
    • 1 — может
      • -
    • 0 — не может.
      • -
    -
    • -
  • can_see_all_posts - Информация о том, разрешено ли видеть чужие записи на стене группы. Возможные значения: -
      -
    • 1 — может
      • -
    • 0 — не может.
      • -
    -
    • -
  • activity - Строка состояния публичной страницы. У групп возвращается строковое значение, открыта ли группа или нет, а у событий дата начала.
    • -
  • status - Статус сообщества.
    • -
  • fixed_post - Идентификатор закрепленной записи.
    • -
  • verified - Информация о том, верифицировано ли сообщество. Возможные значения: -
      -
    • 1 — может
      • -
    • 0 — не может.
      • -
    -
    • -
  • site - Адрес сайта из поля «веб-сайт» в описании сообщества.
    • -
  • can_create_topic - Информация о том, может ли текущий пользователь создать новое обсуждение в группе. Возможные значения: -
      -
    • 1 — может,
      • -
    • 0 — не может.
      • -
    -
    • -
  • photo - URL главной фотографии с размером 50x50px.
    • -
  • photo_medium - URL главной фотографии с размером 100х100px.
    • -
  • photo_big - URL главной фотографии в максимальном размере.
    • -
- -

Получить сообщения со стены пользователя с количеством комментариев, лайков и рипостов

-
my_vk_wall <- vkGetUserWall(user_id = 7437995,
-                            access_token = my_tok$access_token)
-
-
-
Аргументы
-
    -
  • user_id - Идентификатор пользователя, для которого необходимо получить список друзей. Если параметр не задан, то считается, что он равен идентификатору текущего пользователя.
    • -
  • domain - Короткий адрес пользователя
    • -
  • filter - определяет, какие типы записей на стене необходимо получить. Возможные значения: -
      -
    • suggests — предложенные записи на стене сообщества
      • -
    • postponed — отложенные записи
      • -
    • owner — записи владельца стены
      • -
    • others — записи не от владельца стены
      • -
    • all — все записи на стене (owner + others)
      • -
    • По умолчанию: all.
      • -
    -
    • -
  • access_tokenТокен доступа к API, полученный с помощью функций vkAuth или vkGetToken
    • -
- -
Возвращаемые значения
-
    -
  • id - Идентификатор записи.
    • -
  • from_id - Идентификатор автора записи.
    • -
  • to_id - Идентификатор владельца стены, на которой размещена запись.
    • -
  • date - Время публикации записи
    • -
  • post_type - Тип записи, может принимать следующие значения: post, copy, reply, postpone, suggest.
    • -
  • text - Текст записи.
    • -
  • can_delete - Информация о том, может ли текущий пользователь удалить запись -
      -
    • 1 — может
      • -
    • 0 — не может.
      • -
    -
    • -
  • comments_count - Кличество комментариев.
    • -
  • likes_count - Число пользователей, которым понравилась запись.
    • -
  • reposts_count - Число пользователей, скопировавших запись.
    • -
  • attachment_type - Тип медиавложения записи (фотографии, ссылки и т.п.)
    • -
- -

Список статей с примерами работы с пакетом rvkstat

- - -

Автор пакета: Алексей Селезнёв, Head of Analytics Dept. at Netpeak*

-

- -

- -

Контакты:

- - -

- -

- - - -
- - - - diff --git a/en/man/rvkstat-package.Rd b/en/man/rvkstat-package.Rd deleted file mode 100644 index 151dcdf..0000000 --- a/en/man/rvkstat-package.Rd +++ /dev/null @@ -1,31 +0,0 @@ -\name{rvkstat-package} -\alias{rvkstat-package} -\alias{rvkstat} -\docType{package} -\title{ -\packageTitle{rvkstat} -} -\description{ -\packageDescription{rvkstat} -} -\details{ - -The DESCRIPTION file: -\packageDESCRIPTION{rvkstat} -\packageIndices{rvkstat} - -} -\author{ -\packageAuthor{rvkstat} - -Maintainer: \packageMaintainer{rvkstat} -} -\references{ - -} - -\keyword{ package } - -\examples{ - -} diff --git a/en/man/vkAuth.Rd b/en/man/vkAuth.Rd deleted file mode 100644 index bd9dee7..0000000 --- a/en/man/vkAuth.Rd +++ /dev/null @@ -1,23 +0,0 @@ -\name{vkAuth} -\alias{vkAuth} -\title{Авторизация в Вконтакте} -\description{Функция vkAuth даёт возможность получить токен для доступа к API используя схему Authorization Code Flow - https://vk.com/dev/authcode_flow_user} -\usage{ -vkAuth(app_id = NULL, app_secret = NULL, apiVersion = "5.68") -} -\arguments{ - \item{app_id}{ID приложения, найти его можно на странице настройки приложения.} - \item{app_secret}{Защищённый ключ приложения, найти его можно на странице настройки приложения.} - \item{apiVersion}{Версия API.} -} -\value{Список учётных данных для работы с API Вконтакте} -\author{ -Alexey Seleznev -} - -\examples{ -##Auth in VK -my_tok <- vkAuth(app_id = 1,app_secret = "H2Pk8htyFD8024mZaPHm") -} -% Add one or more standard keywords, see file 'KEYWORDS' in the -% R documentation directory. diff --git a/en/man/vkGetAdAccounts.Rd b/en/man/vkGetAdAccounts.Rd deleted file mode 100644 index aa7bb8d..0000000 --- a/en/man/vkGetAdAccounts.Rd +++ /dev/null @@ -1,28 +0,0 @@ -\name{vkGetAdAccounts} -\alias{vkGetAdAccounts} -\title{Возвращает список рекламных кабинетов} -\description{Функция vkgetAccounts возвращает список доступны рекламных кабинетов.} -\usage{ -vkGetAdAccounts(access_token = NULL) -} -\arguments{ - \item{access_token}{Токен доступа к API, полученный с помощью функций vkAuth или vkGetToken} -} -\author{ -Alexey Seleznev -} -\value{Дата фрейм со списком рекламных кабинетов и их параметров со следующими значениями: -\item{1. account_id}{идентификатор рекламного кабинета.} -\item{2. account_type}{тип рекламного кабинета.} -\item{3. account_status}{статус рекламного кабинета. (1 — активен, 0 — неактивен)} -\item{4. access_role}{права пользователя в рекламном кабинете. } -} -\examples{ -##Авторизация в вк -my_tok <- vkAuth(app_id = 1,app_secret = "H2Pk8htyFD8024mZaPHm") - -##Запрос списка доступных рекламных кабинетов -my_vk_acc <- vkGetAdAccounts(my_tok$access_token) -} -% Add one or more standard keywords, see file 'KEYWORDS' in the -% R documentation directory. diff --git a/en/man/vkGetAdAgeStats.Rd b/en/man/vkGetAdAgeStats.Rd deleted file mode 100644 index cd77fb5..0000000 --- a/en/man/vkGetAdAgeStats.Rd +++ /dev/null @@ -1,76 +0,0 @@ -\name{vkGetAdAgeStats} -\alias{vkGetAdAgeStats} -\title{Статистика по охвату аудитории в разрезе возраста.} -\description{Функция vkGetAdAgeStats возвращает статистику по охвату аудитории по рекламным кампания и объявлениям по возрасту.} -\usage{ -vkGetAdAgeStats(account_id = NULL, ids_type = "campaign", ids = NULL, period = "day", date_from = Sys.Date() - 30, date_to = Sys.Date(), access_token = NULL) -} -\arguments{ - \item{account_id}{Идентификатор рекламного кабинета, список всех доступных рекламных кабинетов можно получить с помщью функции vkGetAdAccounts.} - \item{ids_type}{Тип запрашиваемых объектов, которые перечислены в параметре ids. Допустимые значения ad — объявления, campaign — кампании.} - \item{ids}{Вектор id запрашиваемых объявлений, кампаний, клиентов или кабинета, в зависимости от того, что указано в параметре ids_type.} - \item{period}{Способ группировки данных по датам day — статистика по дням, month — статистика по месяцам, overall — статистика за всё время.Временные ограничения задаются аргументами date_from и date_to.} - \item{date_from}{Начальная дата выводимой статистики в формате YYYY-MM-DD.} - \item{date_to}{Конечная дата выводимой статистики в формате YYYY-MM-DD.} - \item{access_token}{Токен доступа к API, полученный с помощью функций vkAuth или vkGetToken} -} -\value{Дата фрейм со статистикой сообщества со следующими значениями: -\item{1. id}{id объекта из аргумента ids.} -\item{2. day}{(если period равен day) день в формате YYYY-MM-DD.} -\item{3. month}{(если period равен month) — день в формате YYYY-MM.} -\item{4. day_from}{(если period равен overall) начальная дата отчётного периода.} -\item{5. day_to}{(если period равен overall) конечная дата отчётного периода.} -\item{6. type}{тип объекта из параметра ids_type.} -\item{7. age}{возраст.} -\item{8. impressions_rate}{часть аудитории, просмотревшая объявление, от 0 до 1.} -\item{9. clicks_rate}{(часть аудитории, кликнувшая по объявлению, от 0 до 1.} -} -\author{ -Alexey Seleznev -} - -\examples{ -##Авторизация в вк -my_tok <- vkAuth(app_id = 1, app_secret = "H2Pk8htyFD8024mZaPHm") - -#1.Получаем статиатику по охвату аудитории по полу, рекламным кампаниям в разрезе дней -##1.1. Получаем список рекламных кампаний -camp <- vkGetAdCampaigns(account_id = 1, access_token = my_tok$access_token) -##1.2. Получаем статистику по рекламным кампаниям -vk_ad_age_stat_day <- vkGetAdAgeStats(account_id = 1, - ids_type = "campaign", - ids = camp$id , - period = "day", - date_from = "2010-01-01", - date_to = "2017-09-10", - access_token = my_tok$access_token) - - -#2.Получаем статиатику по объявлениям в разрезе месяцев -##2.1. Получаем список рекламных кампаний -ads <- vkGetAds(account_id = account_id, access_token = my_tok$access_token) -##2.2. Получаем статистику по объявлениям -vk_ad_age_stat_month <- vkGetAdAgeStats(account_id = 1, - ids_type = "ad", - ids = ads$id , - period = "month", - date_from = "2010-01-01", - date_to = "2017-09-10", - access_token = my_tok$access_token) - - -#3.Получаем статиатику по охвату аудитории по рекламным кампаниям без временной разбивки -##3.1. Получаем список рекламных кампаний -camp <- vkGetAdCampaigns(account_id = 1, access_token = my_tok$access_token) -##3.2. Получаем статистику по рекламным кампаниям -vk_ad_age_stat_total <- vkGetAdAgeStats(account_id = 1, - ids_type = "campaign", - ids = camp$id , - period = "overall", - date_from = "2010-01-01", - date_to = "2017-09-10", - access_token = my_tok$access_token) - -} -% Add one or more standard keywords, see file 'KEYWORDS' in the -% R documentation directory. diff --git a/en/man/vkGetAdBudget.Rd b/en/man/vkGetAdBudget.Rd deleted file mode 100644 index d22ae1a..0000000 --- a/en/man/vkGetAdBudget.Rd +++ /dev/null @@ -1,25 +0,0 @@ -\name{vkGetAdBudget} -\alias{vkGetAdBudget} -\title{Получение текущего бюджета рекламного кабинета Вконтакте.} -\description{Функция vkGetAdBudget возвращает текущий балланс средств рекламного кабинета Вконтакте.} -\usage{ -vkGetAdBudget(account_id = NULL, access_token = NULL) -} -\arguments{ - \item{account_id}{Идентификатор рекламного кабинета, список всех доступных рекламных кабинетов можно получить с помщью функции vkGetAdAccounts.} - \item{access_token}{Токен доступа к API, полученный с помощью функций vkAuth или vkGetToken} -} -\value{Остаток средств рекламного кабинета вконтакте в виде числового значения.} -\author{ -Alexey Seleznev -} - -\examples{ -##Авторизация в вк -my_tok <- vkAuth(app_id = 1, app_secret = "H2Pk8htyFD8024mZaPHm") - -#Получаем остаток средст из рекламного кабинета -vk_budget <- vkGetAdBudget(account_id = 1, access_token = my_tok$access_token) -} -% Add one or more standard keywords, see file 'KEYWORDS' in the -% R documentation directory. diff --git a/en/man/vkGetAdCampaigns.Rd b/en/man/vkGetAdCampaigns.Rd deleted file mode 100644 index 87bce4b..0000000 --- a/en/man/vkGetAdCampaigns.Rd +++ /dev/null @@ -1,40 +0,0 @@ -\name{vkGetAdCampaigns} -\alias{vkGetAdCampaigns} -\title{Возвращает СЃРїРёСЃРѕРє рекламных кампаний} -\description{Функция vkGetAdCampaigns возвращает СЃРїРёСЃРѕРє доступны рекламных кампаний РёР· рекламного кабинета Вконтакте.} -\usage{ -vkGetAdCampaigns(account_id = NULL, client_id = NULL, include_deleted = TRUE, campaign_ids = "null", access_token = NULL) -} -\arguments{ - \item{account_id}{Идентификатор рекламного кабинета, СЃРїРёСЃРѕРє всех доступных рекламных кабинетов можно получить СЃ помщью функции vkGetAdAccounts.} - \item{client_id}{Идентификатор клиента, Сѓ которого запрашиваются рекламные объявления. Доступно Рё обязательно для рекламных агентств.} - \item{include_deleted}{Логическое TRUE или FALSE, флаг, задающий необходимость вывода архивных объявлений.} - \item{campaign_ids}{Числовой вектор, фильтр РїРѕ рекламным кампаниям.} - \item{status_names}{Логическое TRUE или FALSE, отвечает Р·Р° формат вывода статуса кампании, если TRUE статус будет возвращён РІ РІРёРґРµ текстовой строки, если FALSE то будет возвращён номер статуса.} - \item{access_token}{Токен доступа Рє API, полученный СЃ помощью функций vkAuth или vkGetToken} -} -\author{ -Alexey Seleznev -} -\value{Дата фрейм СЃРѕ СЃРїРёСЃРєРѕРј рекламных кабинетов Рё РёС… параметров СЃРѕ следующими значениями: -\item{1. id}{идентификатор кампании.} -\item{2. type}{тип кампании.} -\item{3. name}{название кампании.} -\item{4. status}{статус кампании. } -\item{5. day_limit}{дневной лимит кампании РІ рублях. } -\item{6. all_limit}{общий лимит кампании РІ рублях. } -\item{7. start_time}{время запуска кампании. } -\item{8. stop_time}{время остановки кампании. } -\item{9. create_time}{время создания кампании. } -\item{10. update_time}{время последнего изменения кампании. } -} -\examples{ -##Авторизация РІ РІРє -my_tok <- vkAuth(app_id = 1,app_secret = "H2Pk8htyFD8024mZaPHm") - -##Запрос СЃРїРёСЃРєР° рекламных кампаний -my_vk_camp <- vkGetAdCampaigns(account_id = 1, - access_token = my_tok$access_token) -} -% Add one or more standard keywords, see file 'KEYWORDS' in the -% R documentation directory. diff --git a/en/man/vkGetAdCategories.Rd b/en/man/vkGetAdCategories.Rd deleted file mode 100644 index ab56a2e..0000000 --- a/en/man/vkGetAdCategories.Rd +++ /dev/null @@ -1,28 +0,0 @@ -\name{vkGetAdCategories} -\alias{vkGetAdCategories} -\title{Список возможных тематики рекламных объявлений из Вконтакте} -\description{Функция vkGetAdCategories загружает таблицу со всеми возможными тематикмми и их подразделов тематик рекламных объявлений из Вконтакте} -\usage{ -vkGetAdCategories(account_id = NULL) -} -\arguments{ - \item{access_token}{Токен доступа к API, полученный с помощью функций vkAuth или vkGetToken} -} -\value{Дата фрейм со следующими значениями: -\item{1. id}{идентификатор тематики.} -\item{2. name}{название тематики.} -\item{3. subcategories_id}{идентификатор подраздела.} -\item{4. ubcategories_name}{название подраздела.} -} -\author{ -Alexey Seleznev -} - -\examples{ -##Авторизация в вконтакте -my_tok <- vkAuth(app_id = 1,client_secret = "H2Pk8htyFD8024mZaPHm") -#Получаем список nтематик и их подразделов. -vk_ad_categories <- vkGetAdCategories(access_token = my_tok$access_token) -} -% Add one or more standard keywords, see file 'KEYWORDS' in the -% R documentation directory. diff --git a/en/man/vkGetAdCityStats.Rd b/en/man/vkGetAdCityStats.Rd deleted file mode 100644 index 045d5da..0000000 --- a/en/man/vkGetAdCityStats.Rd +++ /dev/null @@ -1,77 +0,0 @@ -\name{vkGetAdCityStats} -\alias{vkGetAdCityStats} -\title{Статистика по охвату аудитории в разрезе городов.} -\description{Функция vkGetAdCityStats возвращает статистику по охвату аудитории по разрезе рекламным кампания и объявлениям в разрезе городов.} -\usage{ -vkGetAdCityStats(account_id = NULL, ids_type = "campaign", ids = NULL, period = "day", date_from = Sys.Date() - 30, date_to = Sys.Date(), access_token = NULL) -} -\arguments{ - \item{account_id}{Идентификатор рекламного кабинета, список всех доступных рекламных кабинетов можно получить с помщью функции vkGetAdAccounts.} - \item{ids_type}{Тип запрашиваемых объектов, которые перечислены в параметре ids. Допустимые значения ad — объявления, campaign — кампании.} - \item{ids}{Вектор id запрашиваемых объявлений, кампаний, клиентов или кабинета, в зависимости от того, что указано в параметре ids_type.} - \item{period}{Способ группировки данных по датам day — статистика по дням, month — статистика по месяцам, overall — статистика за всё время.Временные ограничения задаются аргументами date_from и date_to.} - \item{date_from}{Начальная дата выводимой статистики в формате YYYY-MM-DD.} - \item{date_to}{Конечная дата выводимой статистики в формате YYYY-MM-DD.} - \item{access_token}{Токен доступа к API, полученный с помощью функций vkAuth или vkGetToken} -} -\value{Дата фрейм со статистикой сообщества со следующими значениями: -\item{1. id}{id объекта из аргумента ids.} -\item{2. day}{(если period равен day) день в формате YYYY-MM-DD.} -\item{3. month}{(если period равен month) — день в формате YYYY-MM.} -\item{4. day_from}{(если period равен overall) начальная дата отчётного периода.} -\item{5. day_to}{(если period равен overall) конечная дата отчётного периода.} -\item{6. type}{тип объекта из параметра ids_type.} -\item{7. city_id}{id города или other для остальных городов.} -\item{8. city_name}{название города.} -\item{9. impressions_rate}{часть аудитории, просмотревшая объявление, от 0 до 1.} -\item{10. clicks_rate}{(часть аудитории, кликнувшая по объявлению, от 0 до 1.} -} -\author{ -Alexey Seleznev -} - -\examples{ -##Авторизация в вк -my_tok <- vkAuth(app_id = 1, app_secret = "H2Pk8htyFD8024mZaPHm") - -#1.Получаем статиатику по охвату аудитории в разрезе городов по рекламным кампаниям по дням -##1.1. Получаем список рекламных кампаний -camp <- vkGetAdCampaigns(account_id = 1, access_token = my_tok$access_token) -##1.2. Получаем статистику по рекламным кампаниям -vk_ad_city_stat_day <- vkGetAdCityStats(account_id = 1, - ids_type = "campaign", - ids = camp$id , - period = "day", - date_from = "2010-01-01", - date_to = "2017-09-10", - access_token = my_tok$access_token) - - -#2.Получаем статиатику по объявлениям в разрезе месяцев -##2.1. Получаем список рекламных кампаний -ads <- vkGetAds(account_id = account_id, access_token = my_tok$access_token) -##2.2. Получаем статистику по объявлениям -vk_ad_city_stat_month <- vkGetAdCityStats(account_id = 1, - ids_type = "ad", - ids = ads$id , - period = "month", - date_from = "2010-01-01", - date_to = "2017-09-10", - access_token = my_tok$access_token) - - -#3.Получаем статиатику по охвату аудитории в разрезе городов по рекламным кампаниям без временной разбивки -##3.1. Получаем список рекламных кампаний -camp <- vkGetAdCampaigns(account_id = 1, access_token = my_tok$access_token) -##3.2. Получаем статистику по рекламным кампаниям -vk_ad_city_stat_total <- vkGetAdCityStats(account_id = 1, - ids_type = "campaign", - ids = camp$id , - period = "overall", - date_from = "2010-01-01", - date_to = "2017-09-10", - access_token = my_tok$access_token) - -} -% Add one or more standard keywords, see file 'KEYWORDS' in the -% R documentation directory. diff --git a/en/man/vkGetAdClients.Rd b/en/man/vkGetAdClients.Rd deleted file mode 100644 index 850771b..0000000 --- a/en/man/vkGetAdClients.Rd +++ /dev/null @@ -1,31 +0,0 @@ -\name{vkGetAdClients} -\alias{vkGetAdClients} -\title{Список клиентов Вконтакте.} -\description{Функция vkGetAdClients Возвращает список клиентов рекламного агентства.} -\usage{ -vkGetAdClients(account_id = NULL, access_token = NULL) -} -\arguments{ - \item{account_id}{Идентификатор рекламного кабинета, список всех доступных рекламных кабинетов можно получить с помщью функции vkGetAdAccounts.} - \item{access_token}{Токен доступа к API, полученный с помощью функций vkAuth или vkGetToken} -} -\value{Дата фрейм со статистикой сообщества со следующими значениями: -\item{1. id}{идентификатор клиента.} -\item{2. name}{название клиента.} -\item{3. day_limit}{дневной лимит клиента в рублях.} -\item{4. all_limit}{общий лимит клиента в рублях.} -} -\author{ -Alexey Seleznev -} - -\examples{ -##Авторизация в вк -my_tok <- vkAuth(app_id = 1, app_secret = "H2Pk8htyFD8024mZaPHm") - -##Получаем список клиентов из агентского аккаунта -vk_clients <- vkGetAdClients(account_id = 1, access_token = my_tok$access_token) - -} -% Add one or more standard keywords, see file 'KEYWORDS' in the -% R documentation directory. diff --git a/en/man/vkGetAdGenderAgeStats.Rd b/en/man/vkGetAdGenderAgeStats.Rd deleted file mode 100644 index 2fed2a2..0000000 --- a/en/man/vkGetAdGenderAgeStats.Rd +++ /dev/null @@ -1,77 +0,0 @@ -\name{vkGetAdGenderAgeStats} -\alias{vkGetAdGenderAgeStats} -\title{Статистика по охвату аудитории в разрезе возраста и пола.} -\description{Функция vkGetAdGenderAgeStats возвращает статистику по охвату аудитории по рекламным кампания и объявлениям по возрасту и полу.} -\usage{ -vkGetAdGenderAgeStats(account_id = NULL, ids_type = "campaign", ids = NULL, period = "day", date_from = Sys.Date() - 30, date_to = Sys.Date(), access_token = NULL) -} -\arguments{ - \item{account_id}{Идентификатор рекламного кабинета, список всех доступных рекламных кабинетов можно получить с помщью функции vkGetAdAccounts.} - \item{ids_type}{Тип запрашиваемых объектов, которые перечислены в параметре ids. Допустимые значения ad — объявления, campaign — кампании.} - \item{ids}{Вектор id запрашиваемых объявлений, кампаний, клиентов или кабинета, в зависимости от того, что указано в параметре ids_type.} - \item{period}{Способ группировки данных по датам day — статистика по дням, month — статистика по месяцам, overall — статистика за всё время.Временные ограничения задаются аргументами date_from и date_to.} - \item{date_from}{Начальная дата выводимой статистики в формате YYYY-MM-DD.} - \item{date_to}{Конечная дата выводимой статистики в формате YYYY-MM-DD.} - \item{access_token}{Токен доступа к API, полученный с помощью функций vkAuth или vkGetToken} -} -\value{Дата фрейм со статистикой сообщества со следующими значениями: -\item{1. id}{id объекта из аргумента ids.} -\item{2. day}{(если period равен day) день в формате YYYY-MM-DD.} -\item{3. month}{(если period равен month) — день в формате YYYY-MM.} -\item{4. day_from}{(если period равен overall) начальная дата отчётного периода.} -\item{5. day_to}{(если period равен overall) конечная дата отчётного периода.} -\item{6. type}{тип объекта из параметра ids_type.} -\item{7. gender}{пол.} -\item{8. age}{возраст.} -\item{9. impressions_rate}{часть аудитории, просмотревшая объявление, от 0 до 1.} -\item{10. clicks_rate}{(часть аудитории, кликнувшая по объявлению, от 0 до 1.} -} -\author{ -Alexey Seleznev -} - -\examples{ -##Авторизация в вк -my_tok <- vkAuth(app_id = 1, app_secret = "H2Pk8htyFD8024mZaPHm") - -#1.Получаем статиатику по охвату аудитории по полу, рекламным кампаниям в разрезе дней -##1.1. Получаем список рекламных кампаний -camp <- vkGetAdCampaigns(account_id = 1, access_token = my_tok$access_token) -##1.2. Получаем статистику по рекламным кампаниям -vk_ad_gender_age_stat_day <- vkGetAdGenderAgeStats(account_id = 1, - ids_type = "campaign", - ids = camp$id , - period = "day", - date_from = "2010-01-01", - date_to = "2017-09-10", - access_token = my_tok$access_token) - - -#2.Получаем статиатику по объявлениям в разрезе месяцев -##2.1. Получаем список рекламных кампаний -ads <- vkGetAds(account_id = account_id, access_token = my_tok$access_token) -##2.2. Получаем статистику по объявлениям -vk_ad_gender_age_stat_month <- vkGetAdGenderAgeStats(account_id = 1, - ids_type = "ad", - ids = ads$id , - period = "month", - date_from = "2010-01-01", - date_to = "2017-09-10", - access_token = my_tok$access_token) - - -#3.Получаем статиатику по охвату аудитории по рекламным кампаниям без временной разбивки -##3.1. Получаем список рекламных кампаний -camp <- vkGetAdCampaigns(account_id = 1, access_token = my_tok$access_token) -##3.2. Получаем статистику по рекламным кампаниям -vk_ad_gender_age_stat_total <- vkGetAdGenderAgeStats(account_id = 1, - ids_type = "campaign", - ids = camp$id , - period = "overall", - date_from = "2010-01-01", - date_to = "2017-09-10", - access_token = my_tok$access_token) - -} -% Add one or more standard keywords, see file 'KEYWORDS' in the -% R documentation directory. diff --git a/en/man/vkGetAdGenderStats.Rd b/en/man/vkGetAdGenderStats.Rd deleted file mode 100644 index e3940f2..0000000 --- a/en/man/vkGetAdGenderStats.Rd +++ /dev/null @@ -1,76 +0,0 @@ -\name{vkGetAdGenderStats} -\alias{vkGetAdGenderStats} -\title{Статистика по охвату аудитории в разрезе пола.} -\description{Функция vkGetAdGenderStats возвращает статистику по охвату аудитории по рекламным кампания и объявлениям по полу.} -\usage{ -vkGetAdGenderStats(account_id = NULL, ids_type = "campaign", ids = NULL, period = "day", date_from = Sys.Date() - 30, date_to = Sys.Date(), access_token = NULL) -} -\arguments{ - \item{account_id}{Идентификатор рекламного кабинета, список всех доступных рекламных кабинетов можно получить с помщью функции vkGetAdAccounts.} - \item{ids_type}{Тип запрашиваемых объектов, которые перечислены в параметре ids. Допустимые значения ad — объявления, campaign — кампании.} - \item{ids}{Вектор id запрашиваемых объявлений, кампаний, клиентов или кабинета, в зависимости от того, что указано в параметре ids_type.} - \item{period}{Способ группировки данных по датам day — статистика по дням, month — статистика по месяцам, overall — статистика за всё время.Временные ограничения задаются аргументами date_from и date_to.} - \item{date_from}{Начальная дата выводимой статистики в формате YYYY-MM-DD.} - \item{date_to}{Конечная дата выводимой статистики в формате YYYY-MM-DD.} - \item{access_token}{Токен доступа к API, полученный с помощью функций vkAuth или vkGetToken} -} -\value{Дата фрейм со статистикой сообщества со следующими значениями: -\item{1. id}{id объекта из аргумента ids.} -\item{2. day}{(если period равен day) день в формате YYYY-MM-DD.} -\item{3. month}{(если period равен month) — день в формате YYYY-MM.} -\item{4. day_from}{(если period равен overall) начальная дата отчётного периода.} -\item{5. day_to}{(если period равен overall) конечная дата отчётного периода.} -\item{6. type}{тип объекта из параметра ids_type.} -\item{7. gender}{пол, f - женский, m - мужской.} -\item{8. impressions_rate}{часть аудитории, просмотревшая объявление, от 0 до 1.} -\item{9. clicks_rate}{(часть аудитории, кликнувшая по объявлению, от 0 до 1.} -} -\author{ -Alexey Seleznev -} - -\examples{ -##Авторизация в вк -my_tok <- vkAuth(app_id = 1, app_secret = "H2Pk8htyFD8024mZaPHm") - -#1.Получаем статиатику по охвату аудитории по полу, рекламным кампаниям в разрезе дней -##1.1. Получаем список рекламных кампаний -camp <- vkGetAdCampaigns(account_id = 1, access_token = my_tok$access_token) -##1.2. Получаем статистику по рекламным кампаниям -vk_ad_gender_stat_day <- vkGetAdGenderStats(account_id = 1, - ids_type = "campaign", - ids = camp$id , - period = "day", - date_from = "2010-01-01", - date_to = "2017-09-10", - access_token = my_tok$access_token) - - -#2.Получаем статиатику по объявлениям в разрезе месяцев -##2.1. Получаем список рекламных кампаний -ads <- vkGetAds(account_id = account_id, access_token = my_tok$access_token) -##2.2. Получаем статистику по объявлениям -vk_ad_gender_stat_month <- vkGetAdGenderStats(account_id = 1, - ids_type = "ad", - ids = ads$id , - period = "month", - date_from = "2010-01-01", - date_to = "2017-09-10", - access_token = my_tok$access_token) - - -#3.Получаем статиатику по охвату аудитории по рекламным кампаниям без временной разбивки -##3.1. Получаем список рекламных кампаний -camp <- vkGetAdCampaigns(account_id = 1, access_token = my_tok$access_token) -##3.2. Получаем статистику по рекламным кампаниям -vk_ad_gender_stat_total <- vkGetAdGenderStats(account_id = 1, - ids_type = "campaign", - ids = camp$id , - period = "overall", - date_from = "2010-01-01", - date_to = "2017-09-10", - access_token = my_tok$access_token) - -} -% Add one or more standard keywords, see file 'KEYWORDS' in the -% R documentation directory. diff --git a/en/man/vkGetAdPostsReach.Rd b/en/man/vkGetAdPostsReach.Rd deleted file mode 100644 index 46dd293..0000000 --- a/en/man/vkGetAdPostsReach.Rd +++ /dev/null @@ -1,54 +0,0 @@ -\name{vkGetAdPostsReach} -\alias{vkGetAdPostsReach} -\title{Статистика по охваты рекламных записей Вконтакте.} -\description{Функция vkGetAdPostsReach возвращает подробную статистику по охвату рекламных записей из объявлений и кампаний для продвижения записей сообщества.} -\usage{ -vkGetAdPostsReach(account_id = NULL, ids_type = "campaign", ids = NULL, access_token = NULL) -} -\arguments{ - \item{account_id}{Идентификатор рекламного кабинета, список всех доступных рекламных кабинетов можно получить с помщью функции vkGetAdAccounts.} - \item{ids_type}{Тип запрашиваемых объектов, которые перечислены в параметре ids. Допустимые значения ad — объявления, campaign — кампании.} - \item{ids}{Вектор id запрашиваемых объявлений, кампаний, клиентов или кабинета, в зависимости от того, что указано в параметре ids_type.} - \item{access_token}{Токен доступа к API, полученный с помощью функций vkAuth или vkGetToken} -} -\value{Дата фрейм со статистикой сообщества со следующими значениями: -\item{1. id}{ID объекта из параметра ids.} -\item{2. reach_subscribers}{охват подписчиков.} -\item{3. reach_total}{суммарный охват.} -\item{4. links}{переходы по ссылке.} -\item{5. to_group}{переходы в сообщество.} -\item{6. join_group}{вступления в сообщество.} -\item{7. report}{количество жалоб на запись.} -\item{8. hide}{количество скрытий записи.} -\item{9. unsubscribe}{количество отписавшихся участников.} -\item{10. video_views_start}{количество стартов просмотра видео.} -\item{11. video_views_3s}{количество досмотров видео до 3 секунд.} -\item{12. video_views_25p}{количество досмотров видео до 25 процентов.} -\item{13. video_views_50p}{количество досмотров видео до 50 процентов.} -\item{14. video_views_75p}{количество досмотров видео до 75 процентов.} -\item{15. video_views_100p}{количество досмотров видео до 100 процентов.} -} -\details{ -Статистику по кампаниям можно получить только для кампаний, созданных начиная с 20 декабря 2016 года. -Поля video_views_start, video_views_3s, video_views_25p, video_views_50p, video_views_75p, video_views_100p с данными по статистике видео возвращаются только для объявлений или кампаний с видео, созданных после 26 января 2017 года. -} -\author{ -Alexey Seleznev -} - -\examples{ -##Авторизация в вк -my_tok <- vkAuth(app_id = 1, app_secret = "H2Pk8htyFD8024mZaPHm") - -##Получаем список рекламных кампаний -camp <- vkGetAdCampaigns(account_id = 1, access_token = my_tok$access_token) - -##Получаем статистику по рекламным кампаниям -post_reach <- vkGetAdPostsReach(account_id = 1600134264, - ids_type = "campaign", - ids = camp$id, - access_token = my_tok$access_token) - -} -% Add one or more standard keywords, see file 'KEYWORDS' in the -% R documentation directory. diff --git a/en/man/vkGetAdStatistics.Rd b/en/man/vkGetAdStatistics.Rd deleted file mode 100644 index aad9cbe..0000000 --- a/en/man/vkGetAdStatistics.Rd +++ /dev/null @@ -1,79 +0,0 @@ -\name{vkGetAdStatistics} -\alias{vkGetAdStatistics} -\title{Статистика по посещению сообщества в Вконтакте.} -\description{Функция vkGetAdStatistics возвращает статистику показателей эффективности по рекламным объявлениям, кампаниям, клиентам или всему кабинету.} -\usage{ -vkGetAdStatistics(account_id = NULL, ids_type = "office", ids = NULL, period = "overall", date_from = Sys.Date() - 30, date_to = Sys.Date(), access_token = NULL) -} -\arguments{ - \item{account_id}{Идентификатор рекламного кабинета, список всех доступных рекламных кабинетов можно получить с помщью функции vkGetAdAccounts.} - \item{ids_type}{Тип запрашиваемых объектов, которые перечислены в параметре ids. Допустимые значения ad — объявления, campaign — кампании, client — клиенты, office — кабинет.} - \item{ids}{Вектор id запрашиваемых объявлений, кампаний, клиентов или кабинета, в зависимости от того, что указано в параметре ids_type.} - \item{period}{Способ группировки данных по датам day — статистика по дням, month — статистика по месяцам, overall — статистика за всё время.Временные ограничения задаются аргументами date_from и date_to.} - \item{date_from}{Начальная дата выводимой статистики в формате YYYY-MM-DD.} - \item{date_to}{Конечная дата выводимой статистики в формате YYYY-MM-DD.} - \item{access_token}{Токен доступа к API, полученный с помощью функций vkAuth или vkGetToken} -} -\value{Дата фрейм со статистикой сообщества со следующими значениями: -\item{1. id}{id объекта из аргумента ids.} -\item{2. day}{(если period равен day) день в формате YYYY-MM-DD.} -\item{3. month}{(если period равен month) — день в формате YYYY-MM.} -\item{4. day_from}{(если period равен overall) начальная дата отчётного периода.} -\item{5. day_to}{(если period равен overall) конечная дата отчётного периода.} -\item{6. type}{тип объекта из параметра ids_type.} -\item{7. spent}{потраченные средства.} -\item{8. impressions}{количество просмотров.} -\item{9. clicks}{количество уникальных посетителей.} -\item{10. reach}{(если ids_type равен ad или campaign и period равен day или month) — охват.} -\item{11. video_views}{(если ids_type равен ad) — просмотры видеоролика (для видеорекламы).} -\item{12. video_views_half}{(если ids_type равен ad) — просмотры половины видеоролика (для видеорекламы)} -\item{13. video_views_full}{(если ids_type равен ad) — просмотры целого видеоролика (для видеорекламы).} -\item{14. video_clicks_site}{(если ids_type равен ad) — переходы на сайт рекламодателя из видеорекламы (для видеорекламы).} -\item{15. join_rate}{(если ids_type равен ad или campaign) — вступления в группу, событие, подписки на публичную страницу или установки приложения (только если в объявлении указана прямая ссылка на соответствующую страницу ВКонтакте).} -} -\author{ -Alexey Seleznev -} - -\examples{ -##Авторизация в вк -my_tok <- vkAuth(app_id = 1, app_secret = "H2Pk8htyFD8024mZaPHm") - -#1.Получаем статиатику по рекламным кампаниям в разрезе дней -##1.1. Получаем список рекламных кампаний -camp <- vkGetAdCampaigns(account_id = 1, access_token = my_tok$access_token) -##1.2. Получаем статистику по рекламным кампаниям -vk_stat_by_campaign <- vkGetAdStatistics(account_id = 1, - ids_type = "campaign", - ids = camp$id , - period = "day", - date_from = "2010-01-01", - date_to = "2017-09-10", - access_token = my_tok$access_token) - - -#2.Получаем статиатику по объявлениям в разрезе месяцев -##2.1. Получаем список рекламных кампаний -ads <- vkGetAds(account_id = account_id, access_token = my_tok$access_token) -##2.2. Получаем статистику по объявлениям -vk_stat_by_ads <- vkGetAdStatistics(account_id = 1, - ids_type = "ad", - ids = ads$id , - period = "month", - date_from = "2010-01-01", - date_to = "2017-09-10", - access_token = my_tok$access_token) - - -#3.Получаем общую статиатику по рекламному кабинету, в данном примере подразумевается что id рекламного кабинета равно 1 -vk_stat_by_account <- vkGetAdStatistics(account_id = 1, - ids_type = "office", - ids = 1, - period = "overall", - date_from = "2010-01-01", - date_to = "2017-09-10", - access_token = my_tok$access_token) - -} -% Add one or more standard keywords, see file 'KEYWORDS' in the -% R documentation directory. diff --git a/en/man/vkGetAds.Rd b/en/man/vkGetAds.Rd deleted file mode 100644 index 26727c2..0000000 --- a/en/man/vkGetAds.Rd +++ /dev/null @@ -1,57 +0,0 @@ -\name{vkGetAds} -\alias{vkGetAds} -\title{Получение списка объявлений из Вконтакте} -\description{Функция vkGetAds даёт возможность получить список рекламных объявлений из рекламного кабинета Вконтакте} -\usage{ -vkGetAds(account_id = NULL, client_id = NULL, include_deleted = TRUE, campaign_ids = "null", ad_ids = "null", access_token = NULL)) -} -\arguments{ - \item{account_id}{Идентификатор рекламного кабинета, список всех доступных рекламных кабинетов можно получить с помщью функции vkGetAdAccounts.} - \item{client_id}{Идентификатор клиента, у которого запрашиваются рекламные объявления. Доступно и обязательно для рекламных агентств.} - \item{include_deleted}{Логическое TRUE или FALSE, флаг, задающий необходимость вывода архивных объявлений.} - \item{campaign_ids}{Числовой вектор, фильтр по рекламным кампаниям.} - \item{ad_ids}{Числовой вектор, фильтр по рекламным объявлениям.} - \item{access_token}{Токен доступа к API, полученный с помощью функций vkAuth или vkGetToken} -} -\details{ -Если одновременно включены фильтры campaign_ids и ad_ids, то выведены будут следующие объявления: -1. Если id объявления указано в ad_ids, то оно выводится. -2. Если объявление принадлежит рекламной кампании, чей id указан в campaign_ids, то оно выводится. -3. Если существет объявление с id, указанным в ad_ids и оно принадлежит кампании, чей id указан в campaign_ids, то эта рекламная кампания игнорируется, т.е. для нее правило 2 не работает. - -Выводится не более 2000 объявлений из не более чем 2000 кампаний. -} -\value{Дата фрейм со следующими значениями: -\item{1. id}{идентификатор объявления.} -\item{2. campaign_id}{идентификатор кампании.} -\item{3. name}{название объявления.} -\item{4. status}{статус объявления.} -\item{5. ad_format}{формат объявления.} -\item{6. approved}{статус модерации объявления.} -\item{7. all_limit}{общий лимит объявления в рублях. 0 — лимит не задан.} -\item{8. create_time}{дата и время создания объявления.} -\item{9. update_time}{дата и время последнего изменения объявления.} -\item{10. age_restriction}{метка о возрастном ограничении объявления.} -\item{11. category1_id}{ID тематики или подраздела тематики объявления, список тематик можно получить с помощью функции vkGetAdCategories.} -\item{12. category2_id}{ID тематики или подраздела тематики объявления. Дополнительная тематика, список тематик можно получить с помощью функции vkGetAdCategories.} -\item{13. cost_type}{тип оплаты.} -\item{14. cpc}{цена за переход в копейках.} -\item{15. cpm}{цена за 1000 показов в копейках.} -\item{16. impressions_limit}{ ограничение количества показов данного объявления на одного пользователя.} -\item{17. impressions_limited}{признак того, что количество показов объявления на одного пользователя ограничено.} -\item{18. ad_platform}{рекламные площадки, на которых будет показываться объявление. (если ad_format равен 1, 0 — ВКонтакте и сайты-партнёры, 1 — только ВКонтакте, (если ad_format равен 9) all — все площадки, desktop — полная версия сайта, mobile — мобильный сайт и приложения.)} -\item{19. video}{1 — объявление является видеорекламой.} -} -\author{ -Alexey Seleznev -} - -\examples{ -##Авторизация в вконтакте -my_tok <- vkAuth(app_id = 1,app_secret = "H2Pk8htyFD8024mZaPHm") -#Получаем список объявлений -my_vk_ads <- vkGetAds(account_id = 11111111, - access_token = my_tok$access_token) -} -% Add one or more standard keywords, see file 'KEYWORDS' in the -% R documentation directory. diff --git a/en/man/vkGetAdsLayout.Rd b/en/man/vkGetAdsLayout.Rd deleted file mode 100644 index 7b73900..0000000 --- a/en/man/vkGetAdsLayout.Rd +++ /dev/null @@ -1,53 +0,0 @@ -\name{vkGetAdsLayout} -\alias{vkGetAdsLayout} -\title{Возвращает описания внешнего вида рекламных объявлений.} -\description{Функция vkGetAdsLayout даёт возможность получить список рекламных объявлений и описание их внешнего вида из рекламного кабинета Вконтакте} -\usage{ -vkGetAds(account_id = NULL, client_id = NULL, include_deleted = TRUE, campaign_ids = "null", ad_ids = "null", status_names = TRUE, api_version = NULL, access_token = NULL)) -} -\arguments{ - \item{account_id}{Идентификатор рекламного кабинета, список всех доступных рекламных кабинетов можно получить с помщью функции vkGetAdAccounts.} - \item{client_id}{Идентификатор клиента, у которого запрашиваются рекламные объявления. Доступно и обязательно для рекламных агентств.} - \item{include_deleted}{Логическое TRUE или FALSE, флаг, задающий необходимость вывода архивных объявлений.} - \item{campaign_ids}{Числовой вектор, фильтр по рекламным кампаниям.} - \item{ad_ids}{Числовой вектор, фильтр по рекламным объявлениям.} - \item{status_names}{Логическое TRUE или FALSE, если значение TRUE то формат объявления и тип оплаты будут возвращены в виде строковых значений, если передать в аргумент status_names значение FALSE то перечисленные значения будут возвращены в виде их ID.} - \item{api_version}{Версия API к которой вы отправляете запрос, необзательный аргумент.} - \item{access_token}{Токен доступа к API, полученный с помощью функций vkAuth или vkGetToken} -} -\details{ -Если одновременно включены фильтры campaign_ids и ad_ids, то выведены будут следующие объявления: -1. Если id объявления указано в ad_ids, то оно выводится. -2. Если объявление принадлежит рекламной кампании, чей id указан в campaign_ids, то оно выводится. -3. Если существет объявление с id, указанным в ad_ids и оно принадлежит кампании, чей id указан в campaign_ids, то эта рекламная кампания игнорируется, т.е. для нее правило 2 не работает. - -Выводится не более 2000 объявлений из не более чем 2000 кампаний. - -В основе работы функции лежит метод API ads.getAdsLayout, узнать все подробности его работы можно по ссылке https://vk.com/dev/ads.getAdsLayout. -} -\value{Дата фрейм со следующими значениями: -\item{1. id}{идентификатор объявления.} -\item{2. campaign_id}{идентификатор кампании.} -\item{3. ad_format}{формат объявления.} -\item{4. cost_type}{тип оплаты.} -\item{5. video}{1 — объявление является видеорекламой..} -\item{6. title}{заголовок объявления.} -\item{7. description}{описание объявления.} -\item{8. link_url}{ссылка на рекламируемый объект.} -\item{9. link_domain}{домен рекламируемого сайта.} -\item{10. preview_link}{ссылка, перейдя по которой можно просмотреть рекламное объявление так, как оно выглядит на сайте. Ссылка доступна в течение 30 минут после выполнения функции vkGetAdsLayout.} -\item{11. image_src}{url изображения объявления.} -} -\author{ -Alexey Seleznev -} - -\examples{ -##Авторизация в вконтакте -my_tok <- vkAuth(app_id = 1,app_secret = "H2Pk8htyFD8024mZaPHm") -#Получаем список объявлений -my_vk_ads <- vkGetAdsLayout(account_id = 11111111, - access_token = my_tok$access_token) -} -% Add one or more standard keywords, see file 'KEYWORDS' in the -% R documentation directory. diff --git a/en/man/vkGetDbCities.Rd b/en/man/vkGetDbCities.Rd deleted file mode 100644 index 26d242e..0000000 --- a/en/man/vkGetDbCities.Rd +++ /dev/null @@ -1,44 +0,0 @@ -\name{vkGetDbCities} -\alias{vkGetDbCities} -\title{Список стран.} -\description{Функция vkGetDbCities возвращает список стран.} -\usage{ -vkGetDbCities(country_id = NULL, region_id = NULL, q = NULL, need_all = TRUE, access_token = NULL) -} -\arguments{ - \item{country_id}{идентификатор страны, полученный с помощью функции vkGetDbCountries.} - \item{region_id}{идентификатор региона, города которого необходимо получить. (параметр не обязателен).} - \item{q}{строка поискового запроса. Например, "Санкт". Максимальная длина строки — 15 символов.} - \item{need_all}{Логическое TRUE или FALSE, флаг - вернуть список всех стран.} - \item{access_token}{Токен доступа к API, полученный с помощью функций vkAuth или vkGetToken} -} -\value{Дата фрейм со статистикой сообщества со следующими значениями: -\item{1. cid}{идентификатор страны.} -\item{2. title}{название страны.} -\item{3. important }{отметка ключевых городов для текущего пользователя.} -\item{4. area}{область.} -\item{5. region }{регион.} -} -\details{ -Если не задан параметр q, то будет возвращен список самых крупных городов в заданной стране. Если задан параметр q, то будет возвращен список городов, которые релевантны поисковому запросу. -} -\author{ -Alexey Seleznev -} - -\examples{ -##Авторизация в вк -my_tok <- vkAuth(app_id = 1, app_secret = "H2Pk8htyFD8024mZaPHm") - -##Получаем список городов для Украины, т.к. id Украины = 2 -vk_cities <- vkGetDbCities(country_id = 2, - access_token = my_tok$access_token) - -##Получаем список городов по поисковому запросу "Санкт" -vk_cities_search <- vkGetDbCities(country_id = 1, - q = "Санкт", - access_token = my_tok$access_token) - -} -% Add one or more standard keywords, see file 'KEYWORDS' in the -% R documentation directory. diff --git a/en/man/vkGetDbCountries.Rd b/en/man/vkGetDbCountries.Rd deleted file mode 100644 index fea1945..0000000 --- a/en/man/vkGetDbCountries.Rd +++ /dev/null @@ -1,36 +0,0 @@ -\name{vkGetDbCountries} -\alias{vkGetDbCountries} -\title{Список стран.} -\description{Функция vkGetDbCountries возвращает список стран.} -\usage{ -vkGetDbCountries(need_all = TRUE, code = NULL, access_token = NULL) -} -\arguments{ - \item{need_all}{Логическое TRUE или FALSE, флаг - вернуть список всех стран.} - \item{code}{Текстовый вектор, двухбуквенные коды стран в стандарте ISO 3166-1 alpha-2, для которых необходимо выдать информацию. Пример c("RU","UA","BY"), список всех кодов можно посмотреть по ссылке - https://vk.com/dev/country_codes.} - \item{access_token}{Токен доступа к API, полученный с помощью функций vkAuth или vkGetToken} -} -\value{Дата фрейм со статистикой сообщества со следующими значениями: -\item{1. cid}{идентификатор страны.} -\item{2. title}{название страны.} -} -\details{ -Если не заданы параметры need_all и code, то возвращается краткий список стран, расположенных наиболее близко к стране текущего пользователя. Если задан параметр need_all, то будет возвращен список всех стран. Если задан параметр code, то будут возвращены только страны с перечисленными ISO 3166-1 alpha-2 кодами. -Список всех кодов стран можно получить по ссылке - https://vk.com/dev/country_codes -} -\author{ -Alexey Seleznev -} - -\examples{ -##Авторизация в вк -my_tok <- vkAuth(app_id = 1, app_secret = "H2Pk8htyFD8024mZaPHm") - -##Получаем список стран -vk_countries <- vkGetDbCountries(need_all = T, - code = c("RU","UA","BY"), - access_token = my_tok$access_token) - -} -% Add one or more standard keywords, see file 'KEYWORDS' in the -% R documentation directory. diff --git a/en/man/vkGetDbRegions.Rd b/en/man/vkGetDbRegions.Rd deleted file mode 100644 index c2a2547..0000000 --- a/en/man/vkGetDbRegions.Rd +++ /dev/null @@ -1,40 +0,0 @@ -\name{vkGetDbRegions} -\alias{vkGetDbRegions} -\title{Список стран.} -\description{Функция vkGetDbRegions возвращает список стран.} -\usage{ -vkGetDbRegions(country_id = NULL, q = NULL, access_token = NULL) -} -\arguments{ - \item{country_id}{идентификатор страны, полученный с помощью функции vkGetDbCountries.} - \item{q}{строка поискового запроса. Например, Лен. Максимальная длина строки — 15 символов.} - \item{access_token}{Токен доступа к API, полученный с помощью функций vkAuth или vkGetToken} -} -\value{Дата фрейм со статистикой сообщества со следующими значениями: -\item{1. region_id}{идентификатор региона.} -\item{2. title}{название региона.} -} -\details{ -Если не задан параметр q, то будет возвращен список всех регионов в заданной стране. Если задан параметр q, то будет возвращен список регионов, которые релевантны поисковому запросу. -} -\author{ -Alexey Seleznev -} - -\examples{ -##Авторизация в вк -my_tok <- vkAuth(app_id = 1, app_secret = "H2Pk8htyFD8024mZaPHm") - -##Получаем список городов для Украины, т.к. id Украины = 2 -vk_regions <- vkGetDbRegions(country_id = 2, - access_token = my_tok$access_token) - -##Получаем список городов Украины по запросу "Оде" -vk_regions_search <- vkGetDbRegions(country_id = 2, - q = "Оде", - access_token = my_tok$access_token) - - -} -% Add one or more standard keywords, see file 'KEYWORDS' in the -% R documentation directory. diff --git a/en/man/vkGetGroupStat.Rd b/en/man/vkGetGroupStat.Rd deleted file mode 100644 index af3325d..0000000 --- a/en/man/vkGetGroupStat.Rd +++ /dev/null @@ -1,38 +0,0 @@ -\name{vkGetGroupStat} -\alias{vkGetGroupStat} -\title{Статистика по посещению сообщества в Вконтакте.} -\description{Функция vkGetGroupStat даёт возвозможность загрузить данные из сообществ вконтакте по количеству просмотров, подписок, отписок и поситетелей сообщества в разрезе дат.} -\usage{ -vkGetGroupStat(date_from = Sys.Date(), date_to = Sys.Date(), group_id = NULL, access_token = NULL) -} -\arguments{ - \item{date_from}{Начальная дата выводимой статистики в формате YYYY-MM-DD.} - \item{date_to}{Конечная дата выводимой статистики в формате YYYY-MM-DD.} - \item{group_id}{Идентификатор сообщества.} - \item{access_token}{Токен доступа к API, полученный с помощью функций vkAuth или vkGetToken} -} -\value{Дата фрейм со статистикой сообщества со следующими значениями: -\item{1. day}{дата за которую приведена статистика.} -\item{2. views}{количество просмотров.} -\item{3. visitors}{количество уникальных посетителей.} -\item{4. total_reach}{полный охват. } -\item{5. subscribers_reach}{охват подписчиков.} -\item{6. subscribed}{число новых подписчиков.} -\item{7. unsubscribed}{число отписавшихся. } -} -\author{ -Alexey Seleznev -} - -\examples{ -##Авторизация в вк -my_tok <- vkAuth(app_id = 1,app_secret = "H2Pk8htyFD8024mZaPHm") - -##Получение статистики сообщества -communityData <- vkGetGroupStat(date_from = "2016-01-01", - date_to = "2016-04-01", - group_id = 1, - access_token = my_tok$access_token) -} -% Add one or more standard keywords, see file 'KEYWORDS' in the -% R documentation directory. diff --git a/en/man/vkGetGroupStatAge.Rd b/en/man/vkGetGroupStatAge.Rd deleted file mode 100644 index e0b9c7a..0000000 --- a/en/man/vkGetGroupStatAge.Rd +++ /dev/null @@ -1,34 +0,0 @@ -\name{vkGetGroupStatAge} -\alias{vkGetGroupStatAge} -\title{Статистика по возрастным группам посетителей сообщества вконтакте} -\description{Функция vkGetGroupStatAge предназначена для загрузки данных о посетителях сообщества в разрезе возрастных групп (12-18, 18-21, 21-24, 24-27, 27-30, 30-35, 35-45, 45-100) по датам.} -\usage{ -vkGetGroupStatAge(date_from = Sys.Date(), date_to = Sys.Date(), group_id = NULL, access_token = NULL) -} -\arguments{ - \item{date_from}{Начальная дата выводимой статистики в формате YYYY-MM-DD.} - \item{date_to}{Конечная дата выводимой статистики в формате YYYY-MM-DD.} - \item{group_id}{Идентификатор сообщества.} - \item{access_token}{Токен доступа к API, полученный с помощью функций vkAuth или vkGetToken} -} -\value{Дата фрейм со статистикой по посетителям сообщества со следующими значениями: -\item{1. Date}{дата за которую приведена статистика.} -\item{2. Visitors}{количество уникальных посетителей.} -\item{3. AgeGroup}{возрастной интервал.} -} -\author{Alexey Seleznev} - -\examples{ -##Авторизация в вк -my_tok <- vkAuth(app_id = 1,app_secret = "H2Pk8htyFD8024mZaPHm") - -##Получить статистику по возрастным группам посетителеф -communityDataAge <- vkGetGroupStatAge(date_from = "2016-01-01", - date_to = "2016-04-01", - group_id = 1, - access_token = my_tok$access_token) -} -% Add one or more standard keywords, see file 'KEYWORDS' in the -% R documentation directory. -\keyword{ ~kwd1 } -\keyword{ ~kwd2 }% __ONLY ONE__ keyword per line diff --git a/en/man/vkGetGroupStatCity.Rd b/en/man/vkGetGroupStatCity.Rd deleted file mode 100644 index 7a45421..0000000 --- a/en/man/vkGetGroupStatCity.Rd +++ /dev/null @@ -1,34 +0,0 @@ -\name{vkGetGroupStatCity} -\alias{vkGetGroupStatCity} -\title{Статистика посетителей сообщества вконтакте в разрезе городов.} -\description{Функция vkGetGroupStatCity позволяет получить данные о городе посетителей сообщества в разрезе дат.} -\usage{ -vkGetGroupStatCity(date_from = Sys.Date(), date_to = Sys.Date(), group_id = NULL, access_token = NULL) -} -\arguments{ - \item{date_from}{Начальная дата выводимой статистики в формате YYYY-MM-DD.} - \item{date_to}{Конечная дата выводимой статистики в формате YYYY-MM-DD.} - \item{group_id}{Идентификатор сообщества.} - \item{access_token}{Токен доступа к API, полученный с помощью функций vkAuth или vkGetToken} -} -\value{Дата фрейм со статистикой по посетителям сообщества со следующими значениями: -\item{1. Date}{дата за которую приведена статистика.} -\item{2. Visitors}{количество уникальных посетителей.} -\item{3. CityID}{идентификатор города или "other" для раздела «прочие города».} -\item{4. CityName}{название города.} -} -\author{Alexey Seleznev} -\examples{ -##Авторизация в вк -my_tok <- vkAuth(app_id = 1,app_secret = "H2Pk8htyFD8024mZaPHm") - -##Загрузка данных по пользователям в разрезе городов -communityDataCity <- vkGetGroupStatCity(date_from = "2016-01-01", - date_to = "2016-04-01", - group_id = 1, - access_token = my_tok$access_token) -} -% Add one or more standard keywords, see file 'KEYWORDS' in the -% R documentation directory. -\keyword{ ~kwd1 } -\keyword{ ~kwd2 }% __ONLY ONE__ keyword per line diff --git a/en/man/vkGetGroupStatCountries.Rd b/en/man/vkGetGroupStatCountries.Rd deleted file mode 100644 index 0ee3693..0000000 --- a/en/man/vkGetGroupStatCountries.Rd +++ /dev/null @@ -1,35 +0,0 @@ -\name{vkGetGroupStatCountries} -\alias{vkGetGroupStatCountries} -\title{Статистика посетителей сообщества вконтакте в разрезе стран.} -\description{Функция vkGetGroupStatCountries позволяет получить данные о городе посетителей сообщества в разрезе дат.} -\usage{ -vkGetGroupStatCountries(date_from = Sys.Date(), date_to = Sys.Date(), group_id = NULL, access_token = NULL) -} -\arguments{ - \item{date_from}{Начальная дата выводимой статистики в формате YYYY-MM-DD.} - \item{date_to}{Конечная дата выводимой статистики в формате YYYY-MM-DD.} - \item{group_id}{Идентификатор сообщества.} - \item{access_token}{Токен доступа к API, полученный с помощью функций vkAuth или vkGetToken} -} -\value{Дата фрейм со статистикой по посетителям сообщества со следующими значениями: -\item{1. Date}{дата за которую приведена статистика.} -\item{2. Visitors}{количество уникальных посетителей.} -\item{3. CountryID}{идентификатор страны.} -\item{4. CountryCode}{двухбуквенный код страны (например, "RU").} -\item{5. CountryName}{название страны.} -} -\author{Alexey Seleznev} -\examples{ -##Авторизация в вк -my_tok <- vkAuth(app_id = 1,app_secret = "H2Pk8htyFD8024mZaPHm") - -##Загрузка данных по пользователям в разрезе стран -communityDataCountry <- vkGetGroupStatCountries(date_from = "2016-01-01", - date_to = "2016-04-01", - group_id = 1, - access_token = my_tok$access_token) -} -% Add one or more standard keywords, see file 'KEYWORDS' in the -% R documentation directory. -\keyword{ ~kwd1 } -\keyword{ ~kwd2 }% __ONLY ONE__ keyword per line diff --git a/en/man/vkGetGroupStatGender.Rd b/en/man/vkGetGroupStatGender.Rd deleted file mode 100644 index 4f607ba..0000000 --- a/en/man/vkGetGroupStatGender.Rd +++ /dev/null @@ -1,32 +0,0 @@ -\name{vkGetGroupStatGender} -\alias{vkGetGroupStatGender} -\title{Загрузка данных в разрезе пола посетителей сообщества} -\description{Функция vkGetGroupStatGende позволяет загрузить данные по полу посетителей сообщества в разрезе дат.} -\usage{ -vkGetGroupStatGender(date_from = Sys.Date(), date_to = Sys.Date(), group_id = NULL, access_token = NULL) -} - -\arguments{ - \item{date_from}{Начальная дата выводимой статистики в формате YYYY-MM-DD.} - \item{date_to}{Конечная дата выводимой статистики в формате YYYY-MM-DD.} - \item{group_id}{Идентификатор сообщества.} - \item{access_token}{Токен доступа к API, полученный с помощью функций vkAuth или vkGetToken} -} -\value{Дата фрейм со статистикой по посетителям сообщества со следующими значениями: -\item{1. Date}{дата за которую приведена статистика.} -\item{2. Visitors}{количество уникальных посетителей.} -\item{3. Gender}{пол ("m" — мужской, "f" — женский).} -} -\author{Alexey Seleznev} -\examples{ -##Авторизация в вк -my_tok <- vkAuth(app_id = 1,app_secret = "H2Pk8htyFD8024mZaPHm") - -##Загрузка данных по пользователям по полу -communityDataGender <- vkGetGroupStatGender(date_from = "2016-01-01", - date_to = "2016-04-01", - group_id = 1, - access_token = my_tok$access_token) -} -% Add one or more standard keywords, see file 'KEYWORDS' in the -% R documentation directory. diff --git a/en/man/vkGetGroupStatGenderAge.Rd b/en/man/vkGetGroupStatGenderAge.Rd deleted file mode 100644 index 7c38ad3..0000000 --- a/en/man/vkGetGroupStatGenderAge.Rd +++ /dev/null @@ -1,35 +0,0 @@ -\name{vkGetGroupStatGenderAge} -\alias{vkGetGroupStatGenderAge} -\title{Статистика по возрастным группам и полу посетителей сообщества вконтакте} -\description{Функция vkGetGroupStatCity предназначена для загрузки статистики по полу и возрастной группе посетителей сообщества в разрезе дат.} -\usage{ -vkGetGroupStatGenderAge(date_from = Sys.Date(), date_to = Sys.Date(), group_id = NULL, access_token = NULL) -} - -\arguments{ - \item{date_from}{Начальная дата выводимой статистики в формате YYYY-MM-DD.} - \item{date_to}{Конечная дата выводимой статистики в формате YYYY-MM-DD.} - \item{group_id}{Идентификатор сообщества.} - \item{access_token}{Токен доступа к API, полученный с помощью функций vkAuth или vkGetToken} -} -\value{Дата фрейм со статистикой по посетителям сообщества со следующими значениями: -\item{1. Date}{дата за которую приведена статистика.} -\item{2. Visitors}{количество уникальных посетителей.} -\item{3. Gender}{пол ("m" — мужской, "f" — женский).} -\item{4. AgeGroup}{возрастной интервал.} -} -\author{Alexey Seleznev} -\examples{ -##Авторизация в вк -my_tok <- vkAuth(app_id = 1,app_secret = "H2Pk8htyFD8024mZaPHm") - -##Загрузка данных по пользователям по полу и возрастной группе -communityDataGenderAge <- vkGetGroupStatGenderAge(date_from = "2016-01-01", - date_to = "2016-04-01", - group_id = 1, - access_token = my_tok$access_token) -} -% Add one or more standard keywords, see file 'KEYWORDS' in the -% R documentation directory. -\keyword{ ~kwd1 } -\keyword{ ~kwd2 }% __ONLY ONE__ keyword per line diff --git a/en/man/vkGetGroupStatPostReach.Rd b/en/man/vkGetGroupStatPostReach.Rd deleted file mode 100644 index 7ce8a06..0000000 --- a/en/man/vkGetGroupStatPostReach.Rd +++ /dev/null @@ -1,50 +0,0 @@ -\name{vkGetGroupStatPostReach} -\alias{vkGetGroupStatPostReach} -\title{ .} -\description{ vkGetGroupStatPostReach ..} -\usage{ -vkGetGroupStatPostReach(owner_id = NULL, post_ids = NULL, api_version = NULL, access_token = NULL) -} -\arguments{ - \item{owner_id}{ . .} - \item{post_ids}{ , 300 ( ) .} - \item{api_version}{ , API .} - \item{access_token}{ API, vkAuth vkGetToken} -} -\value{ : -\item{1. reach_viral}{ ( )} -\item{2. reach_ads}{ ( ).} -\item{3. reach_subscribers}{ .} -\item{4. reach_total}{ .} -\item{5. links}{ .} -\item{6. to_group}{ .} -\item{7. join_group}{ .} -\item{8. report}{ .} -\item{9. hide}{ .} -\item{10. unsubscribe}{ .} -\item{11. post_id}{ .} -} -\details{ - 5000 , . - - 300 ( ) . - . - https://vk.com/dev/errors. -} -\author{ -Alexey Seleznev -} -\examples{ -## -my_tok <- vkAuth(app_id = 1, app_secret = "H2Pk8htyFD8024mZaPHm") - -## -my_vk_wall <- vkGetUserWall(user_id = -111111, - access_token = my_tok$access_token) - -## 300 -post_reach <- vkGetGroupStatPostReach(owner_id = -2222222, - post_ids = my_vk_wall$id, - access_token = my_tok$access_token) -} -% Add one or more standard keywords, see file 'KEYWORDS' in the -% R documentation directory. diff --git a/en/man/vkGetGroupToken.Rd b/en/man/vkGetGroupToken.Rd deleted file mode 100644 index bfb04dd..0000000 --- a/en/man/vkGetGroupToken.Rd +++ /dev/null @@ -1,23 +0,0 @@ -\name{vkGetGroupToken} -\alias{vkGetGroupToken} -\title{Получить получения ключа доступа сообщества Вконтакте} -\description{Такой ключ позволяет работать с API от имени группы, встречи или публичной страницы. Например, с его помощью Вы можете отвечать подписчикам сообщества на сообщения, поступившие в его адрес. -С ключом доступа сообщества можно вызывать те методы, которые имеют специальную пометку в общем списке (https://vk.com/dev/methods). -Функция vkGetGroupToken получает ключ досупа к сообществу по схеме Implicit flow (https://vk.com/dev/implicit_flow_group).} -\usage{ -vkGetGroupToken(appId = NULL, group_ids = NULL) -} -\arguments{ - \item{appId}{ID вашего приложения Вконтакте, которое находится в поле "ID приложения" в настройках приложения.} - \item{group_ids}{Вектор содержащий ID групп к которым вы хотите получить код доступа.} -} -\value{Объект содержаший токен доступа к группам} -\author{Alexey Seleznev} -\examples{ -##---- Get vk api token, где 1 это ID приложения, а 11,22,33 это ID групп. -myToken <- vkGetGroupToken(appId = 1, group_ids = c(11,22,33)) -} -% Add one or more standard keywords, see file 'KEYWORDS' in the -% R documentation directory. -\keyword{ ~kwd1 } -\keyword{ ~kwd2 }% __ONLY ONE__ keyword per line diff --git a/en/man/vkGetToken.Rd b/en/man/vkGetToken.Rd deleted file mode 100644 index 8c7859e..0000000 --- a/en/man/vkGetToken.Rd +++ /dev/null @@ -1,20 +0,0 @@ -\name{vkGetToken} -\alias{vkGetToken} -\title{Get vkontakte developer token} -\description{vkGetToken open web link in browser and generate developer token, which you need for work with vk.com api} -\usage{ -vkGetToken(apppId = NULL) -} -\arguments{ - \item{apppId}{Your app id from filed "ID приложения" in app page vkontakte.} -} -\value{R object with vk.com token} -\author{Alexey Seleznev} -\examples{ -##---- Get vk api token -myToken <- vkGetToken(apppId = "1") -} -% Add one or more standard keywords, see file 'KEYWORDS' in the -% R documentation directory. -\keyword{ ~kwd1 } -\keyword{ ~kwd2 }% __ONLY ONE__ keyword per line diff --git a/en/man/vkGetUserDialogs.Rd b/en/man/vkGetUserDialogs.Rd deleted file mode 100644 index 9d808b0..0000000 --- a/en/man/vkGetUserDialogs.Rd +++ /dev/null @@ -1,49 +0,0 @@ -\name{vkGetUserDialogs} -\alias{vkGetUserDialogs} -\title{Возвращает список диалогов текущего пользователя или сообщества} -\description{Данная функция вернёт список диалогов, точнее последнее сообщение из кажждого диалога, для того, что бы получить список лиалогов сообщства необходимо в аргумент access_token передать ключ доступа к сообществу, полученный с помощью функции vkGetGroupToken, для того, что бы получить список диалогов пользователя необходимо использовать ключ доступа полученный с помощбю функции vkGetToken} -\usage{ -vkGetUserDialogs(offset = NULL, count = NULL, start_message_id = NULL, preview_length = 0, unread = 0, important = 0, unanswered = 0, api_version = NULL, access_token = NULL) -} -\arguments{ - \item{offset}{Целое число, смещение, необходимое для выборки определенного подмножества диалогов.} - \item{count}{Положительное число, по умолчанию 20, максимальное значение 200, количество диалогов, которое необходимо получить. } - \item{start_message_id}{Положительное число, идентификатор сообщения, начиная с которого нужно вернуть список диалогов. Деали смотрите ниже.} - \item{preview_length}{Положительное число, количество символов, по которому нужно обрезать сообщение. Укажите 0, если Вы не хотите обрезать сообщение. (по умолчанию сообщения не обрезаются). Обратите внимание, текст обрезается по словам, точное число символов может не совпадать с указанным значением. } - \item{unread}{1 — вернуть только диалоги, в которых есть непрочитанные входящие сообщения. По умолчанию: 0.} - \item{important}{1 — вернуть диалоги с пометкой «Важные» (для сообщений сообществ).} - \item{unanswered}{1 — вернуть диалоги с пометкой «Неотвеченные» (для сообщений сообществ).} - \item{api_version}{Токен доступа к API, полученный с помощью функций vkAuth или vkGetToken} - \item{access_token}{Токен доступа к API, полученный с помощью функций vkAuth или vkGetToken} -} -\details{ -Если был передан параметр start_message_id, будет найдена позиция диалога в списке, идентификатор последнего сообщения которого равен start_message_id (или ближайший к нему более ранний). Начиная с этой позиции будет возвращено count диалогов. Смещение offset в этом случае будет отсчитываться от этой позиции (оно может быть отрицательным). - -Метод API который используется в функции: messages.getDialogs (https://vk.com/dev/messages.getDialogs) - -Метод messages.getDialogs возвращает коллекцию объектов описывающих личные сообщения. Список всех возможных полей описания личных сообщений можно найти [тут](https://vk.com/dev/objects/message). -} -\value{Дата фрейм со следующими значениями: -\item{1. id}{идентификатор сообщения (не возвращается для пересланных сообщений).} -\item{2. date}{дата отправки сообщения.} -\item{3. out}{тип сообщения (0 — полученное, 1 — отправленное, не возвращается для пересланных сообщений).} -\item{4. user_id}{идентификатор пользователя, в диалоге с которым находится сообщение.} -\item{5. read_state}{статус сообщения (0 — не прочитано, 1 — прочитано, не возвращается для пересланных сообщений).} -\item{6. title}{заголовок сообщения или беседы.} -\item{7. body}{текст сообщения.} -\item{8. random_id}{идентификатор, используемый при отправке сообщения. Возвращается только для исходящих сообщений.} -} -\author{ -Alexey Seleznev -} - -\examples{ -library(rvkstat) -# Получаем ключ доступа для сообщества -group_token <- vkGetGroupToken(app_id = 111111, group_ids = 222222) - -# Получаем список диалогов -message <- vkGetUserDialogs(access_token = group_token) -} -% Add one or more standard keywords, see file 'KEYWORDS' in the -% R documentation directory. diff --git a/en/man/vkGetUserFriends.Rd b/en/man/vkGetUserFriends.Rd deleted file mode 100644 index f1844b8..0000000 --- a/en/man/vkGetUserFriends.Rd +++ /dev/null @@ -1,57 +0,0 @@ -\name{vkGetUserFriends} -\alias{vkGetUserFriends} -\title{Список друзей Вконтакте.} -\description{Функция vkGetUserFriends возвращает список идентификаторов друзей пользователя и расширенную информацию о друзьях пользователя.} -\usage{ -vkGetUserFriends(user_id = NULL, name_case = "nom", access_token = NULL) -} -\arguments{ - \item{user_id}{идентификатор пользователя, для которого необходимо получить список друзей. Если параметр не задан, то считается, что он равен идентификатору текущего пользователя.} - \item{name_case}{падеж для склонения имени и фамилии пользователя. Возможные значения: именительный – nom, родительный – gen, дательный – dat, винительный – acc, творительный – ins, предложный – abl. По умолчанию nom.} - \item{access_token}{Токен доступа к API, полученный с помощью функций vkAuth или vkGetToken} -} -\value{Дата фрейм со статистикой сообщества со следующими значениями: -\item{1. user_id}{идентификатор пользователя.} -\item{2. first_name}{имя.} -\item{3. last_name}{фамилия.} -\item{4. gender}{пол.} -\item{5. nickname}{ никнейм (отчество) пользователя.} -\item{6. domain}{короткий адрес страницы. Возвращается строка, содержащая короткий адрес страницы (например, andrew). Если он не назначен, возвращается "id"+user_id, например, id35828305.} -\item{7. bdate}{дата рождения. Возвращается в формате D.M.YYYY или D.M (если год рождения скрыт). Если дата рождения скрыта целиком, поле отсутствует в ответе.} -\item{8. city}{id города, название города можно получить с помощью функции vkGetDbCities.} -\item{9. country}{id страны, название страны можно получить с помощью функции vkGetDbCountries.} -\item{10. photo_50}{url квадратной фотографии пользователя, имеющей ширину 50 пикселей. В случае отсутствия у пользователя фотографии возвращается http://vk.com/images/camera_c.gif.} -\item{11. photo_100}{url квадратной фотографии пользователя, имеющей ширину 100 пикселей. В случае отсутствия у пользователя фотографии возвращается http://vk.com/images/camera_b.gif.} -\item{12. photo_200_orig}{url фотографии пользователя, имеющей ширину 200 пикселей. В случае отсутствия у пользователя фотографии возвращается http://vk.com/images/camera_a.gif.} -\item{13. has_mobile}{информация о том, известен ли номер мобильного телефона пользователя. Возвращаемые значения: 1 — известен, 0 — не известен.} -\item{14. online}{информация о том, находится ли пользователь сейчас на сайте.} -\item{15. can_post}{информация о том, может ли текущий пользователь оставлять записи на стене. Возможные значения: 1 — может, 0 — не может.} -\item{16. can_see_all_posts}{информация о том, может ли текущий пользователь видеть чужие записи на стене. Возможные значения: 1 — может, 0 — не может.} -\item{17. can_write_private_message}{информация о том, может ли текущий пользователь отправить личное сообщение. Возможные значения: 1 — может, 0 — не может.} -\item{18. status}{статус пользователя. Возвращается строка, содержащая текст статуса, расположенного в профиле под именем пользователя.} -\item{19. last_seen_time}{дата и время время последнего посещения.} -\item{20. last_seen_platform}{тип платформы, через которую был осуществлён последний вход. Возможные значения: 1 — мобильная версия, 2 — приложение для iPhone, 3 — приложение для iPad, 4 — приложение для Android, 5 — приложение для Windows Phone, 6 — приложение для Windows 10, 7 — полная версия сайта.} -\item{21. university}{идентификатор университета.} -\item{22. university_name}{название университета.} -\item{23. faculty}{идентификатор факультета.} -\item{24. faculty_name}{название факультета.} -\item{25. graduation}{год окончания.} -\item{26. education_form}{форма обучения} -\item{27. education_status}{ статус (например, "Выпускник (специалист)")} -\item{28. relation}{семейное положение пользователя. Возможные значения: 1 — не женат/не замужем, 2 — есть друг/есть подруга, 3 — помолвлен/помолвлена, 4 — женат/замужем, 5 — всё сложно, 6 — в активном поиске, 7 — влюблён/влюблена, 8 — в гражданском браке, 0 — не указано.} -} -\author{ -Alexey Seleznev -} - -\examples{ -##Авторизация в вк -my_tok <- vkAuth(app_id = 1, app_secret = "H2Pk8htyFD8024mZaPHm") - -##Получаем список друзей пользователя -my_vk_friends <- vkGetUserFriends(user_id = 7437995, - access_token = my_tok$access_token) - -} -% Add one or more standard keywords, see file 'KEYWORDS' in the -% R documentation directory. diff --git a/en/man/vkGetUserGroups.Rd b/en/man/vkGetUserGroups.Rd deleted file mode 100644 index 5926dc2..0000000 --- a/en/man/vkGetUserGroups.Rd +++ /dev/null @@ -1,49 +0,0 @@ -\name{vkGetUserGroups} -\alias{vkGetUserGroups} -\title{Список сообществ Вконтакте.} -\description{Функция vkGetUserGroups Возвращает список сообществ указанного пользователя.} -\usage{ -vkGetUserGroups(user_id = NULL, filter = NULL, access_token = NULL) -} -\arguments{ - \item{user_id}{идентификатор пользователя, для которого необходимо получить список друзей. Если параметр не задан, то считается, что он равен идентификатору текущего пользователя.} - \item{filter}{список фильтров сообществ, которые необходимо вернуть, перечисленные через запятую. Доступны значения admin, editor, moder, groups, publics, events. По умолчанию возвращаются все сообщества пользователя. При указании фильтра admin будут возвращены сообщества, в которых пользователь является администратором, editor — администратором или редактором, moder — администратором, редактором или модератором.} - \item{access_token}{Токен доступа к API, полученный с помощью функций vkAuth или vkGetToken} -} -\value{Дата фрейм со статистикой сообщества со следующими значениями: -\item{1. gid}{идентификатор сообщества.} -\item{2. name}{название сообщества.} -\item{3. screen_name}{короткий адрес, например, apiclub.} -\item{4. is_closed}{является ли сообщество закрытым. Возможные значения: 0 — открытое, 1 — закрытое, 2 — частное} -\item{5. type}{тип сообщества: group — группа, page — публичная страница, event — мероприятие.} -\item{6. description}{текст описания сообщества.} -\item{7. wiki_page}{название главной вики-страницы.} -\item{8. members_count}{количество участников.} -\item{9. start_date}{дата основания.} -\item{10. can_post}{информация о том, может ли текущий пользователь оставлять записи на стене сообщества. Возможные значения: 1 — может, 0 — не может.} -\item{11. can_see_all_posts}{информация о том, разрешено ли видеть чужие записи на стене группы. Возможные значения: 1 — может, 0 — не может.} -\item{12. activity}{строка состояния публичной страницы. У групп возвращается строковое значение, открыта ли группа или нет, а у событий дата начала.} -\item{13. status}{статус сообщества.} -\item{14. fixed_post}{идентификатор закрепленной записи.} -\item{15. verified}{информация о том, верифицировано ли сообщество. Возможные значения: 1 — может, 0 — не может.} -\item{16. site}{адрес сайта из поля «веб-сайт» в описании сообщества.} -\item{17. can_create_topic}{информация о том, может ли текущий пользователь создать новое обсуждение в группе. Возможные значения: 1 — может, 0 — не может.} -\item{18. photo}{URL главной фотографии с размером 50x50px.} -\item{19. photo_medium}{URL главной фотографии с размером 100х100px.} -\item{20. photo_big}{URL главной фотографии в максимальном размере.} -} -\author{ -Alexey Seleznev -} - -\examples{ -##Авторизация в вк -my_tok <- vkAuth(app_id = 1, app_secret = "H2Pk8htyFD8024mZaPHm") - -##Получаем список групп в которы состоит пользователь пользователя -my_vk_community <- vkGetUserGroups(user_id = 7437995, - access_token = my_tok$access_token) - -} -% Add one or more standard keywords, see file 'KEYWORDS' in the -% R documentation directory. diff --git a/en/man/vkGetUserWall.Rd b/en/man/vkGetUserWall.Rd deleted file mode 100644 index dcfb3ff..0000000 --- a/en/man/vkGetUserWall.Rd +++ /dev/null @@ -1,41 +0,0 @@ -\name{vkGetUserWall} -\alias{vkGetUserWall} -\title{Список сообществ Вконтакте.} -\description{Функция vkGetUserWall Возвращает список сообществ указанного пользователя.} -\usage{ -vkGetUserWall(user_id = NULL, domain = NULL, filter = NULL, access_token = NULL) -} -\arguments{ - \item{user_id}{идентификатор пользователя, для которого необходимо получить список друзей. Если параметр не задан, то считается, что он равен идентификатору текущего пользователя.} - \item{domain}{короткий адрес пользователя или сообщества.} - \item{filter}{определяет, какие типы записей на стене необходимо получить. Возможные значения: suggests — предложенные записи на стене сообщества , postponed — отложенные записи , owner — записи владельца стены, others — записи не от владельца стены, all — все записи на стене (owner + others), По умолчанию: all. } - \item{access_token}{Токен доступа к API, полученный с помощью функций vkAuth или vkGetToken} -} -\value{Дата фрейм со следующими значениями: -\item{1. id}{идентификатор записи.} -\item{2. from_id}{идентификатор автора записи.} -\item{3. to_id}{идентификатор владельца стены, на которой размещена запись.} -\item{4. date}{время публикации записи} -\item{5. post_type}{тип записи, может принимать следующие значения: post, copy, reply, postpone, suggest.} -\item{6. text}{текст записи.} -\item{7. can_delete}{информация о том, может ли текущий пользователь удалить запись (1 — может, 0 — не может).} -\item{8. comments_count}{количество комментариев.} -\item{9. likes_count}{ число пользователей, которым понравилась запись.} -\item{10. reposts_count}{число пользователей, скопировавших запись.} -\item{11. attachment_type}{тип медиавложения записи (фотографии, ссылки и т.п.)} -} -\author{ -Alexey Seleznev -} - -\examples{ -##Авторизация в вк -my_tok <- vkAuth(app_id = 1, app_secret = "H2Pk8htyFD8024mZaPHm") - -##Получаем получаем сообщения со стены пользователя Вконтакте. -my_vk_wall <- vkGetUserWall(user_id = 7437995, - access_token = my_tok$access_token) - -} -% Add one or more standard keywords, see file 'KEYWORDS' in the -% R documentation directory. diff --git a/en/man/vkLoadToken.Rd b/en/man/vkLoadToken.Rd deleted file mode 100644 index 8ca1ce5..0000000 --- a/en/man/vkLoadToken.Rd +++ /dev/null @@ -1,17 +0,0 @@ -\name{vkLoadToken} -\alias{vkLoadToken} -\title{Load vkontakte developer token} -\description{vkLoadToken load your developer token, which you need for work with vk.com api } -\usage{ -vkLoadToken() -} -\value{R object with vk.com token} -\author{Alexey Seleznev} -\examples{ -##---- Get token from work directory -myToken <- vkLoadToken() -} -% Add one or more standard keywords, see file 'KEYWORDS' in the -% R documentation directory. -\keyword{ ~kwd1 } -\keyword{ ~kwd2 }% __ONLY ONE__ keyword per line diff --git a/en/vkGetGroupStatPostReach.R b/en/vkGetGroupStatPostReach.R deleted file mode 100644 index 74543a4..0000000 --- a/en/vkGetGroupStatPostReach.R +++ /dev/null @@ -1,58 +0,0 @@ -vkGetGroupStatPostReach <- function(owner_id = NULL, - post_ids = NULL, - api_version = NULL, - access_token = NULL){ - - if (is.null(access_token) | is.null(post_ids) | is.null(owner_id)){ - stop("Аргументы owner_id, post_ids и access_token являются обязательными!") - } - - if (length(post_ids) > 300){ - warning("Данные по статистике доступны только для 300 последних (самых свежих) записей на стене сообщества. Аргумент post_id будет сокращён до 300 элементов.") - post_ids <- head(post_ids[order(-post_ids)], 300) - } - - if (grepl("^\\d", owner_id)) { - owner_id <- paste0("-", owner_id) - } - - # Устанавливаем версию API - api_version <- api_version_checker(api_version) - - #?auoeuoe?o?uay oaaeeoa - result <- data.frame(stringsAsFactors = F) - - #Запускаем прогресс бар - if (length(post_ids) > 1){ - #Progress settings - pb_step <- 1 - pb <- txtProgressBar(pb_step, length(post_ids), style = 3)} - - for (post_id in post_ids){ - #Send query - answer <- GET("https://api.vk.com/method/stats.getPostReach", query = list(owner_id = owner_id, post_id = post_id, v = api_version, access_token = access_token)) - stop_for_status(answer) - dataRaw <- content(answer, "parsed", "application/json") - - # Проверка на наличие ошибок - if (!is.null(dataRaw$error)){ - stop(paste0("Error ", dataRaw$error$error_code," - ", dataRaw$error$error_msg)) - } - - # Прикрепляем данные к результирующему дата фрейму - result <- rbind(result, cbind(do.call(cbind, dataRaw$response[[1]]), post_id)) - # Пауза перед следующим запросом - Sys.sleep(.5) - # Переставляем счётчик - if (exists("pb")){ - pb_step <- pb_step + 1 - setTxtProgressBar(pb, pb_step)} - } - - # Закрываем прогресс бар - if(exists("pb")){ - close(pb) - } - # Возвращем результат - return(result) -} \ No newline at end of file diff --git a/man/vkGetUserDialogs.Rd b/man/vkGetUserDialogs.Rd deleted file mode 100644 index 463274f..0000000 --- a/man/vkGetUserDialogs.Rd +++ /dev/null @@ -1,54 +0,0 @@ -\name{vkGetUserDialogs} -\alias{vkGetUserDialogs} -\title{Returns The List of Conversations of The Current User or Community.} -\description{Return a list of dialogs, or rather the last message from each dialog, in order to get a list of message dialogs, you must pass the community access key received by using the vkGetGroupToken function to the access_token argument, in order to get a list of user dialogs access obtained with vkGetToken} -\usage{ -vkGetUserDialogs(offset = NULL, count = NULL, - start_message_id = NULL, - preview_length = 0, unread = 0, - important = 0, unanswered = 0, - api_version = NULL, access_token = NULL) -} -\arguments{ - \item{offset}{Integer, offset required to select a specific subset of dialogs.} - \item{count}{A positive number, the default is 20, the maximum value is 200, the number of conversations you need to receive.} - \item{start_message_id}{A positive number, a message identifier starting from which you want to return a list of conversations. See below for details.} - \item{preview_length}{A positive number, the number of characters to cut the message. Specify 0 if you do not want to cut the message. (by default, messages are not cropped). Please note that the text is cut off by words, the exact number of characters may not match the specified value.} - \item{unread}{1 - return only dialogs with unread incoming messages. Default: 0.} - \item{important}{1 - return dialogs marked “Important” (for community posts).} - \item{unanswered}{1 - return dialogs marked “Unanswered” (for community messages).} - \item{api_version}{API access token, obtained using vkAuth or vkGetToken} - \item{access_token}{API access token, obtained using the functions vkAuth or vkGetToken} -} -\details{ -If the start_message_id parameter was passed, the position of the dialog in the list will be found, the last message identifier of which is equal to start_message_id (or the closest one to it). Starting from this position, count dialogs will be returned. The offset in this case will be counted from this position (it may be negative). - -API method which is used in the function: messages.getDialogs (https://vk.com/dev/messages.getDialogs) - -The messages.getDialogs method returns a collection of objects describing private messages. A list of all possible fields for describing personal messages can be found at the link - https://vk.com/dev/objects/message. -} -\value{Date frame with the following values: -\item{1. id}{message identifier (not returned for forwarded messages).} -\item{2. date}{date the message was sent.} -\item{3. out}{message type (0 - received, 1 - sent, not returned for forwarded messages).} -\item{4. user_id}{identifier of the user in the dialogue with which the message is located.} -\item{5. read_state}{status of the message (0 - not read, 1 - read, not returned for forwarding messages).} -\item{6. title}{the title of the message or conversation.} -\item{7. body}{message text.} -\item{8. random_id}{identifier used when sending a message. Returned for outgoing messages only} -} -\author{ -Alexey Seleznev -} - -\examples{ -\dontrun{ -# Get access key for the community -group_token <- vkGetGroupToken(app_id = 111111, - group_ids = 222222) - -# Get dialogs list -message <- vkGetUserDialogs(access_token = group_token) -} -} - diff --git a/rvkstat.Rproj b/rvkstat.Rproj new file mode 100644 index 0000000..51ff437 --- /dev/null +++ b/rvkstat.Rproj @@ -0,0 +1,17 @@ +Version: 1.0 + +RestoreWorkspace: Default +SaveWorkspace: Default +AlwaysSaveHistory: Default + +EnableCodeIndexing: Yes +UseSpacesForTab: Yes +NumSpacesForTab: 2 +Encoding: CP1251 + +RnwWeave: Sweave +LaTeX: pdfLaTeX + +BuildType: Package +PackageUseDevtools: Yes +PackageInstallArgs: --no-multiarch --with-keep.source