Style fixes suggested by winston

Author: jimhester

R/limits.r

@@ -47,7 +47,7 @@ limits <- function(lims, var) UseMethod("limits")
 #' @export
 limits.numeric <- function(lims, var) {
   stopifnot(length(lims) == 2)
-  if (sum(is.na(lims)) == 0 &lims[1] > lims[2]) {
+  if (!any(is.na(lims)) && lims[1] > lims[2]) {
     trans <- "reverse"
   } else {
     trans <- "identity"

R/scale-.r

@@ -296,11 +296,16 @@ scale_limits <- function(scale) {
 }
 
 
+#  if scale contains a NULL, use the default scale range
+#  if scale contains a NA, use the default range for that axis, otherwise
+#  use the user defined limit for that axis
 #' @export
 scale_limits.default <- function(scale) {
-  if(!is.null(scale$limits)) 
-    ifelse(!is.na(scale$limits),scale$limits,scale$range$range) 
-  else scale$range$range
+  if(!is.null(scale$limits)) {
+    ifelse(!is.na(scale$limits), scale$limits, scale$range$range)
+  } else {
+    scale$range$range
+  }
 }
 
 # @kohske