page1.Rmd

# Introduction

Some text ...

Adding a DT table 

```{r}
tags$div(
  DT::renderDataTable(mtcars, filter = list(position = "top", clear = FALSE, plain = TRUE),
    rownames = FALSE, style = "bootstrap",
    options = list(
      dom = "ltip",
      autoWidth = TRUE,
      columnDefs = list(list(className = 'dt-center', targets = "_all")),
      processing = FALSE,
      lengthMenu = c(10, 20, 50),
      pageLength = 10
    )
), style = "width: 800px; margin-left: auto; margin-right: auto;")
```

# A plot

```{r}
dat <- data.frame(x = rnorm(100), y = rnorm(100))
## Note the use of renderPlot ... we are in a shiny app after all
renderPlot({
  ggplot(dat, aes(x = x, y = y)) + geom_point()
}, width = 700, height = 500, res = 144)
```

# Conclusion

Some more text ...

A few emoji ...

😀😀😀

Some special characters ...

&#931;
&#931;
&#931;
&#931;