More stringsAsFactors fun

This commit is contained in:
2023-11-29 16:22:43 +00:00
parent ca4a9b9075
commit ffaf7d23c4
2 changed files with 5 additions and 3 deletions

View File

@@ -10,7 +10,8 @@
importsFormat <- data.frame(list(
package_name = unlist(lapply(missingImports$package, format_str, width = 35)),
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")

View File

@@ -27,7 +27,8 @@
version = rep(packages$Version, nDepends),
imports = unlist(lapply(seq_along(packages$Package), function(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 = ifelse(nchar(packages$min_version) == 0, NA_character_, packages$min_version)
@@ -38,7 +39,7 @@
dependsNext <- sort(unique(dependsNext))
if (length(dependsNext) > 0) {
packagesNext <- .list_depends(dependsNext, gen + 1)
packages <- rbind(packages, packagesNext)
packages <- rbind(packages, packagesNext, stringsAsFactors = FALSE)
}
return(packages)