Làm cách nào để lọc bảng từ xa dựa trên một giá trị duy nhất?

Question

Tôi đang thực hiện filter() sử dụng %in% nhưng cách dplyr dịch truy vấn có vẻ không chính xác. Thực tế, toán tử %in% hoạt động tốt với nhiều giá trị, nhưng nó không chỉ khi có một phần tử duy nhất. Trong kịch bản ban đầu của tôi, các giá trị lọc là động, vì vậy tôi muốn có một hàm hoạt động trong cả hai trường hợp.

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 

Câu hỏi của tôi trùng lặp với multiple selectInput values create unexpected dplyr (postgres) behavior. Có vẻ như this issue cũng nổi tiếng quá

Answer 1

Kết hợp một số đề xuất, cách tiếp cận tốt nhất cho kịch bản của tôi có thể là cách tiếp cận bên dưới. Lý do tại sao tôi không thích làm tổ số filter() trong câu hỏi if, là tôi có nhiều mục filter từ các mục menu của ứng dụng sáng bóng. Vì vậy, thao tác biến tại nguồn tiết kiệm cho tôi rất nhiều cách gõ.

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

Hoặc

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

Answer 2

Tôi không thể cung cấp bất kỳ thông tin chi tiết nào về lý do mã của bạn không thành công. Nhưng cho đến khi ai đó có thể cung cấp một giải pháp tốt hơn, đây là một công việc đơn giản xung quanh cung cấp "một chức năng hoạt động trong cả hai trường hợp".

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