SE filter_ by function複数の列を取る

Question

データフレームをフィルタリングして、選択した列に基づいて完全なケースだけを残したいとします。これは、NSE filter()で行うのは簡単です：

library(dplyr) 

dd <- data.frame(
    id = 1:4, 
    var1 = c(1, 2, NA, 4), 
    var2 = c(1, NA, 3, 4), 
    var3 = c(1, NA, NA, NA)) 

dd1 <- dd %>% filter(complete.cases(var1, var2)) 
dd1 
#> id var1 var2 var3 
#> 1 1 1 1 1 
#> 2 4 4 4 NA 

は、しかし、私は私が 引用された名前の列のを渡すことにどのこの操作のSEのバージョンを作成しようとする際に壁にして実行しています。

library(lazyeval) 
filtered_cols <- c("var1", "var2") 

dots <- interp(~complete.cases(x), .values = list(x = filtered_cols)) 

dd2 <- dd %>% filter_(.dots = dots) 
#> Error in eval(substitute(expr), envir, enclos): incorrect length (2), expecting: 4 

str(dots) 
#> Class 'formula' language ~complete.cases(c("var1", "var2")) 
#> ..- attr(*, ".Environment")=<environment: R_GlobalEnv> 

残念ながら、filtered_colsは文字ベクトルとして解析されています。 complete.cases()に渡す複数の列名としてfiltered_colsを処理するには、どうすればinterp()を取得できますか？

Answer 1

は、これは何のためにあるのかuqs()ですが、f_interp()以降を使用する必要があります。

library(lazyeval) 
filtered_cols <- c("var1", "var2") 
filtered_col_names <- lapply(filtered_cols, as.name) 

dots <- f_interp(~complete.cases(uqs(filtered_col_names))) 

dd2 <- dd %>% filter_(.dots = dots)