Передача аргумента в subset() и unique()

Question

Я использую пакет phyloseq.

test <- function( ...){

bar <- unique(sampleData[,'pH'])

foo <- subset_samples(phyloseqObject, pH == as.numeric(bar[1]@.Data))
print(foo)

}

test(pH)

Я хочу передать pH в качестве аргумента test() но unique() не примет это как действительное. Я могу передать "рН" test() но subset_samples() не примет это как действительный. Я попытался привести аргумент к нескольким различным типам без удачи.

SORCE для subset_samples:

subset_samples <- function(physeq, ...){
    if( is.null(sample_data(physeq)) ){ 
        cat("Nothing subset. No sample_data in physeq.\n")
        return(physeq)
    } else {
        oldDF <- as(sample_data(physeq), "data.frame")
        newDF <- subset(oldDF, ...)
        if( class(physeq) == "sample_data" ){
            return(sample_data(newDF))
        } else {
            sample_data(physeq) <- sample_data(newDF)
            return(physeq)
        }
    }
}

Answer 1

Основываясь на том, что сказал @desc, мне удалось решить это так:

test <- function(...){

    bar <- unique(sampleData[,...])

    foo <- subset_samples(phyloseqObject, eval(parse(bar@names)) == as.numeric(bar[1]))
    print(foo)

}

test('pH')

Answer 2

Попробуйте это вместо этого:

test=function(x,...){
   bar=unique(mtcars[,x])
   foo=subset(mtcars,mtcars[,x]==bar[1])
   return(foo)
}