only store scale name if character

tdhock · tdhock · commit fa8ab30229ca · 2015-02-27T18:57:51.000-05:00
diff --git a/R/ggplotly.R b/R/ggplotly.R
@@ -160,7 +160,10 @@ gg2list <- function(p){
         names(ranks) <- br
         misc$breaks[[sc$aesthetics]] <- ranks
       }
-      misc$trans[sc$aesthetics] <- sc$trans$name
+      ## store if this is a reverse scale so we can undo that later.
+      if(is.character(sc$trans$name)){
+        misc$trans[sc$aesthetics] <- sc$trans$name
+      }
     }
     reverse.aes <- names(misc$trans)[misc$trans=="reverse"]
     

Original file line number	Diff line number	Diff line change
`@@ -160,7 +160,10 @@ gg2list <- function(p){`
`160`	`160`	`names(ranks) <- br`
`161`	`161`	`misc$breaks[[sc$aesthetics]] <- ranks`
`162`	`162`	`}`
`163`		`- misc$trans[sc$aesthetics] <- sc$trans$name`
	`163`	`+ ## store if this is a reverse scale so we can undo that later.`
	`164`	`+ if(is.character(sc$trans$name)){`
	`165`	`+ misc$trans[sc$aesthetics] <- sc$trans$name`
	`166`	`+ }`
`164`	`167`	`}`
`165`	`168`	`reverse.aes <- names(misc$trans)[misc$trans=="reverse"]`
`166`	`169`