Subsetting data.table Variablen mit demselben Namen wie Spalte

Question

Ich möchte ein data.table mit einer Variablen der Teilmenge, die den gleichen Namen wie die Spalte, die leeds einiger Probleme hat:

dt <- data.table(a=sample(c('a', 'b', 'c'), 20, replace=TRUE), 
       b=sample(c('a', 'b', 'c'), 20, replace=TRUE), 
       c=sample(20), key=c('a', 'b')) 

evn <- environment() 
a <- 'b' 
dt[a == a] 

#Expected Result 
dt[a == 'b'] 

ich über this possible solution kam:

env <- environment() 
dt[a == get('a',env)] 

Aber es ist so unhandlich wie:

this.a = a 
dt[a == this.a] 

so gibt es eine andere elegante Lösung?

Answer 1

Vorerst könnte eine vorübergehende Lösung sein,

`..` <- function (..., .env = globalenv()) 
{ 
    get(deparse(substitute(...)), env = .env) 
} 

..(a) 
## [1] "b" 

dt[a==..(a)] 
## a b c 
## 1: b a 15 
## 2: b a 11 
## 3: b b 8 
## 4: b b 4 
## 5: b c 5 
## 6: b c 12 

Obwohl diese elegant aussieht, warte ich immer noch auf eine robustere Lösung für solche Probleme Umfang.

Herausgegeben nach @ MNEL Vorschlag,

`..` <- function (..., .env = sys.parent(2)) 
{ 
    get(deparse(substitute(...)), env = .env) 
}