Use lapply() instead of sapply()

pharmaR · Jul 9, 2024 · 5ed31c9 · 5ed31c9
1 parent b469cb7
commit 5ed31c9
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/assess_dependencies.R b/R/assess_dependencies.R
@@ -104,7 +104,7 @@ get_package_dependencies <- function(name, repo){
  ap <- available.packages(repos = repo)
  deps <- ap[rownames(ap)==name, c("LinkingTo","Imports","Depends")]
  deps <- deps[!is.na(deps)]
- deps <- sapply(strsplit(deps, ","), trimws)
+ deps <- lapply(strsplit(deps, ","), trimws)
  deps <- data.frame(package=unlist(deps),
  type=rep(names(deps), sapply(deps, length)),
  stringsAsFactors = FALSE,