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'）结果中的意外符号”

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