dynamicticks = T & faceting

Trying facet_wrap with a categorical y axis and dynamicTicks =TRUE ends in:
Error in tickvals - val : non-numeric argument to binary operator

ggplot is OK, only ggplotly returns the problem

Ideas?

db <- data_frame(
  x = c("a1", "b", "c1", "a2", "b", "c2"),
  Var = c("a", "a", "a", "b", "b", "b"),
  n = c(70, 50, 30, 30, 50, 70)
)
p <- db %>% 
  ggplot(aes(x = reorder(x,n), y = n)) +
  geom_col() +
  coord_flip()  +
  facet_wrap(~Var, scales = "free")
p
ggplotly(p, dynamicTicks = TRUE)

Now, if you wonder why I want to use dynamicTicks in the first place, see this example:

db <- data_frame(
  s = paste0(sample(LETTERS, 2000, replace = T), sample(LETTERS, 2000, replace = T)),
  x = sample(s[1:100], 2000, replace = T)
)

db %>% count(x, sort = T) %>% 
  ggplot(aes(x = reorder(x,n), y = n)) +
    geom_col() +
  coord_flip()

ggplotly(dynamicTicks = TRUE)

首先使用 ggplotly()、dynamicTicks = TRUE、facet_wrap()、分类轴和 coord_flip() 运行报告中的 R 示例。跟踪产生非数值参数错误的刻度处理逻辑。当分面图能够在没有错误的情况下渲染，并且动态刻度能够用于分类轴时，即表示完成。