---
title: "tables"
output: html_document
---

```{r}
library(tidyverse)
x <- data.frame(rep("a", 3), rnorm(3), rnorm(3))
```

```{r}
library(knitr)
x %>% kable(digits = c(0, 2, 0))
```

```{r tbl, results = 'asis'}
library(papaja)
x %>% as.tbl() %>%
  apa_table(digits = c(0, 2, 0),
                escape = T)
```