すべての値がNAの場合にのみ、名前付き列を削除します

パッケージを開発していますが、all-NAである他の列を削除せずに、名前付きのall-NA列を削除したいときに問題が発生します。

これはデータフレームの例です。この例では、2つのすべてNAの列があり、これは予想され、正しいものです。

library(tidyverse)

df <- tribble(
  ~a,       ~b,    ~c,         ~d, ~AR, ~BR,
  1L, "animal", "dog",         NA,  NA,  NA,
  2L, "animal", "cat",         NA,  NA,  NA,
  3L, "animal", "rat",         NA,  NA,  NA,
  4L,  "plant", "oak", "carvalho",  NA,  NA
) %>% 
  mutate_if(is.logical, as.character)

df
#> # A tibble: 4 x 6
#>       a b      c     d        AR    BR   
#>   <int> <chr>  <chr> <chr>    <chr> <chr>
#> 1     1 animal dog   <NA>     <NA>  <NA> 
#> 2     2 animal cat   <NA>     <NA>  <NA> 
#> 3     3 animal rat   <NA>     <NA>  <NA> 
#> 4     4 plant  oak   carvalho <NA>  <NA>

^{reprexパッケージ（v0.3.0）によって2020-02-06に作成されました}

ただし、b動物のみを表示するように列をフィルタリングするとします。そのケースでは、3すべて-NAの列を持っているでしょう：d、ARとBR。

df %>% 
  filter(b == "animal")

df
#> # A tibble: 3 x 6
#>       a b      c     d     AR    BR   
#>   <int> <chr>  <chr> <chr> <chr> <chr>
#> 1     1 animal dog   <NA>  <NA>  <NA> 
#> 2     2 animal cat   <NA>  <NA>  <NA> 
#> 3     3 animal rat   <NA>  <NA>  <NA>

^{reprexパッケージ（v0.3.0）によって2020-02-06に作成されました}

私が開発している関数では、上記の場合、dがall-NAの場合、それは削除されますが、他のすべてのNA列は削除されないようにします。したがって、コンテンツが含まれていてもselect(-d)、列が完全に削除されるため、は機能しませんd。

私はすでに、、および-と組み合わせて試しましたがtidyr::drop_na、成功せずに列のみを削除しました。私は、パイプでうまく機能する方法を探しています。私がこれを行う唯一の方法は、パイプフレンドリーではありません。purrr::discarddplyr::select_ifall(is.na())dif(all(is.na(df$d))) df$d <- NULL

編集：

私が期待している結果は、元のdfで実行すると、元のdfとまったく同じdfを返す関数です。

df
#> # A tibble: 4 x 6
#>       a b      c     d        AR    BR   
#>   <int> <chr>  <chr> <chr>    <chr> <chr>
#> 1     1 animal dog   <NA>     <NA>  <NA> 
#> 2     2 animal cat   <NA>     <NA>  <NA> 
#> 3     3 animal rat   <NA>     <NA>  <NA> 
#> 4     4 plant  oak   carvalho <NA>  <NA>

ただし、列dがすべてNAの場合、見返りとして次のことを期待しています。

df
#> # A tibble: 3 x 5
#>       a b      c     AR    BR   
#>   <int> <chr>  <chr> <chr> <chr>
#> 1     1 animal dog   <NA>  <NA> 
#> 2     2 animal cat   <NA>  <NA> 
#> 3     3 animal rat   <NA>  <NA>