library(tidyverse)
library(gmailr)
Estou tentando atribuir um rótulo (ou "marcador" para usar o termo empregado pelo Gmail) a um conjunto de emails específico usando o pacote {gmailr}.
Isto se deve à necessidade de baixar emails/anexos específicos. O que eu consegui até o momento foi apenas criar o rótulo. Mas não consigo atribuí-lo a nenhum email via {gmailr}.
Meus procedimentos:
Com um app devidamente criado na Google Cloud Console, eu obtenho as credenciais para acessar meu Gmail. A partir daí, uso as funções
gm_auth_configure ()
egm_auth()
para autorizar a minha sessão de R à acessar o Gmail.Com o rótulo criado manualmente, eu consigo o acesso aos IDs dos emails.
Supondo que eu tenha criado um rotulo chamado 'teste':
emails <- gm_messages(search = 'label:teste', user_id = 'me')
Obtenho então uma relação com "message_id" e "thread_id".
Com a função
gm_id()
eu consigo extrair os ids de cada email:
emails_id <- emails %>%
gm_id()
- A partir daí uso a função
map()
do {purrr} para extrair as informações que preciso de cada email:
emails_id %>%
map(~{
email_data <- gm_message(.x)
email_from <- gm_from(email_data)
email_attach <- gm_attachments(email_data)
})
Mas apenas alcancei meu objetivo porque, no começo, eu atribui MANUALMENTE o rótulo "teste" a cada um dos emails que me interessavam. O que eu gostaria de saber é como faço essa atribuição via {gmailr} usando um conjunto de nomes ou emails.
O máximo que consigo é criar o rótulo via gm_create_label('teste')
, mas não consigo atribuílo a nenhum remetente.
Por exemplo, suponha uma dataset:
df <- tibble(nome = c('FULANO', 'BELTRANO', 'CICLANO'),
email = c('[email protected]', '[email protected]', '[email protected]'))
nome email
<chr> <chr>
1 FULANO [email protected]
2 BELTRANO [email protected]
3 CICLANO [email protected]
Como atribuir o rótulo 'teste', a cada um dos nomes ou emails do dataset?