kwb-r / pkgmeta Goto Github PK

get_recursive_pkg_dependencies <-
  function(pkgs,
           library_path = .libPaths(),
           dbg = TRUE) {
    pkgs_installed <-
      pkgs[pkgs %in% rownames(installed.packages(lib.loc = library_path))]
    
    setNames(lapply(pkgs_installed, function(pkg) {
      kwb.utils::catAndRun(
        sprintf("Getting recursive dependencies for '%s'", pkg),
        expr = {
          packrat:::recursivePackageDependencies(pkg,
                                                 lib.loc = library_path)
        },
        dbg = dbg
      )
    }),
    nm = pkgs_installed)
    
  }


get_pkg_dependencies <-
  function(pkgs,
           library_path = .libPaths(),
           dbg = TRUE) {
    pkgs_installed <-
      pkgs[pkgs %in% rownames(installed.packages(lib.loc = library_path))]
    
    setNames(lapply(pkgs_installed, function(pkg) {
      kwb.utils::catAndRun(
        sprintf("Getting dependencies for '%s'", pkg),
        expr = {
          packrat:::getPackageDependencies(pkg, lib.loc = library_path)
        },
        dbg = dbg
      )
    }),
    nm = pkgs_installed)
    
  }



###############################################################################
### Define Function for Installing KWB-R GitHub Packages
###############################################################################

install_kwb_github_packages <- function(pkgs_kwb,
                                        dependencies = TRUE,
                                        ...) {
  pkgs_kwb_github <- sprintf("KWB-R/%s", pkgs_kwb)
  
  sapply(
    pkgs_kwb_github,
    FUN = function(gh_repo) {
      try(remotes::install_github(repo = gh_repo,
                                  dependencies = dependencies,
                                  ...))
    }
  )
}


###############################################################################
### Use the Install Function For KWB-R Packages 
###############################################################################


pkgs <- pkgmeta::get_github_packages()


install_kwb_github_packages(pkgs_kwb = pkgs$name, upgrade = "always")

pkgs_recursive_dependencies <- get_recursive_pkg_dependencies(pkgs$name)
pkgs_dependencies <- get_pkg_dependencies(pkgs$name)


deps_df <-  tibble::tibble(package = names(total_deps_per_pkg), 
               n_dependencies = sapply(pkgs_dependencies, length),
               n_recursive_dependencies = sapply(pkgs_recursive_dependencies, length)) %>% 
  dplyr::arrange(dplyr::desc(n_recursive_dependencies))

###############################################################################
### Define Function for Installing KWB-R GitHub Packages
###############################################################################

install_kwb_github_packages <- function(pkgs_kwb,
                                        dependencies = TRUE,
                                        ...) {
  pkgs_kwb_github <- sprintf("KWB-R/%s", pkgs_kwb)
  
  sapply(
    pkgs_kwb_github,
    FUN = function(gh_repo) {
      try(remotes::install_github(repo = gh_repo,
                                  dependencies = dependencies,
                                  ...))
    }
  )
}


###############################################################################
### Use the Install Function For KWB-R Packages for Project BaSaR
###############################################################################


pkgs <- pkgmeta::get_github_packages()


install_kwb_github_packages(pkgs_kwb = pkgs$name, upgrade = "always")

"Error : Failed to install 'kwb.context' from GitHub:\n  (converted from warning) installation of package ‘C:/Users/mrustl.KWB/AppData/Local/Temp/Rtmpof8Wpw/file2ee47967418/kwb.context_0.1.tar.gz’ had non-zero exit status\n" 

"Error : Failed to install 'kwb.furain' from GitHub:\n  (converted from warning) packages ‘kwb.gocr’, ‘kwb.iview’, ‘magickx’ are not available (for R version 3.6.1)\n" 

"Error : Failed to install 'kwb.kuras' from GitHub:\n  (converted from warning) installation of package ‘C:/Users/mrustl.KWB/AppData/Local/Temp/Rtmpof8Wpw/file2ee44fe226b5/kwb.kuras_0.0.99.tar.gz’ had non-zero exit status\n" 

pkgs <- pkgmeta::get_github_packages()

pkgs_codemetar <- withr::with_libpaths(new = "/home/travis/R/Library",
                                       code = {
                                       lapply(pkgs$name,
                                                function(x) {
                           print(glue::glue("Writing codemeta for R package {x}"))
                           codemetar::create_codemeta(pkg = x)})})

── Building articles ───────────────────────────────────────────────────────────
Writing 'articles/index.html'
Reading 'vignettes/analyse-rpackages.Rmd'
Error in if (grepl("github.com\\/.*\\/.*", cm$codeRepository)) { : 
  argument is of length zero
Error in if (grepl("github.com\\/.*\\/.*", cm$codeRepository)) { : 
  argument is of length zero
Calls: <Anonymous> ... build_site -> build_site_external -> <Anonymous> -> get_result
Execution halted
Script failed with status 1