get-missing-data-packages

``` r
library(tidytext)
library(tidyverse)

cran_db <- tools::CRAN_package_db()

cran_tbl <- tibble::as_tibble(cran_db[-65])

cran_tbl_short <- cran_tbl %>%
  select(Package,
         Description)

tidy_desc <- cran_tbl_short %>%
  unnest_tokens(word, Description)

data("stop_words")

cleaned_desc <- tidy_desc %>% anti_join(stop_words)
#> Joining, by = "word"



mda_words <- c("miss",
               "missing",
               "NA",
               "na",
               "impute",
               "imputed",
               "imputes",
               "imputation",
               "imputations",
               "imputing")

miss_pkgs <- cleaned_desc %>% 
  group_by(Package) %>%
  filter(word %in% mda_words) %>%
  ungroup()

n_distinct(miss_pkgs$Package)
#> [1] 274
```

Created on 2018-03-21 by the [reprex package](http://reprex.tidyverse.org) (v0.2.0).