Add rough print method to ScaleContinuous

hadley · hadley · commit 0c8b7e5bbaf6 · 2015-11-09T16:16:54.000-06:00
diff --git a/R/scale-.r b/R/scale-.r
@@ -326,6 +326,14 @@ ScaleContinuous <- ggproto("ScaleContinuous", Scale,
     list(range = range, labels = labels,
          major = major_n, minor = minor_n,
          major_source = major, minor_source = minor)
+  },
+
+  print = function(self, ...) {
+    show_range <- function(x) paste0(formatC(x, digits = 3), collapse = " -- ")
+
+    cat("<", class(self)[[1]], ">\n", sep = "")
+    cat(" Range:  ", show_range(self$range$range), "\n", sep = "")
+    cat(" Limits: ", show_range(self$dimension()), "\n", sep = "")
   }
 )
 

Original file line number	Diff line number	Diff line change
`@@ -326,6 +326,14 @@ ScaleContinuous <- ggproto("ScaleContinuous", Scale,`
`326`	`326`	`list(range = range, labels = labels,`
`327`	`327`	`major = major_n, minor = minor_n,`
`328`	`328`	`major_source = major, minor_source = minor)`
	`329`	`+ },`
	`330`	`+`
	`331`	`+ print = function(self, ...) {`
	`332`	`+ show_range <- function(x) paste0(formatC(x, digits = 3), collapse = " -- ")`
	`333`	`+`
	`334`	`+ cat("<", class(self)[[1]], ">\n", sep = "")`
	`335`	`+ cat(" Range: ", show_range(self$range$range), "\n", sep = "")`
	`336`	`+ cat(" Limits: ", show_range(self$dimension()), "\n", sep = "")`
`329`	`337`	`}`
`330`	`338`	`)`
`331`	`339`