More stringsAsFactors fun
This commit is contained in:
@@ -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")
|
||||
|
||||
@@ -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)
|
||||
|
||||
Reference in New Issue
Block a user