Я использую пакет RGA для доступа к Google Analytics от R. Я создал учетную запись службы Google для авторизации в приложении Shiny.
Все работает какое-то время в локальном блеске и на сервере.Через некоторое время я всегда получаю Предупреждение: ошибка в init_oauth_service_account: неверный запрос (HTTP 400).
В проверке токена $ $ expires_in 3600 , поэтому яЯ думаю, что мне следует сначала подтвердить свой токенНо как это сделать?
Или проблема в моем коде?
1.Получить токен
endpoints <- httr::oauth_endpoints('google')
secrets <- jsonlite::fromJSON("My_Service_Account.json")
scope <- 'https://www.googleapis.com/auth/analytics'
token <- httr::oauth_service_token(endpoints, secrets, scope)
save(token, file="token_file")
Я не генерирую токен каждый раз.Я сохраняю его в файл один раз и затем читаю:
2.Прочитайте токен и авторизуйте
load("token_file")
RGA::authorize(token = token)
Я могу использовать функции пакета RGA сразу на локальном R / Shiny после загрузки ("token_file").Он работает на сервере примерно один час, пока токен не истечет.
Как повторно проверить токен в этом случае?