library(shiny)
library(miniUI)
library(taskscheduleR)
library(rvkstat)
library(openxlsx)
myToken <- vkAuth(app_id = ***,
app_secret = '***')
# статистика сообщества
# получить список всех групп пользователя
my_groups <- vkGetUserGroups(access_token = myToken$access_token)
# общаяя статистика по сообществу
gr_stat <- vkGetGroupStat(date_from = "2020-01-01",
date_to = "2020-12-31",
group_id = ***,
access_token = myToken$access_token)
# статистика по посетителям сообщества в разбивке по возрасту
gr_stat_age <- vkGetGroupStatAge(date_from = "2020-01-01",
date_to = "2020-12-31",
group_id = ***,
access_token = myToken$access_token)
# статистика по посетителям сообщества в разбивке по полу
gr_stat_gender <- vkGetGroupStatGender(date_from = "2020-01-01",
date_to = "2020-12-31",
group_id = ***,
access_token = myToken$access_token)
# статистика по посетителям сообщества в разбивке по полу и возрасту
gr_stat_gen_age <- vkGetGroupStatGenderAge(date_from = "2020-01-01",
date_to = "2020-12-31",
group_id = ***,
access_token = myToken$access_token)
# статистика по посетителям сообщества в разбивке по городам
gr_stat_city <- vkGetGroupStatCity(date_from = "2020-01-01",
date_to = "2020-12-31",
group_id = ***,
access_token = myToken$access_token)
# статистика по посетителям сообщества в разбивке по странам
gr_stat_country <- vkGetGroupStatCountries(date_from = "2020-01-01",
date_to = "2020-12-31",
group_id = ***,
access_token = myToken$access_token)
write.xlsx(gr_stat, "C:/Users/Oleg/Documents/R/win-library/4.0/taskscheduleR/extdata/gr_stat_final.xlsx")
write.xlsx(gr_stat_age, "C:/Users/Oleg/Documents/R/win-library/4.0/taskscheduleR/extdata/gr_stat_age_final.xlsx")
write.xlsx(gr_stat_gender, "C:/Users/Oleg/Documents/R/win-library/4.0/taskscheduleR/extdata/gr_stat_gender_final.xlsx")
write.xlsx(gr_stat_gen_age, "C:/Users/Oleg/Documents/R/win-library/4.0/taskscheduleR/extdata/gr_stat_gen_age_final.xlsx")
write.xlsx(gr_stat_city, "C:/Users/Oleg/Documents/R/win-library/4.0/taskscheduleR/extdata/gr_stat_city_final.xlsx")
write.xlsx(gr_stat_country, "C:/Users/Oleg/Documents/R/win-library/4.0/taskscheduleR/extdata/gr_stat_country_final.xlsx")