Rmarkdown和DT：结果不呈现

Question

你知道如何在Rmarkdown中呈现这个吗？

```{r, results='asis'}

library(DT)

obj <- data.frame(B=as.numeric(1:18), 
                  C=as.factor(c("A","B","C")), 
                  stringsAsFactors=FALSE)

obj <- split(obj, obj$C, drop = TRUE)

lapply(obj, function(x) {
   datatable(x,
             filter = 'top', options = list(
             pageLength = 12, autoWidth = TRUE))
                          }
      )

```

DT表在RStudio的查看器中呈现，但不能在.Rmd中使用拆分表..我缺少什么？