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