Size: a a a

R language and Statistical data analysis

2020 May 15

ОЛ

Олег Логинов... in R language and Statistical data analysis
да, его использую
источник

ОЛ

Олег Логинов... in R language and Statistical data analysis
значит, что-то в файле .R у меня не так записано
источник

AP

Anton Pysanka in R language and Statistical data analysis
Олег Логинов
значит, что-то в файле .R у меня не так записано
у вас файл .R сохранен в энкодинге винды?
источник

ОЛ

Олег Логинов... in R language and Statistical data analysis
угу
источник

AP

Anton Pysanka in R language and Statistical data analysis
тогда посмотрите:
- запустилось ли у вас задание по времени в менеджере, или может там ошибки
- создался ли текстовый файл с лог-ом запуска скрипта в папке, куда taskscheduler сохраняет ваш скрипт, если да – записано ли что-то там, по чему можно выявить ошибки
- выполняется ли скрипт целиком из RStudio
- как прописаны пути сохранения файле Excel, если нужно используйне "нормализацию" путей под ОС
- выполняется ли скрипт, если запустить его из коммандной строки
- что если расставить по файлу скрипта функцийки, которые будут что-то писать в файл лог-а, например cat('block_1') и по ним выявить какая часть скрипта не отрабатывает
источник

ОЛ

Олег Логинов... in R language and Statistical data analysis
у меня выполняется команда по сбору статистики. потом я хочу ее записать в эксель, вот так: write.xlsx(gr_stat, "C:/Users/Oleg/Documents/R/win-library/4.0/taskscheduleR/extdata/gr_stat_final.xlsx"). создается экселевский файл.
теперь вот вопрос: как мне его перезаписывать по времени?
источник

ОЛ

Олег Логинов... in R language and Statistical data analysis
taskscheduler - делал через пакет
источник

ОЛ

Олег Логинов... in R language and Statistical data analysis
ошибка в логах:
Ошибка: неожиданный ввод in "PK "
Выполнение остановлено
Ошибка: неожиданный ввод in "PK "
Выполнение остановлено
Ошибка: неожиданный ввод in "PK "
Выполнение остановлено
Ошибка: неожиданный ввод in "PK "
Выполнение остановлено
Ошибка: неожиданный ввод in "PK "
Выполнение остановлено
источник

ОЛ

Олег Логинов... in R language and Statistical data analysis
т.е. нужно просто перезаписывать эксель в определенный период
источник

ОЛ

Олег Логинов... in R language and Statistical data analysis
бывает в логах вот так отражается
источник

ОЛ

Олег Логинов... in R language and Statistical data analysis
или так: Устанавливаю пакет в 'C:/Users/Oleg/Documents/R/win-library/4.0'
(потому что 'lib' не определено)
Ошибка в contrib.url(repos, "source") :
 пробую использовать CRAN без установки зеркала
Вызовы: install.packages -> contrib.url
Выполнение остановлено
источник

AP

Anton Pysanka in R language and Statistical data analysis
Олег Логинов
или так: Устанавливаю пакет в 'C:/Users/Oleg/Documents/R/win-library/4.0'
(потому что 'lib' не определено)
Ошибка в contrib.url(repos, "source") :
 пробую использовать CRAN без установки зеркала
Вызовы: install.packages -> contrib.url
Выполнение остановлено
не совсем понятно, у вас сейчас есть скрипт, который если его руками выделтить полностью и запустить из рстудио, отрабатывает без ошибок и записывает нужную ексельку?
источник

ОЛ

Олег Логинов... in R language and Statistical data analysis
да, верно
источник

ОЛ

Олег Логинов... in R language and Statistical data analysis
хочу просто не руками его выполнять, а автоматом
источник

ОЛ

Олег Логинов... in R language and Statistical data analysis
перезаписывание файла
источник

ОЛ

Олег Логинов... in R language and Statistical data analysis
итоговый такой скрипт
источник

ОЛ

Олег Логинов... in R language and Statistical data analysis
Переслано от Олег Логинов...
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")
источник

ОЛ

Олег Логинов... in R language and Statistical data analysis
руками все работает
источник

ЕБ

Евгений Балакловский... in R language and Statistical data analysis
всем привет
кто нибудь работал с вебхуками с R? есть задача принимать запросы от сервера в json и потом складировать в локальную табличку.

по идее хотел на R сделать слушатель и принимать реквесты от стороннего api

но чето в гуглах я не нашел решения на R, хотя на питонах вдоль и поперек есть инфа, не подскажите в какую сторону копать? есть предположение что пакет httr может помочь
источник

ЕБ

Евгений Балакловский... in R language and Statistical data analysis
по сути, если проблему непонятно описал, то это должно выглядеть в конечном решении так:

получаем реквест в реал-тайм -> R делает предобработку -> льет в базу

вот если ктото мануал по такому etl извращению видел, то тысяча благодарностей
источник