[datatable-help] eval(eval issue

[Damian Betebenner]

As an update. The issue that seems to be throwing the error is the call to a function "percent_in_category" that has single quoted expressions in the ListExpr:

Browse[1]> ListExpr
expression(quote(as.list(c(median_na(SGP), median_na(SGP_TARGET), percent_in_category(CATCH_UP_KEEP_UP_STATUS, list(c('Catch Up: Yes', 'Keep Up: Yes')), list(c('Catch Up: Yes', 'Catch Up: No', 'Keep Up: Yes', 'Keep Up: No'))), num_non_missing(SGP), percent_in_category(ACHIEVEMENT_LEVEL, list(c('Proficient', 'Advanced')), list(c('Unsatisfactory', 'Partially Proficient', 'Proficient', 'Advanced'))), num_non_missing(ACHIEVEMENT_LEVEL), percent_in_category(ACHIEVEMENT_LEVEL_PRIOR, list(c('Proficient', 'Advanced')), list(c('Unsatisfactory', 'Partially Proficient', 'Proficient', 'Advanced'))), num_non_missing(ACHIEVEMENT_LEVEL_PRIOR)))))

When I isolate in my testing, it gives the same error:

Error during wrapup: invalid 'type' (character) of argument


Anybody know of a workaround for this or a simplification of the approach I'm taking.

thanks,

Damian



Damian Betebenner
Center for Assessment
PO Box 351
Dover, NH   03821-0351

Phone (office): (603) 516-7900
Phone (cell): (857) 234-2474
Fax: (603) 516-7910

dbetebenner at nciea.org<mailto:dbetebenner at nciea.org>
www.nciea.org<http://www.nciea.org/>



From: Damian Betebenner
Sent: Saturday, August 13, 2011 9:05 PM
To: 'datatable-help at lists.r-forge.r-project.org'
Subject: eval(eval issue

All,

A line of code that used to work version 1.6.2 is now throwing an error so I thought I'd see if anyone knows exactly what is going on. The error that I now get is:

Error during wrapup: invalid 'type' (character) of argument

The call that is generating the error is:

tmp <- tmp.dt[, eval(eval(ListExpr)), by=eval(eval(ByExpr))]


It is essentially a

x[,j=ListExpr,by=ByExpr] call but the j is a long of custom functions and the ByExpr is a list of variables in x that changes via a loop.

Currently (what is broken), the ListExpr and ByExpr are created using the following:

      ListExpr <- parse(text=paste("quote(as.list(c(", paste(unlist(tmp.sgp.summaries), collapse=", "),")))",sep=""))
      ByExpr <- parse(text=paste("quote(list(", paste(sgp.groups.to.summarize, collapse=", "), "))", sep=""))

For example, ListExpr is:

Browse[1]> ListExpr
expression(quote(as.list(c(median_na(SGP), median_na(SGP_TARGET), percent_in_category(CATCH_UP_KEEP_UP_STATUS, list(c('Catch Up: Yes', 'Keep Up: Yes')), list(c('Catch Up: Yes', 'Catch Up: No', 'Keep Up: Yes', 'Keep Up: No'))), num_non_missing(SGP), percent_in_category(ACHIEVEMENT_LEVEL, list(c('Proficient', 'Advanced')), list(c('Unsatisfactory', 'Partially Proficient', 'Proficient', 'Advanced'))), num_non_missing(ACHIEVEMENT_LEVEL), percent_in_category(ACHIEVEMENT_LEVEL_PRIOR, list(c('Proficient', 'Advanced')), list(c('Unsatisfactory', 'Partially Proficient', 'Proficient', 'Advanced'))), num_non_missing(ACHIEVEMENT_LEVEL_PRIOR)))))


And ByExpr is:

Browse[1]> ByExpr
expression(quote(list(STATE, CONTENT_AREA, YEAR, GRADE, STATE_ENROLLMENT_STATUS, CATCH_UP_KEEP_UP_STATUS_INITIAL)))


I'm sure this can be simplified.

Any help greatly appreciated,

Damian




Damian Betebenner
Center for Assessment
PO Box 351
Dover, NH   03821-0351

Phone (office): (603) 516-7900
Phone (cell): (857) 234-2474
Fax: (603) 516-7910

dbetebenner at nciea.org<mailto:dbetebenner at nciea.org>
www.nciea.org<http://www.nciea.org/>



-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.r-forge.r-project.org/pipermail/datatable-help/attachments/20110813/923dede0/attachment.htm>