only store labels if character

Author: tdhock

R/ggplotly.R

@@ -311,7 +311,12 @@ gg2list <- function(p){
     ax.list$title <- if(length(scale.i)){
       sc <- p$scales$scales[[scale.i]]
       trace.order.list[[xy]] <- sc$limits
-      trace.name.map[sc$breaks] <- sc$labels
+      if(is.character(sc$breaks)){
+        if(is.character(sc$labels)){
+          trace.name.map[sc$breaks] <- sc$labels
+        }
+        ##TODO: if(is.function(sc$labels)){
+      }
       if (is.null(sc$breaks)) {
         ax.list$showticklabels <- FALSE
         ax.list$showgrid <- FALSE