频率表基数R与renderTable闪亮

Question

当我在R中运行以下代码时，会得到下表。

df<-data.frame(color=rep(c("red", "blue", "green"), 10), numbers=c(1:5, 2:6, 3:7, 4:8, 5:9, 6:10))
table(df)

当我使用renderTable在Shiny中运行代码时，得到以下内容。我更喜欢像上面那样设置一个表，因为该表占用大量空间并且更难于阅读。尤其是因为我实际上有30个“数字”和7个“颜色”，这将是210个唯一对，而不是30个。我如何获得上表的设置以在Shiny中输出？