Aquí podría ser tu PUBLICIDAD


Aplicación de cronR en la tarea brillante aplicación programada

votos
0

Me gustaría programar una tarea diaria para el desguace y calcular precio.

cronR:

> cronR:::cron_rstudioaddin()
Loading required namespace: miniUI
Loading required namespace: shinyFiles

Listening on http://127.0.0.1:5145
Warning in normalizePath(input$rscript_repository, winslash = /) :
  path[1]=/cloud/project/Q: No such file or directory
RscriptRepository /cloud/project/Q does not exist, make sure this is an existing directory without spaces
Adding cronjob:
---------------

## cronR job
## id:   job_a8c93b03178d613ed999810c61baa9c1
## tags: forex
## desc: Scraping data for algorithmic calculation.
0 0 * * * /opt/R/3.4.4/lib/R/bin/Rscript '/cloud/project/Q1App2/global.R'  >> '/cloud/project/Q1App2/global.log' 2>&1

A continuación se muestra mi guión para la tarea reproducible ...

suppressWarnings(require('cronR'))
suppressWarnings(require('xts'))
suppressWarnings(require('quantmod'))
suppressWarnings(require('lubridate'))

fx <- c('EURUSD=X', 'JPY=X', 'GBPUSD=X', 'CHF=X', 'CAD=X', 'AUDUSD=X')
wd <- c('Monday', 'Tuesday', 'Wednesday', 'Thursday', 'Friday', 'Saturday', 'Sunday')

#'@ if(now('GMT') == today('GMT')) {
## https://finance.yahoo.com/quote/AUDUSD=X?p=AUDUSD=X
## Above link prove that https://finance.yahoo.com using GMT time zone.  
if(weekdays(today('GMT'))%in% wd) {
  for(i in seq(fx)) {
    getSymbols(fx[i], from = (today('GMT') - 1) %m-% years(1), 
               to = (today('GMT') - 1))
  }
  rm(i)
}

Referencia

Publicado el 03/06/2018 a las 02:17
fuente por usuario RYO ENG Lian Hu

Aquí podría ser tu PUBLICIDAD





Aquí
podría
ser
tu

PUBLICIDAD