combine validation logic

Author: LiNk-NY

R/util.R

@@ -117,8 +117,8 @@ handleMessage <- function(..., indent = 4, exdent = 6)
 # are version specifiers or blank.
 cleanupDependency <- function(input, remove.R = TRUE)
 {
-    if (is.null(input)) return(character(0))
-    if (!nchar(input)) return(character(0))
+    if (is.null(input) || !nchar(input))
+        return(character(0))
     output <- gsub("\\s", "", input)
     raw_nms <- output
     nms <- strsplit(raw_nms, ",")[[1]]