link to comment

cpsievert · cpsievert · commit e85ee2439489 · 2020-01-06T17:50:16.000-06:00
diff --git a/R/ggplotly.R b/R/ggplotly.R
@@ -686,6 +686,7 @@ gg2list <- function(p, width = NULL, height = NULL,
       ticktext <- rng[[xy]]$get_labels %()% rng[[paste0(xy, ".labels")]]
       tickvals <- rng[[xy]]$break_positions %()% rng[[paste0(xy, ".major")]]
       
+      # https://github.com/tidyverse/ggplot2/pull/3566#issuecomment-565085809
       ticktext <- ticktext[!is.na(ticktext)]
       tickvals <- tickvals[!is.na(tickvals)]
       
