R中的意外符号请参阅代码

Question

我试图编写一个函数来解析和合并一些数据。但是 R 抛出了一个意外的符号错误异常。我尝试了不同的方法来解决这个问题，但仍然不起作用。请帮忙。

查看代码

$aggall = function(df,grp){numcols = sapply(df,class) %in% 
c('integer', 'numeric') result = aggregate(df[,numcols],df[grp],mean) 
 counts = as.data.frame(table(df[grp])) names(counts)[1] = 
 grp merge(counts, result, sort=FALSE)}

错误：“aggall = function(go,grp){numcols = sapply(go,class) %in% c('integer','numeric') results”中出现意外符号

Answer 1

你的全部功能都在一条物理线上。
因此，当R 尝试解析它时，它无法知道一行何时结束，下一行何时开始。

要解决此问题，请使用单独的行或在它们之间添加分号。

---

或者，您可以让formatR 包为您完成！ （非常棒的包）：

install.packages("formatR")
library(formatR)
tidy.source("mySource.R", reindent.space=5)


aggall = function(df, grp) {
     numcols = sapply(df, class) %in% c("integer", "numeric")
     result = aggregate(df[, numcols], df[grp], mean)
     counts = as.data.frame(table(df[grp]))
     names(counts)[1] = grp
     merge(counts, result, sort = FALSE)
}