unexpected symbol in R please see the code

Question

I was trying to write a function to parse and merge some data. But R throws an unexpected symbol error exception. I have tried different ways to solve this issue, still doesn't work. Please help.

see code

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

Error: unexpected symbol in "aggall = function(go,grp){numcols = sapply(go,class) %in% c('integer','numeric') results"

Answer 1

you have your whole function in one physical line.
Therefore, when R tries to parse it, it has no way of knowing when one line ends and the next one begins.

To fix this, either use separate lines or add a semicolon between them.

---

Alternatively, you can have the formatR package do it for you! (pretty awesome package):

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