当ggvis与数据表一起使用时,我收到"错误:不应该访问此代码"

Question

当我键入以下代码时

library(data.table)
library(ggvis)

age <- as.integer(c(1,4,8,5,4,3,2,4,5,4,3))
disk <- c(3,3,3,3,3,3,3,3,3,3,3)
dt <- data.table(age, disk)
df <- data.frame(age, disk)

dt %>%
  ggvis(x=~age) %>%
  layer_histograms()

df %>%
  ggvis(x=~age) %>%
  layer_histograms()

使用数据框时,会生成直方图.但是,当使用数据表时,我收到错误消息:

Guessing width = 2 # range / 30
Error: This code should not be reached.

没有情节打印.有人可以告诉我为什么数据表输入会产生这个错误吗？

谢谢