当ggvis与数据表一起使用时，我接收＆＃34;错误：不应该访问此代码＆＃34;

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.

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

由于