Defaut AsIs columns to identity.

hadley · hadley · commit 86ed191bb073 · 2016-01-25T16:09:44.000-06:00
Fixes #1518
diff --git a/NAMESPACE b/NAMESPACE
@@ -95,6 +95,7 @@ S3method(print,ggproto_method)
 S3method(print,rel)
 S3method(print,theme)
 S3method(print,uneval)
+S3method(scale_type,AsIs)
 S3method(scale_type,Date)
 S3method(scale_type,POSIXt)
 S3method(scale_type,character)
diff --git a/NEWS.md b/NEWS.md
@@ -1,5 +1,7 @@
 # ggplot2 2.0.0.9000
 
+* The default scale for columns of class "AsIs" is now "identity" (#1518).
+
 * `geom_boxplot()` now understands `outlier.color` (#1455).
 
 * `geom_histgram(bins = n)` now gives a histogram with `n` bins, not `n + 1`
diff --git a/R/scales-.r b/R/scales-.r
@@ -153,6 +153,9 @@ scale_type.default <- function(x) {
   "continuous"
 }
 
+#' @export
+scale_type.AsIs <- function(x) "identity"
+
 #' @export
 scale_type.logical <- function(x) "discrete"
 

Original file line number	Diff line number	Diff line change
`@@ -153,6 +153,9 @@ scale_type.default <- function(x) {`
`153`	`153`	`"continuous"`
`154`	`154`	`}`
`155`	`155`
	`156`	`+#' @export`
	`157`	`+scale_type.AsIs <- function(x) "identity"`
	`158`	`+`
`156`	`159`	`#' @export`
`157`	`160`	`scale_type.logical <- function(x) "discrete"`
`158`	`161`