Dirty commit to add "stringsAsFactors = FALSE" for earlier versions of R

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: Rpacman
 Type: Package
 Title: Very simple package manager for R
-Version: 1.0.6
+Version: 1.0.7
 Date: 2022-05-31
 Authors@R: person("Craig", "Williams", email = "craig@avsdev.uk", role = c("aut", "cre"))
 URL: https://avsdev.uk/R/Rpacman

R/list_depends.R

@@ -1,7 +1,7 @@
 
 .list_depends <- function(packages, gen) {
   allPackages <- utils::installed.packages()
-  allPackages <- as.data.frame(allPackages)
+  allPackages <- as.data.frame(allPackages, stringsAsFactors = FALSE)
   packages <- allPackages[allPackages$Package %in% packages,]
   packages <- packages[,c("Package", "Version", "Imports", "Depends", "LinkingTo")]
 

R/list_imports.R

@@ -9,11 +9,12 @@ list_imports <- function() {
   packages <- renv::dependencies(progress = FALSE)$Package
   packages <- sort(unique(packages))
   allPackages <- utils::installed.packages()
-  allPackages <- as.data.frame(allPackages)
+  allPackages <- as.data.frame(allPackages, stringsAsFactors = FALSE)
   allPackages <- allPackages[allPackages$Package %in% packages,]
   packages <- data.frame(
     package = allPackages$Package,
-    version = allPackages$Version
+    version = allPackages$Version,
+    stringsAsFactors = FALSE
   )
   return(packages)
 }

R/restore.R

@@ -1,7 +1,7 @@
 # Requires activate.R
 
 .install_if_missing <- function(packages, installOpts, lockVersion = TRUE, parallel = FALSE) {
-  installedPackages <- as.data.frame(utils::installed.packages()[,c("Package","Version")])
+  installedPackages <- as.data.frame(utils::installed.packages()[,c("Package","Version")], stringsAsFactors = FALSE)
   if (lockVersion) {
     packageMatch <- merge(
       packages,
@@ -77,8 +77,8 @@ restore <- function(totalIsolation = FALSE, installOpts = list(Ncpus = parallel:
   simplePackages <- as.data.frame(apply(rbind(
     do.call(rbind, requiredPackages$direct),
     do.call(rbind, requiredPackages$indirect)
-  ), 2, unlist))
-  customPackages <- as.data.frame(do.call(rbind, requiredPackages$custom))
+  ), 2, unlist), stringsAsFactors = FALSE)
+  customPackages <- as.data.frame(do.call(rbind, requiredPackages$custom), stringsAsFactors = FALSE)
 
   # corePackages <- as.data.frame(apply(do.call(rbind, lastSnapshot$packages$core), 2, unlist))
 

R/utils.R

@@ -75,7 +75,8 @@ empty_sources <- function() {
     version = character(0),
     type = character(0),
     src = character(0),
-    ref = character(0)
+    ref = character(0),
+    stringsAsFactors = FALSE
   )
 }