无法将purrr样式的lambda函数与`select()`(dplyr 1.0.0开发程序）一起使用

Question

（我目前使用的是dplyr 1.0.0的开发版本）

在dplyr 1.1.0中，across()应该取代所有限定范围的谓词。但是，当我尝试使用select()的purrr样式函数时，就像使用select_if()一样，它会出现错误，我找到的唯一解决办法是使用替换的select_if()。

library(dplyr)
#> 
#> Attaching package: 'dplyr'
#> The following objects are masked from 'package:stats':
#> 
#>     filter, lag
#> The following objects are masked from 'package:base':
#> 
#>     intersect, setdiff, setequal, union

df <- tibble(x = c(1,2,3), y = c(4,5,NA), 
             z = c(NA, NA, NA), a = c("1", "2", "3"))

select(df, is.numeric | contains("a"))
#> # A tibble: 3 x 3
#>       x     y a    
#>   <dbl> <dbl> <chr>
#> 1     1     4 1    
#> 2     2     5 2    
#> 3     3    NA 3

select(df, ~!all(is.na(.)))
#> Error: Must subset columns with a valid subscript vector.
#> x Subscript has the wrong type `formula`.
#> ℹ It must be numeric or character.

select_if(df, ~!all(is.na(.)))
#> # A tibble: 3 x 3
#>       x     y a    
#>   <dbl> <dbl> <chr>
#> 1     1     4 1    
#> 2     2     5 2    
#> 3     3    NA 3

^{由reprex包(v0.3.0)在2020-04-17创建}

Answer 1

我们可以在select上传递一个常规的匿名函数

library(dplyr)
select(df, function(x) !all(is.na(x)))
# A tibble: 3 x 3
#     x     y a    
#  <dbl> <dbl> <chr>
#1     1     4 1    
#2     2     5 2    
#3     3    NA 3