Функция Kable внутри flexdashboard

Question

Я использую приведенный ниже код. Но я не могу увидеть вывод в виде таблицы Kable. Не уверен, что я делаю не так

---
title: "Untitled"
runtime: shiny
output: 
  flexdashboard::flex_dashboard:
    orientation: columns
    vertical_layout: fill
---

```{r setup, include=FALSE}
library(flexdashboard)
library(knitr)
library(kableExtra)

```

Column {data-width=650}
-----------------------------------------------------------------------

### Chart A

```{r}
dt <- mtcars[1:5, 1:6]
kable(dt) %>%
  kable_styling(c("striped", "bordered"))
```