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

More stringsAsFactors fun

Browse Source
This commit is contained in:
Craig Williams
2023-11-29 16:22:43 +00:00
parent ca4a9b9075
commit ffaf7d23c4
2 changed files with 5 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
R/compile_imports.R
View File

@@ -10,7 +10,8 @@
importsFormat <- data.frame(list( importsFormat <- data.frame(list(
package_name = unlist(lapply(missingImports$package, format_str, width = 35)), package_name = unlist(lapply(missingImports$package, format_str, width = 35)),
req_ver = unlist(lapply(missingImports$req_version, format_str, width = 12)), req_ver = unlist(lapply(missingImports$req_version, format_str, width = 12)),
cran_ver = unlist(lapply(missingImports$cran_version, format_str, width = 12)) cran_ver = unlist(lapply(missingImports$cran_version, format_str, width = 12)),
stringsAsFactors = FALSE
)) ))
cat("\n") cat("\n")

5
R/list_depends.R
View File

@@ -27,7 +27,8 @@
version = rep(packages$Version, nDepends), version = rep(packages$Version, nDepends),
imports = unlist(lapply(seq_along(packages$Package), function(idx) { imports = unlist(lapply(seq_along(packages$Package), function(idx) {
c(packages$Imports[[idx]], packages$LinkingTo[[idx]], packages$Depends[[idx]]) c(packages$Imports[[idx]], packages$LinkingTo[[idx]], packages$Depends[[idx]])
})) })),
stringsAsFactors = FALSE
) )
packages$min_version <- gsub(packages$imports, pattern = "[^ ]*( \\([=> ]*([^)]+)\\))?", replacement = "\\2") packages$min_version <- gsub(packages$imports, pattern = "[^ ]*( \\([=> ]*([^)]+)\\))?", replacement = "\\2")
packages$min_version = ifelse(nchar(packages$min_version) == 0, NA_character_, packages$min_version) packages$min_version = ifelse(nchar(packages$min_version) == 0, NA_character_, packages$min_version)
@@ -38,7 +39,7 @@
dependsNext <- sort(unique(dependsNext)) dependsNext <- sort(unique(dependsNext))
if (length(dependsNext) > 0) { if (length(dependsNext) > 0) {
packagesNext <- .list_depends(dependsNext, gen + 1) packagesNext <- .list_depends(dependsNext, gen + 1)
packages <- rbind(packages, packagesNext) packages <- rbind(packages, packagesNext, stringsAsFactors = FALSE)
} }
return(packages) return(packages)