tests/crontab.R

In Andryas/WEBDATA: WEBDATA

crontab <- function(schedule) {
    if (schedule == "selenium") {
        cronR::cron_add(
                   command = "WEBSCRAPING::selenium()",
                   at = "7:30",
                   id = "selenium",
                   tags = "docker",
                   description = "Inicia server para uso do Selenium."
               )
    } else if (schedule == "superbid") {
        
        cmd <- cron_rscript(rscript, rscript_args = "order")
        cron_add(cmd, at = "8:30", id = "superbid_order", tags = "webscraping",
                 description = "Coleta anúncios do dia")

        cmd <- cron_rscript(rscript, rscript_args = "collect")
        cron_add(cmd, at = "21:00", id = "superbid_collect", tags = "webscraping",
                 description = "Coleta fechamentos do dia")
        
    } else if (schedule == "googleflights") {
        
        cmd <- cron_rscript(rscript, rscript_args = "collect")
        cron_add(cmd, at = "9:00", id = "googleflights", tags = "webscraping",
                 description = "Coleta preço de passagens de voos.")
        
    }

}