check/batata.Rcheck/00_pkg_src/batata/R/since_packages.R

In feddelegrand7/batata: Managing Packages Removal and Installation

#' Displays installed packages according to a specific date
#'
#' @param date the date of interest in yyyy-mm-dd format
#' @param position takes three arguments "at", "before" or "after". "at" displays the packages installed at the chosen date, "before" before that date and "after" after that date)
#' @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 today
#' since_packages(date = Sys.Date(), position = "at")
#' }

since_packages <- function(date, position, 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)


  if(position == "at"){

    packs <- data[data$mod_time == as.Date(date), ]


  } else if (position == "before") {

    packs <- data[data$mod_time < as.Date(date), ]


  } else {

    packs <- data[data$mod_time > as.Date(date), ]

  }


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


  if(length(pack_names) == 0){

    message("No packages installed ...")

  } else {

    return(pack_names)

  }




}