エラー：予期しない '}'は一日中気になります

Question

予期せぬことに対処しようとしていますが、私は一日中}を働かせません。私はこのコード、

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

を実行すると、私はこのエラーを取得：

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

Answer 1

ここで壊すべきではない構文があります。あなたはどこか他の場所の "+"記号を貼り付けているように見えますが、それは問題を引き起こしています。

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