Fix logic in check_suggested

Previously this was throwing an error if the package wasn't installed. cc @jimhester
r-lib · Jun 17, 2016 · aaa4b61 · aaa4b61
1 parent b03fdda
commit aaa4b61
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/utils.r b/R/utils.r
@@ -60,9 +60,9 @@ check_suggested <- function(pkg, version = NULL, compare = NA) {
     compare <- dep$compare
   }
 
-  if (!check_dep_version(pkg, version, compare)) {
+  if (!is_installed(pkg) || !check_dep_version(pkg, version, compare)) {
     msg <- paste0(sQuote(pkg),
-      if (version == 0) "" else paste0(" >= ", version),
+      if (is.na(version)) "" else paste0(" >= ", version),
       " must be installed for this functionality.")
 
     if (interactive()) {