gmailr package Запрос статистики Gmail с помощью R - PullRequest
Новая
       38

gmailr package Запрос статистики Gmail с помощью R

0 голосов
/ 17 мая 2018

Я пытаюсь получить статистику из API gmail, используя R. Я использую пакет gmailr.Я могу отправить электронное письмо от R, но на этом все и заканчивается.Я использовал эти ссылки, чтобы попытаться выяснить это, но это, похоже, не работает: https://github.com/jennybc/send-email-with-r/#prep-work-related-to-gmail-and-the-gmailr-package и https://github.com/alkashef/gmailstats

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

Любая помощь в этом была бы замечательной.

Спасибо

1 Ответ

0 голосов
/ 18 мая 2018

Вы можете попробовать 

library(gmailr)
clientid <- "...."
key <- "...."
token <- gmail_auth("read_only", clientid, key)
msgs <- messages(search = "before:2018-01-01 after:2016-01-01", include_spam_trash = FALSE)
msgs_meta <- lapply(id(msgs), message, format = "metadata")
dates <- lubridate::dmy_hms(sapply(msgs_meta, date))
addmargins(table(as.Date(dates), factor(format(dates, "%H"), levels = 0:23)))
#             0  1  2  3  4  5  6  7  8  9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 Sum
# 2016-11-10  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  1  0   1
# 2016-11-11  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  1  0   1
# ...
# 2017-12-27  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  1  0   1
# Sum         0  0  0  0  0  0  0  0  0  0 15  5  1  0  0  4  3  2  2  0  1 22 19  3  77

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

...