> source('testcase.R')
Error in str2expression(x) : <text>:2:5: unexpected symbol
1: ame10, someReallyLongVariableName11, someReallyLongVariableName12, someReallyLongVariableName13, someReallyLongVariableName14, someReallyLongVariableName15, someReallyLongVariableName16, someR
2:     someReallyLongVariableName18
       ^
In addition: Warning message:
Using formula(x) is deprecated when x is a character vector of length > 1.
  Consider formula(paste(x, collapse = " ")) instead. 
> traceback()
9: str2expression(x)
8: formula.character(object, env = baseenv())
7: formula(object, env = baseenv())
6: as.formula(paste(deparseb(formula[[2L]]), "~", deparseb(errorterm[[2L]]), 
       if (!intercept) "- 1"), env = environment(formula))
5: aov(model, data) at testcase.R#9
4: eval(ei, envir)
3: eval(ei, envir)
2: withVisible(eval(ei, envir))
1: source("testcase.R")