Uzak tablo, tek bir değere göre nasıl filtrelenir?

Question

kullanarak filter() yapıyorum, ancak dplyr çevirisinin yolu yanlış görünüyor. Aslında, %in% operatörü, birden fazla değere sahip olarak iyi çalışır, ancak yalnızca tek bir öğenin mevcut olmadığı zaman olmaz. Orijinal senaryomda filtreleme değerleri dinamiktir, bu yüzden her iki durumda da çalışan bir fonksiyona sahip olmak isterim.

my_db <- src_mysql(dbname = "dplyr", 
        host = "dplyr.csrrinzqubik.us-east-1.rds.amazonaws.com", 
        port = 3306, 
        user = "dplyr", 
        password = "dplyr") 
tbl(my_db, "dplyr") %>% filter(carrier %in% c("UA","AA")) #works 
tbl(my_db, "dplyr") %>% filter(carrier %in% c("UA")) #doesn't work 

Sorum multiple selectInput values create unexpected dplyr (postgres) behavior kopyasıdır. this issue gibi iyi bilinen de

Answer 1

Bazı önerileri bir araya getirdiğimde, senaryo için en iyi yaklaşım muhtemelen aşağıdaki gibi olacaktır. filter()'un if ifadesinde yer almasını istemememin nedeni, parlak bir uygulamanın menü öğelerinden birden fazla filter olmasıdır. Böylece, değişkeni kaynağında manipüle etmek beni çok fazla yazarak kurtarıyor.

a <- c("UA") 
b <- if(length(a)>1) a else c(a,"") 
tbl(my_db, "dplyr") %>% 
    filter(carrier %in% b) 

Veya dplyr ait

a <- c("UA") 
varToFilterFor <- rep(a ,2) 
tbl(my_db, "dplyr") %>% 
     filter(carrier %in% varToFilterFor) 

Answer 2

Kodunuzun neden başarısız olduğuyla ilgili hiçbir bilgi sunamıyorum. Ama birisi daha iyi bir çözüm sunana kadar, burada "her iki durumda da işe yarayan bir işlev" sağlayan basit bir çalışma var.

my.carriers <- c("UA","AA") 
my.carriers <- c("UA") 

if (length(my.carriers)>1) { 
    tbl(my_db, "dplyr") %>% filter(carrier %in% my.carriers) 
} else { 
    tbl(my_db, "dplyr") %>% filter(carrier == my.carriers) 
}