diff --git a/R/package.R b/R/package.R index a13a3bcf5..1b2954dfc 100644 --- a/R/package.R +++ b/R/package.R @@ -149,7 +149,7 @@ pkg_install_do_plan <- function(proposal) { #' ``` pkg_status <- function(pkg, lib = .libPaths()) { - stopifnot(length(pkg == 1) && is.character(pkg)) + stopifnot(length(pkg) > 0 && is.character(pkg)) load_extra("pillar") remote( @@ -208,7 +208,7 @@ pkg_remove_internal <- function(pkg, lib) { #' ``` pkg_deps <- function(pkg, upgrade = TRUE, dependencies = NA) { - stopifnot(length(pkg) == 1 && is.character(pkg)) + stopifnot(length(pkg) > 0 && is.character(pkg)) load_extra("pillar") remote( function(...) { @@ -257,7 +257,7 @@ pkg_deps_internal2 <- function(pkg, upgrade, dependencies) { #' ``` pkg_deps_tree <- function(pkg, upgrade = TRUE, dependencies = NA) { - stopifnot(length(pkg == 1) && is.character(pkg)) + stopifnot(length(pkg) > 0 && is.character(pkg)) ret <- remote( function(...) { get("pkg_deps_tree_internal", asNamespace("pak"))(...)