Fehler: unerwartete '}' stört mich den ganzen Tag

Question

Ich versuche, mit einem unerwarteten } den ganzen Tag zu beschäftigen, aber ich kann es nicht zur Arbeit bekommen. Wenn ich diesen Code ausführen,

read<-function(file){ 
+  df<-read.table(file=file,header=FALSE,sep = ",", na.strings = "NULL") 
+  names(df)<-c("date","Open","High","Low","Close")      
+  dl<-split(df,format(as.POSIXct(df$date),'%Y-%m-%d'))     
+  lapply(dl,function(item){            
+   xts(item[-1],order.by = as.POSIXct(item$date)) 
+  }) 
+  } 

bekomme ich diesen Fehler:

Error: unexpected '}' in: 
"+   xts(item[-1],order.by = as.POSIXct(item$date)) 
+  }" 
> +  } 
Error: unexpected '}' in "+  }" 

Answer 1

Hier ist eine Syntax, die nicht brechen sollte. Es sieht so aus, als würden Sie "+" - Zeichen von woanders einfügen und das verursacht das Problem.

read <- function(file) { 
    df <- read.table(file=file, header=FALSE, sep = ",", na.strings = "NULL") 
    names(df) <- c("date","Open","High","Low","Close") 
    dl <- split(df, format(as.POSIXct(df$date), '%Y-%m-%d')) 
    lapply(dl, function(item){ xts(item[-1], order.by = as.POSIXct(item$date))}) 
}