2 tables in the same row

demo.Rmd

---
output: html_document
---

```{r}
library(tidyverse)
library(kableExtra)
library(knitr)

a <- mpg %>%
  filter(displ > 2) %>%
  head() %>%
  kable("html", caption = "Test 1")

b <- mpg %>%
  filter(model != "a4") %>%
  head() %>%
  kable("html", caption = "Test 2")

shiny::fluidRow(
  shiny::column(6, shiny::HTML(a)),
  shiny::column(6, shiny::HTML(b))
)
```

Thanks, @haouzhu233. It worked perfectly!.
I thought just adding more tables with the column function would add more tables on the same row.