Przesyłanie argumentów znaków i ocena

Question

Mam operator logiczny i wartość liczbową, którą chcę przekazać jako pojedynczy element do instrukcji w funkcji (słyszę setki użytkowników R jęczących, nigdy nie robię tego, ale mam sytuację, którą czuję jest w porządku).

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

Jak mogę sprawić, że trzecia linia prace jak:

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

wiem, że to prawdopodobnie eval i parse ale nigdy ich używać tak naprawdę nie rozumiem, jak ich używać tutaj.

Answer 1

Coś

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

Alternatywą jest eval i analizować, jak sugeruje

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

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

exprcall <- parse(text = textcall) 

eval(exprcall) 

Answer 2

Trzeba przekonwertować cały wyraz ciąg znaków, a następnie przekonwertować analizowany tekst do wyrażenia. Na koniec wywołaj funkcję eval() w wyrażeniu.

np

overlap <- "> 2" 

# Convert to string 
exprAsString <- paste0("as.numeric(rowSums(DF[, 1:6]) ", overlap, ")") 

# Convert to expression, using parse 
expr <- as.expression(parse(text=exprAsString)) 

# Then call eval() 
eval(expr) 

Potwierdzenie to działa:

identical(eval(expr), as.numeric(rowSums(DF[, 1:6]) > 2)) 
# [1] TRUE 

Answer 3

Wydaje mi się, że choć rozwiązanie @mnel „s jest dobry, jest to sytuacja, która może zostać rozwiązany poprzez stworzenie fikcyjna funkcja wewnątrz głównej funkcji i użycie ciągu wejściowego (overlap) jako argumentu do modyfikacji body(dummy_function). To może być o wiele czystsze.