R/Rpacman
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Tweaked function variable names

Browse Source
This commit is contained in:
Craig Williams
2022-06-16 13:13:18 +01:00
parent 3f6a75ad8b
commit 038b037e90
2 changed files with 12 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
R/list_depends.R
View File

@@ -16,11 +16,11 @@
packages$imports <- gsub(packages$imports, pattern = " \\([^)]*\\)", replacement = "") packages$imports <- gsub(packages$imports, pattern = " \\([^)]*\\)", replacement = "")
packages$generation <- gen packages$generation <- gen
depends_next <- packages$imports[!is.na(packages$imports)] dependsNext <- packages$imports[!is.na(packages$imports)]
depends_next <- sort(unique(depends_next)) dependsNext <- sort(unique(dependsNext))
if (length(depends_next) > 0) { if (length(dependsNext) > 0) {
packages_next <- list_imports(depends_next, gen + 1) packagesNext <- list_imports(dependsNext, gen + 1)
packages <- rbind(packages, packages_next) packages <- rbind(packages, packagesNext)
} }
return(packages) return(packages)

13
R/list_imports.R
View File

@@ -5,13 +5,14 @@
#' @return A data frame with the directly required packages #' @return A data frame with the directly required packages
#' @export #' @export
list_imports <- function() { list_imports <- function() {
packages <- sort(unique(renv::dependencies(progress = FALSE)$Package)) packages <- renv::dependencies(progress = FALSE)$Package
all_packages <- installed.packages() packages <- sort(unique(packages))
all_packages <- as.data.frame(all_packages) allPackages <- installed.packages()
all_packages <- all_packages[all_packages$Package %in% packages,] allPackages <- as.data.frame(allPackages)
allPackages <- allPackages[allPackages$Package %in% packages,]
packages <- data.frame( packages <- data.frame(
package = all_packages$Package, package = allPackages$Package,
version = all_packages$Version version = allPackages$Version
) )
return(packages) return(packages)
} }