Suppress warnings when generating help

Author: wch

R/utilities-help.r

@@ -1,14 +1,15 @@
 aesthetics <- function(x) {
-	req_aes <- x$required_aes
-	def_aes <- names(x$default_aes())
-	def_aes <- setdiff(def_aes, req_aes)
-	if (length(req_aes) == 0){
-		return(sort(names(x$default_aes())))
-	}
-	if (length(def_aes) == 0){
-		return(paste("\\strong{", sort(x$required_aes), "}",sep = ""))
-	}
-	return(c(paste("\\strong{",sort(x$required_aes), "}", sep = ""), sort(def_aes)))
+  req_aes <- x$required_aes
+  def_aes <- names(x$default_aes())
+  def_aes <- setdiff(def_aes, req_aes)
+  if (length(req_aes) == 0){
+    # Suppress warnings which occur when sorting NULL
+    return(suppressWarnings(sort(names(x$default_aes()))))
+  }
+  if (length(def_aes) == 0){
+    return(paste("\\strong{", sort(x$required_aes), "}",sep = ""))
+  }
+  return(c(paste("\\strong{", sort(x$required_aes), "}", sep = ""), sort(def_aes)))
 }
 geom_aesthetics <- function(x) {
   aesthetics(Geom$find(x))
@@ -20,10 +21,10 @@ stat_aesthetics <- function(x) {
 rd_aesthetics <- function(type, name) {
   obj <- get(firstUpper(type))
   aes <- aesthetics(obj$find(name))
-  
-  paste("\\code{", type, "_", name, "} ", 
-    "understands the following aesthetics (required aesthetics are in bold):\n\n", 
+
+  paste("\\code{", type, "_", name, "} ",
+    "understands the following aesthetics (required aesthetics are in bold):\n\n",
     "\\itemize{\n",
     paste("  \\item \\code{", aes, "}", collapse = "\n", sep = ""),
     "\n}\n", sep = "")
-}
+}