studio - Comenzó a obtener un error al descargar datos de Yahoo Finance usando R

scraping a web page using r

Question

Comencé a tener un error al descargar los datos de algunas acciones del sitio web de finanzas de yahoo en R. Estoy usando la función get.hist.quote del paquete tseries.

La semana pasada, no hubo problema.

El código de mayo es el siguiente:

library(tseries)

data<-get.hist.quote(instrument = "EREGL.IS,
                     provider="yahoo",
                     quote=c("Open","High","Low","Close","AdjClose","Volume"),
                     start="2010-01-01",
                     end="2017-02-03",
                     compression="d",
                     retclass="zoo")

`

Me sale el siguiente error:

trying URL ''https://ichart.finance.yahoo.com/table.csv?s=EREGL.IS&a=0&b=01&c=2010&d=1&e=03&f=2017&g=d&q=q&y=0&z=EREGL.IS&x=.csv''
download error, retrying ...
trying URL ''https://ichart.finance.yahoo.com/table.csv?s=EREGL.IS&a=0&b=01&c=2010&d=1&e=03&f=2017&g=d&q=q&y=0&z=EREGL.IS&x=.csv''
download error, retrying ...
trying URL ''https://ichart.finance.yahoo.com/table.csv?s=EREGL.IS&a=0&b=01&c=2010&d=1&e=03&f=2017&g=d&q=q&y=0&z=EREGL.IS&x=.csv''
download error, retrying ...
trying URL ''https://ichart.finance.yahoo.com/table.csv?s=EREGL.IS&a=0&b=01&c=2010&d=1&e=03&f=2017&g=d&q=q&y=0&z=EREGL.IS&x=.csv''
download error, retrying ...
trying URL ''https://ichart.finance.yahoo.com/table.csv?s=EREGL.IS&a=0&b=01&c=2010&d=1&e=03&f=2017&g=d&q=q&y=0&z=EREGL.IS&x=.csv''
Error in get.hist.quote(instrument = "EREGL.IS", provider = "yahoo", quote = c("Open",  : 
  cannot open URL ''https://ichart.finance.yahoo.com/table.csv?s=EREGL.IS&a=0&b=01&c=2010&d=1&e=03&f=2017&g=d&q=q&y=0&z=EREGL.IS&x=.csv''
In addition: Warning messages:
1: In download.file(url, destfile, method = method, quiet = quiet) :
  cannot open URL ''https://ichart.finance.yahoo.com/table.csv?s=EREGL.IS&a=0&b=01&c=2010&d=1&e=03&f=2017&g=d&q=q&y=0&z=EREGL.IS&x=.csv'': HTTP status was ''504 Maximum Transaction Time Exceeded''
2: In download.file(url, destfile, method = method, quiet = quiet) :
  cannot open URL ''https://ichart.finance.yahoo.com/table.csv?s=EREGL.IS&a=0&b=01&c=2010&d=1&e=03&f=2017&g=d&q=q&y=0&z=EREGL.IS&x=.csv'': HTTP status was ''504 Maximum Transaction Time Exceeded''
3: In download.file(url, destfile, method = method, quiet = quiet) :
  cannot open URL ''https://ichart.finance.yahoo.com/table.csv?s=EREGL.IS&a=0&b=01&c=2010&d=1&e=03&f=2017&g=d&q=q&y=0&z=EREGL.IS&x=.csv'': HTTP status was ''504 Maximum Transaction Time Exceeded''
4: In download.file(url, destfile, method = method, quiet = quiet) :
  cannot open URL ''https://ichart.finance.yahoo.com/table.csv?s=EREGL.IS&a=0&b=01&c=2010&d=1&e=03&f=2017&g=d&q=q&y=0&z=EREGL.IS&x=.csv'': HTTP status was ''504 Maximum Transaction Time Exceeded''
5: In download.file(url, destfile, method = method, quiet = quiet) :
  cannot open URL ''https://ichart.finance.yahoo.com/table.csv?s=EREGL.IS&a=0&b=01&c=2010&d=1&e=03&f=2017&g=d&q=q&y=0&z=EREGL.IS&x=.csv'': HTTP status was ''504 Maximum Transaction Time Exceeded''

¿Por qué obtengo este error? Una posibilidad es cambiar el nombre de la URL relacionada.

¿Como puedo solucionar este problema? Estaré muy contento de cualquier ayuda. Muchas gracias.

Answer 1

Yahoo realizó algunos cambios, por lo que no puede acceder a la descarga sin la respectiva "migaja", vea Pregunta hace unos días .
A menos que quiera copiar y pegar manualmente esta URL de descarga para cada stock, le sugiero que use el paquete quantmod . Funciona, después de aplicar una solución corta (que probablemente pronto se incluya en una nueva versión del paquete, hasta entonces debe hacerlo manualmente).

library(quantmod)   #probably will need to install the package first
devtools::install_github("joshuaulrich/quantmod", ref="157_yahoo_502")    #installing the fix (devtools necessary)

str(getSymbols("EREGL.IS",auto.assign=F,from="2010-01-01",to="2017-02-03"))    #Example
#An ‘xts’ object on 2010-01-01/2017-02-03 containing:
#  Data: num [1:1851, 1:6] 4.39 4.43 4.42 4.49 4.49 ...
# - attr(*, "dimnames")=List of 2
#  ..$ : NULL
#  ..$ : chr [1:6] "EREGL.IS.Open" "EREGL.IS.High" "EREGL.IS.Low"     #"EREGL.IS.Close" ...
#  Indexed by objects of class: [Date] TZ: UTC
#  xts Attributes:  
#List of 2
# $ src    : chr "yahoo"
# $ updated: POSIXct[1:1], format: "2017-05-20 12:11:08"