Use ||, not |, for logical vector of length 1

Author: cpsievert

R/ggplotly.R

@@ -161,8 +161,8 @@ gg2list <- function(p){
   ranges.list <- list()
   for(xy in c("x", "y")){
     use.ranges <-
-      misc$is.continuous[[xy]] |
-      misc$is.date[[xy]] |
+      misc$is.continuous[[xy]] ||
+      misc$is.date[[xy]] ||
       misc$is.datetime[[xy]] 
     range.values <- if(use.ranges){
       range.name <- paste0(xy, ".range")