modify printing when limits are a function (#3785)

AliciaSchep · web-flow · commit 6db4368ebc7e · 2020-01-31T15:44:17.000-08:00
Fixes #3468
diff --git a/R/scale-.r b/R/scale-.r
@@ -734,7 +734,11 @@ ScaleContinuous <- ggproto("ScaleContinuous", Scale,
 
     cat("<", class(self)[[1]], ">\n", sep = "")
     cat(" Range:  ", show_range(self$range$range), "\n", sep = "")
-    cat(" Limits: ", show_range(self$dimension()), "\n", sep = "")
+    if (is.function(self$limits)) {
+      cat(" Limits: function()\n")
+    } else {
+      cat(" Limits: ", show_range(self$dimension()), "\n", sep = "")
+    }
   }
 )
 

Original file line number	Diff line number	Diff line change
`@@ -734,7 +734,11 @@ ScaleContinuous <- ggproto("ScaleContinuous", Scale,`
`734`	`734`
`735`	`735`	`cat("<", class(self)[[1]], ">\n", sep = "")`
`736`	`736`	`cat(" Range: ", show_range(self$range$range), "\n", sep = "")`
`737`		`- cat(" Limits: ", show_range(self$dimension()), "\n", sep = "")`
	`737`	`+ if (is.function(self$limits)) {`
	`738`	`+ cat(" Limits: function()\n")`
	`739`	`+ } else {`
	`740`	`+ cat(" Limits: ", show_range(self$dimension()), "\n", sep = "")`
	`741`	`+ }`
`738`	`742`	`}`
`739`	`743`	`)`
`740`	`744`