---
output:
html_document:
code_folding: hide
---
```{r, results='asis', warning=FALSE, message=FALSE}
library(summarytools)
data <- INPUTDATAFRAME
print(descr(data), method = 'render', table.classes = 'st-small')
print(dfSummary(data, graph.magnif = 0.75), method = 'render')