I want to know why I cannot use this function?

Question

yahoo<-function(sym,current = TRUE, a=0,b=1,c=2000,d,e,f,g="d")
{
  if(current){
  f<-as.numeric(substr(as.character(Sys.time()),start = 1,stop = 4))
  d<-as.numeric(substr(as.character(Sys.time()),start = 6,stop = 7))-1
  e<-as.numeric(substr(as.character(Sys.time()),start = 9,stop = 10))
}
  require(data.table)
  tryCatch(
  suppressWarnings(
  fread(paste0("http://ichart.yahoo.com/table.csv",
                   "?s=",sym,
                   "&a=",a,
                   "&b=",b,
                   "&c=",c,
                   "&d=",d,
                   "&e=",e,
                   "&f=",f,
                   "&g=",g,
                   "&ignore=.csv"),sep=",")),
    error = function(e) NULL
  )
}

When I run Google<-yahoo("GOOG"), this is the message I received:

trying URL 'http://ichart.yahoo.com/table.csv?s=GOOG&a=0&b=1&c=2000&d=8&e=13&f=2017&g=d&ignore=.csv' Content type 'text/html; charset=utf-8' length unknown downloaded 1078 bytes

So how to change that function make it work?

What language is this? Please edit your question to include it as a tag. — Some programmer dude, Sep 13 '17 at 17:25
This seems to be R. What is wrong with the function? You got 1078 bytes back, was that not expected? — Stefan, Sep 13 '17 at 17:29

score 0 · Answer 1 · answered Sep 13 '17 at 23:22

0

This code isn't working because the Yahoo Finance web service which you're trying to access was discontinued in May 2017. You will need to find another source for this data.

answered Sep 13 '17 at 23:22

I want to know why I cannot use this function?

1 Answers1