R/yesterday_packages.R

In batata: Managing Packages Removal and Installation

#' Displays the packages installed yesterday
#' @param lib a character vector giving the library directories. Defaults to the first element in .libPaths()
#' @return a character vector
#' @export
#'
#' @examples
#' \dontrun{
#' # Displaying the packages installed yesterday
#' yesterday_packages()
#' }

yesterday_packages <-  function(lib = .libPaths()){


  pack_paths <- fs::dir_ls(lib)

  mod_time <- file.mtime(pack_paths)

  mod_time <- as.Date(lubridate::ymd_hms(mod_time))

  data <- data.frame(pack_paths, mod_time)

  # getting yesterday packages
  pack_yesterday <- data[data$mod_time == Sys.Date() - 1, ]

  # getting the names of the packages (which is the last part of the path)
  pack_names <-  sapply(fs::path_split(pack_yesterday$pack_paths), utils::tail, 1)


  if(length(pack_names) == 0){

    message("No packages installed ...")

  } else {

    return(pack_names)

  }






}