hrbrmstr / tidyweb Goto Github PK

.onAttach <- function(...) {
  pkgs <- c("curl", "jsonlite", "httr", "xml2", "rvest", "purrr", "dplyr", "stringi", "splashr")

  message(
    cli::rule(left = crayon::bold("Attaching packages"),
              right = paste0("tidyweb ", packageVersion("tidyweb")))
    )

  versions <- sapply(pkgs, packageVersion)
  versions <- sapply(versions, paste, collapse = ".")

  packages <- paste0(
    crayon::green(cli::symbol$tick), " ", crayon::blue(format(pkgs)), " ",
    crayon::col_align(versions, max(crayon::col_nchar(versions)))
    )

  col1 <- seq_len(length(packages) / 2)
  info <- paste0(packages[col1], "     ", packages[-col1])

  message(paste(info, collapse = "\n"))

  tmp <- suppressPackageStartupMessages(
    lapply(pkgs, library, character.only = TRUE, warn.conflicts = FALSE)
  )
  invisible()
}

> devtools::load_all()
Loading tidyweb
── Attaching packages ────────────────────────────────────────────── tidyweb 0.1.1 ──
✔ curl     3.1            ✔ rvest    0.3.2.9000
✔ jsonlite 1.5            ✔ purrr    0.2.4     
✔ httr     1.3.1          ✔ dplyr    0.7.4     
✔ xml2     1.2.0          ✔ stringi  1.1.6     
✔ curl     3.1            ✔ splashr  0.4.0