---
title: "Untitled"
output:
  bookdown::html_document2:
    theme: readable
---

```{r cool-table, results='asis'}
library("papaja")

my_table <- t(apply(cars, 2, function(x) # Create data
  round(c(Mean = mean(x), SD = sd(x), Min = min(x), Max = max(x)), 2)
))

apa_table(
  my_table
  , align = c("l", rep("r", 3))
  , caption = "A summary table of the cars dataset."
)
```