1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
|
make_email <- function(to, package) {
name <- gsub(" <.*>", "", to)
body <- glue::glue("
Dear {name},
Your package, {package}, lists the tidyverse in either Depends,
Imports, or Suggests in the DESCRIPTION file. This is a bad idea because,
in short, the tidyverse is a set of packages designed for interactive data
analysis, and it includes a very large number (>80) of direct and indirect
dependencies, most of which your package probably doesn't use.
Instead of depending on the entire tidyverse, please import from, suggest,
or depend on the packages in the tidyverse that you actually use. This
will make your package faster to install and will head off potential
problems down the road.
Thanks!
Hadley
")
get("gm_mime", asNamespace("gmailr"))(
from = "hadley@rstudio.com",
to = to,
subject = glue::glue('{package} and the tidyverse'),
body = body
)
}
tidyverse_dependency_dissuade <- function() {
pkgs <- tools::package_dependencies("tidyverse",
which = c("Depends", "Imports", "Suggests"),
reverse = TRUE
)[[1]]
db <- tools::CRAN_package_db()
maintainers <- db$Maintainer[match(pkgs, db$Package)]
emails <- purrr::map2(maintainers, pkgs, make_email)
purrr::walk(emails, ~ try(get("gm_send_message", asNamespace("gmailr"))(.x)))
}
# gm_auth_configure(path = "path/to/oauth.json")
# tidyverse_dependency_dissuade()
|
