I'm trying to create a cronjob using cronR. When I do it without addin my cronjob never starts
library(cronR)
script <- "~/Documents/Job/MammyClub/Ostatki/Rscripts/XML/AnitaXML.R"
cmd <- cron_rscript(script)
cron_add(command = cmd, at = "17:46", frequency = "minutely", id = "test_job1")
#> Adding cronjob:
#> ---------------
#>
#> ## cronR job
#> ## id: test_job1
#> ## tags:
#> ## desc:
#> 46 17 * * * /Library/Frameworks/R.framework/Resources/bin/Rscript '~/Documents/Job/MammyClub/Ostatki/Rscripts/XML/AnitaXML.R' >> '~/Documents/Job/MammyClub/Ostatki/Rscripts/XML/AnitaXML.log' 2>&1
Cron is running on the machine
Macintosh:~ aleksandr$ sudo cron start
Password:
cron: cron already running, pid: 240
Macintosh:~ aleksandr$
When I trying to create cronjob using addin the error occurs
Attaching package: ‘dplyr’
The following objects are masked from ‘package:stats’:
filter, lag
The following objects are masked from ‘package:base’:
intersect, setdiff, setequal, union
Attaching package: ‘gmailr’
The following object is masked from ‘package:dplyr’:
id
The following object is masked from ‘package:utils’:
history
The following objects are masked from ‘package:base’:
body, date, labels, message
Auto-refreshing stale OAuth token.
[1] "price-2021-01-12.xlsx"
Execution halted
The script itself runs well in RStudio and via Terminal too
options(java.parameters = "-Xmx1024m")
library(XML)
library(dplyr)
#>
#> Attaching package: 'dplyr'
#> The following objects are masked from 'package:stats':
#>
#> filter, lag
#> The following objects are masked from 'package:base':
#>
#> intersect, setdiff, setequal, union
library(gmailr)
#>
#> Attaching package: 'gmailr'
#> The following object is masked from 'package:dplyr':
#>
#> id
#> The following object is masked from 'package:utils':
#>
#> history
#> The following objects are masked from 'package:base':
#>
#> body, date, labels, message
gm_auth_configure()
gm_auth()
# ищем конкретное письмо
thread <- gm_threads(search = "magbabyopt", #поиск по поставщику
label_ids = "Label_8632852764550356173", #папка остатки
num_results = 1) #самое крайнее письмо
thread_id <- gm_id(thread) #id письма с которым будем работать
my_message <- gm_message(thread_id) #данные этого письма
att_ids <- gm_attachments(my_message) #данные по всем вложениям письма
att_ids$filename
#> [1] "price-2021-01-12.xlsx"
#если вложений несколько нужно писать паттерн по выбору
my_attach <- gm_attachment(att_ids$id, thread_id)
#сохраняем вложение, если вложений несолько, то пишем паттерн как выше для пути (filename)
gm_save_attachment(my_attach, glue::glue("~/Downloads/{filename}", filename = att_ids$filename))
ostatki <- XLConnect::loadWorkbook(filename = glue::glue("~/Downloads/{filename}",
filename = att_ids$filename))%>%
XLConnect::readWorksheet(., sheet = 1)%>%
select(., article = `Артикул`, quantity = `ОстатокНаСкладе`,
cost_price = `Цена3Значение`, price = `Цена1Значение`)%>%
mutate(., article = trimws(article, "both"), quantity = as.numeric(quantity))%>%
filter(quantity > 3)%>%
mutate(., across(everything(), as.character))
# Делаем XML
#new xml
ostatki_xml <- newXMLDoc()
# items (table data) node
items_node <- newXMLNode("items", doc = ostatki_xml)
# rows (names/values) node
item_data <- apply(ostatki, 1, function(x){
z <- newXMLNode("item") # создаем данные в каждый node по строкам
addChildren(z, lapply(names(x), function(y) newXMLNode(y, x[y])))
})
xmlParent(item_data) <- items_node #записываем данные в каждый node
saveXML(ostatki_xml, file = "~/Downloads/Magbaby.xml")
#> [1] "/Users/aleksandr/Downloads/Magbaby.xml"
RCurl::ftpUpload(to = "ftp://mammyclub.com/www/www.mammyclub.com/web/uploads/xmls/Magbaby.xml",
what = "~/Downloads/Magbaby.xml", userpwd = "secret_key))")
#> OK
#> 0
#удаляем файл
unlink(c(glue::glue("~/Downloads/{filename}", filename = att_ids$filename),"~/Downloads/Magbaby.xml"))
#rm(list = ls())
What is the problem?
.xls file with data the script works with has cyrillic encoding
I have to add language settings in crontab using crontab -e in Terminal, I think. But what settings?
