R/get_python_package_versions.R

In richelbilderbeek/mhcnuggetsr: Call MHCnuggets

#' Get the version of all Python packages
#' @return a tibble with two columns: (1) \code{package}, the name of the
#' package, for example \code{absl-py}, (2) \code{version}, the version
#' of that package, for example \code{0.9.0}
#' @examples
#' if (rappdirs::app_dir()$os != "win" && is_pip_installed()) {
#'   get_python_package_versions()
#' }
#' @author Richèl J.C. Bilderbeek
#' @export
get_python_package_versions <- function() {
  testthat::expect_true(mhcnuggetsr::is_pip_installed())
  text <- system2(
    reticulate::py_config()$python,
    args = c("-m", "pip", "freeze"),
    stdout = TRUE
  )
  matrix <- stringr::str_match(text, "(.*)(==| @ )(.*)")[, c(2, 4)]
  df <- tibble::as_tibble(matrix, .name_repair = "minimal")
  names(df) <- c("package", "version")
  df
}