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

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

Browse Source
This commit is contained in:
Craig Williams
2023-11-29 16:18:48 +00:00
parent cb0b58746f
commit ca4a9b9075
5 changed files with 10 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
DESCRIPTION
View File

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

2
R/list_depends.R
View File

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

5
R/list_imports.R
View File

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

6
R/restore.R
View File

@@ -1,7 +1,7 @@
# Requires activate.R # Requires activate.R
.install_if_missing <- function(packages, installOpts, lockVersion = TRUE, parallel = FALSE) { .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) { if (lockVersion) {
packageMatch <- merge( packageMatch <- merge(
packages, packages,
@@ -77,8 +77,8 @@ restore <- function(totalIsolation = FALSE, installOpts = list(Ncpus = parallel:
simplePackages <- as.data.frame(apply(rbind( simplePackages <- as.data.frame(apply(rbind(
do.call(rbind, requiredPackages$direct), do.call(rbind, requiredPackages$direct),
do.call(rbind, requiredPackages$indirect) do.call(rbind, requiredPackages$indirect)
), 2, unlist)) ), 2, unlist), stringsAsFactors = FALSE)
customPackages <- as.data.frame(do.call(rbind, requiredPackages$custom)) customPackages <- as.data.frame(do.call(rbind, requiredPackages$custom), stringsAsFactors = FALSE)
# corePackages <- as.data.frame(apply(do.call(rbind, lastSnapshot$packages$core), 2, unlist)) # corePackages <- as.data.frame(apply(do.call(rbind, lastSnapshot$packages$core), 2, unlist))

3
R/utils.R
View File

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