1つの単一の値に基づいてリモートテーブルをフィルタリングする方法は？

Question

%in%を使用してfilter()を実行していますが、dplyrがクエリを変換する方法が正しくないようです。実際、%in%演算子は2つ以上の値で正常に動作しますが、1つの要素だけが存在する場合は正しく動作しません。 私の元のシナリオでは、フィルタリング値は動的なので、私は両方の場合に機能する関数を持っていたいと思います。

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 

私の質問はmultiple selectInput values create unexpected dplyr (postgres) behaviorの複製です。 this issueはよく知られているようです。

Answer 1

いくつかの提案をまとめると、私のシナリオに最適なアプローチはおそらく以下のようになります。 filter()をifのステートメントにネストするのが好きでない理由は、光沢のあるアプリのメニュー項目から複数のfilterがあるということです。したがって、ソースで変数を操作すると、私は多くの型を省くことができます。

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

それとも

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

Answer 2

コードが失敗する理由についての洞察を提供することはできません。しかし、誰かがより良いソリューションを提供できるようになるまで、ここでは「どちらの場合でも機能する機能」を提供する簡単な回避策があります。

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) 
}