Definir argumentos por defecto para getSymbols()

Importación y gestión de datos financieros en R

Joshua Ulrich

Quantitative Analyst & quantmod Co-Author and Maintainer

“Métodos” de getSymbols()

getSymbols() no contiene código para importar datos
El código para cada fuente está en un "método" getSymbols.[source]
Por ejemplo:

# Llamas a getSymbols()
getSymbols("GDP", src = "FRED")

# getSymbols() llama al "método" de la fuente
getSymbols.FRED("GDP")

No llames directamente a los "métodos" de getSymbols()

Usa setDefaults() para cambiar la fuente por defecto

setDefaults(getSymbols, src = "FRED")

gdp <- getSymbols("GDP", auto.assign = FALSE) 
# Nota el atributo 'src'
str(gdp)

 Un objeto 'xts' en 1947-01-01/2016-10-01 que contiene:
   Datos: num [1:280, 1] 243 246 250 260 266 ...
  - attr(*, "dimnames")=Lista de 2
   ..$ : NULL
   ..$ : chr "GDP"
   Indexado por objetos de clase: [Date] TZ: UTC
   Atributos xts:  
 Lista de 2
  $ src    : chr "FRED"
  $ updated: POSIXct[1:1], formato: "2017-02-13 08:46:50"

setDefaults()

Define nuevos argumentos por defecto con pares name = value
Solo cambia el comportamiento de getSymbols()
Guarda los valores en options() global

Otros argumentos

Busca los argumentos formales de un método de getSymbols()
- Usa args(): args(getSymbols.yahoo)
- Usa help(): help("getSymbols.yahoo")

Valores por defecto from y to

args(getSymbols.yahoo)
 function (Symbols, env, return.class = "xts", index.class = "Date", 
     from = "2007-01-01", to = Sys.Date(), ...)

setDefaults(getSymbols.yahoo, from = "2016-01-01", to = "2016-12-31") 
aapl <- getSymbols("AAPL", auto.assign = FALSE) 
str(aapl)

 Un objeto 'xts' en 2016-01-04/2016-12-30 que contiene:
   Datos: num [1:252, 1:6] 102.6 105.8 100.6 98.7 98.6 ...
  - attr(*, "dimnames")=Lista de 2
   ..$ : NULL
   ..$ : chr [1:6] "AAPL.Open" "AAPL.High" "AAPL.Low" "AAPL.Close" ...
   Indexado por objetos de clase: [Date] TZ: UTC
   Atributos xts:  
 Lista de 2
  $ src    : chr "yahoo"
  $ updated: POSIXct[1:1], formato: "2017-02-13 08:46:50"

getDefaults()

getDefaults()

"getSymbols.yahoo"

getDefaults(getSymbols.yahoo)

$from
"'2016-01-01'"

$to
"'2016-12-31'"

Los valores devueltos no implican que esas funciones acepten valores por defecto definidos por el usuario

setDefaults(load, 
            file = "my_file.RData")

# No cambiará el comportamiento
getDefaults(load)

$file
"'my_file.RData'"

¡Vamos a practicar!

Importación y gestión de datos financieros en R