Я запланировал еженедельную задачу от R Server, которая состоит из генерации CSV-файла и отправки его через пакет mailR:
library(mailR,lib='~/packages')
sender <- "bla@gmail.com"
recipients <- c("bla1@gmail.com","bla2@hotmail.com")
email <- send.mail(from = sender,
to = recipients,
subject=paste0("Task, week ",min(total$week)),
body = "Good morning, \n\nI've attached last week file. \n\nRegards,",
attach.files =c(paste0("~/path/task_", substr(Sys.Date()-7,1,4)," week ",min(total$week),".csv")),
smtp = list(host.name = "smtp.gmail.com", port = 465, user.name = sender,passwd = "******", ssl = TRUE),
authenticate = T,
send = TRUE)
Работает нормально, но после первого выполнения, когда я пытаюсь подключиться с R Server к Google Analytics API, BigQuery ... через аутентификацию токена, появляется следующее сообщение:
Error in httpuv::startServer(use$host, use$port, list(call = listen)) :
Failed to create server
Похоже, эта задача блокирует порт. Есть идеи, как этого избежать?
Заранее спасибо,