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
)
}
Wenn ich Google < -yahoo laufen ("GOOG"), das ist die Botschaft, die ich erhalten:Ich möchte wissen, warum ich diese Funktion nicht verwenden kann?
versuchen, 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' Inhaltstyp ‚text/html; charset = utf-8 'Länge unbekannt heruntergeladen 1078 Bytes
Also, wie man diese Funktion ändert, damit es funktioniert?
Welche Sprache ist das? Bearbeiten Sie Ihre Frage, um sie als Tag hinzuzufügen. –
Dies scheint R zu sein. Was ist falsch an der Funktion? Du hast 1078 Bytes zurück, war das nicht zu erwarten? – Stefan