```{r setup, message=FALSE}
# key setups
pacman::p_load(tidyverse)
# captions
library(captioner)
table_nums <- captioner(prefix = "Table")
figure_nums <- captioner(prefix = "Figure")
# for having DIV tags
knitr::knit_hooks$set(class = function(before, options, envir) {
if(before){
sprintf("
", options$class)
}else{
"
"
}
})
# chunk options
knitr::opts_chunk$set(warning = FALSE, message = FALSE)
# path to this file name
if (!interactive()) {
fnamepath <- as.character(sys.call(1))[2]
}
```
# Content
# Source code
File is at `r fnamepath`.
## Source code for this document
```{r ref.label=knitr::all_labels(), echo=TRUE, eval=FALSE}
```
## Complete Rmd code
```{r comment=''}
cat(readLines(fnamepath), sep = '\n')
```