Question

I have a logical operator and a numeric value I want to pass as a single element to a statement in a function (I hear hundreds of R users groaning; I never do this but have a situation I feel it’s ok to).

DF <- mtcars
overlap = "> 2"
as.numeric(rowSums(DF[, 1:6]) overlap)

How can I make the third line work like:

as.numeric(rowSums(DF[, 1:6]) > 2)

I know it’s likely eval and parse but never use them so don’t really understand how to use them here.

Answer 1

Something like

Olap <- unlist(strsplit( overlap, " "))
Thresh <- as.numeric(Olap[2])
Comp <- match.fun(Olap[1])
Comp(rowSums(DF[,1:6]), Thresh)

An alternative is eval and parse as you suggested

What <- rowSums( DF[,1:6])

 textcall <- sprintf(" What %s", overlap)

 exprcall <- parse(text = textcall)

 eval( exprcall)