왜이 기능을 사용할 수 없는지 알고 싶습니다. 내가 구글 < -yahoo ("GOOG")를 실행하면

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 
) 
} 

, 이것은 내가받은 메시지는 다음과 같습니다

노력 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' 콘텐츠 형식 'text/html과; charset = utf-8 'unknown unknown 다운로드 됨 1078 바이트

이 기능을 어떻게 변경하면됩니까?

Answer 1

the Yahoo Finance web service which you're trying to access was discontinued in May 2017 때문에이 코드가 작동하지 않습니다. 이 데이터에 대한 다른 출처를 찾아야합니다.