Also get deps from current version

Fixes #3

Author: jeroen

rechecktools/R/ci.R

@@ -9,11 +9,12 @@ install_recheck_deps <- function(path = '.', which = 'strong'){
   oldrepos <- enable_all_repos()
   oldtimeout <- options(timeout = 600)
   on.exit(options(c(oldrepos, oldtimeout)), add = TRUE)
-  desc <- read.dcf(file.path(path, 'DESCRIPTION'))
-  pkg <- desc[[1, 'Package']]
+  desc <- as.data.frame(read.dcf(file.path(path, 'DESCRIPTION')))
+  pkg <- desc$Package
   cranrepo <- getOption('repos')['CRAN']
   cran <- utils::available.packages(repos = cranrepo)
-  packages <- c(pkg, tools::package_dependencies(pkg, db = cran, which = which, reverse = TRUE)[[pkg]])
+  crandeps <- tools::package_dependencies(pkg, db = cran, which = which, reverse = TRUE)[[pkg]]
+  packages <- unique(c(desc_deps(desc), crandeps))
   if(grepl("Linux", Sys.info()[['sysname']])){
     preinstall_linux_binaries(packages)
   } else {
@@ -22,3 +23,8 @@ install_recheck_deps <- function(path = '.', which = 'strong'){
     update.packages(oldPkgs = deps, ask = FALSE)
   }
 }
+
+desc_deps <- function(desc){
+  deps <- c(desc$Package, desc$Depends, desc$Imports, desc$LinkingTo, desc$Suggests, desc$Enhances)
+  unique(trimws(sub("\\(.*\\)", "", unlist(strsplit(as.character(deps), ',')))))
+}