R/notice_new_rpkg.R

In Cucurbitaceae/pumpkin.seeds: Integrate Awesome R Package and Web Services

#' Notice new released r-packages.
#'
#' @import Hmisc
#' @import magrittr
#' @importFrom dplyr filter
#' @importFrom gmailr gmail_auth
#' @importFrom gmailr mime
#' @importFrom gmailr send_message
#' @importFrom knitr kable
#' @importFrom lubridate today
#' @importFrom rvest html_node
#' @importFrom rvest html_table
#' @importFrom xml2 read_html
#' @param id character. the client_id to use for authentication
#' @param secret character. the client secret to use for authentication
#' @param address2sent character. received e-mail address
#' @param address_from character. ex. Uryu Shinya <suika1127@gmail.com>
#' @param path2auth path to .httr-oauth
#' @name notice_new_rpkg
#' @examples 
#' \dontrun{
#' notice_new_rpkg(id           = Sys.getenv("GMAIL_TOKEN"),
#'                 secret       = Sys.getenv("GMAIL_SECRET")
#'                 address2sent = "u_suika.30700@m.evernote.com",
#'                 address_from = "Uryu Shinya <suika1127@gmail.com>")
#' }
#' @export
notice_new_rpkg <-
  function(id = Sys.getenv("GMAIL_TOKEN"),
           secret = Sys.getenv("GMAIL_SECRET"),
           address2sent     = "<address_to_sent>",
           address_from     = "<address_from>",
           path2auth        = ".httr-oauth") {
    # Flag) Exit authorize files?
    if (!file.exists(path2auth)) {
      stop("Try gmail_auth() to create your .httr-oauth file.", call. = FALSE)
    } else {
      gmailr::gmail_auth(
        id = Sys.getenv("GMAIL_TOKEN"),
        secret = Sys.getenv("GMAIL_SECRET"),
        scope = "compose"
      )
      
      available_list <-
        installed.packages() %>% as.data.frame(stringsAsFactors = FALSE) %$% Package
      df_new_pkg <-
        xml2::read_html("https://cran.r-project.org/web/packages/available_packages_by_date.html") %>%
        rvest::html_node(., css = "table") %>%
        rvest::html_table() %>%
        dplyr::filter(
          Date == lubridate::today(tzone = "Asia/Tokyo") - 1,
          Hmisc::`%nin%`(Package, available_list)
        )
      
      if (!nrow(df_new_pkg) == 0) {
        gmailr::mime(
          To      = address2sent,
          From    = address_from,
          attr    = list(
            content_type = "text/html",
            charset = "utf-8",
            encoding = "base64"
          ),
          Subject = paste0(
            "There are new released R Packages! (",
            lubridate::today(tzone = "Asia/Tokyo"),
            ") #R: package"
          ),
          body    = paste(
            knitr::kable(df_new_pkg, format = "html"),
            paste0(
              "install.packages(pkgs = ",
              deparse(
                df_new_pkg$Package,
                control = "all",
                width.cutoff = 500L
              ) ,
              ")"
            ),
            sep = "<br>"
          )
        ) %>%
          gmailr::send_message()
        install.packages(pkgs = df_new_pkg$Package)
        message("Success :)")
      } else {
        message("There are not find will be install packages.")
      }
    }
  }