Отпечатайте честотна таблица на фактор с кабел в rmarkdown

Имам фактор в R, който се състои от нивата a, b и c. Данните се състоят от 2 a, едно b и нито едно c. Искам да получа резултат като този (честота на елементите според нивата):

fac <- factor(c("a", "b", "a"), levels=c("a", "b", "c"))
tbl <- table(fac)
tbl

## fac
## a b c 
## 2 1 0

Това трябва да се отпечата с knitr/kable в хубава html таблица:

library(knitr)
kable(tbl)

Но тук идва грешката:

"Error in dn[[2L]] : subscript out of bounds".

Предполагам, че има проблем с dimnames на таблицата:

attributes(tbl)
## $dim
## [1] 3
## 
## $dimnames
## $dimnames$fac
## [1] "a" "b" "c"
## 
## 
## $class
## [1] "table"

Има ли някаква опция за "ремонт" на dimnames за kable? Просто искам да отпечатам тази "проста" таблица - може би съм останал с нещо лесно?

Използването на "таблица" с фактори е описано тук: http://www.stat.berkeley.edu/~s133/factors.html

Четох много за пакета "pander" през последните дни. Ако отпечатам таблицата с pander, тя работи. Защо? Трябва ли просто да премина към pander?

pander(tbl)