My custom CSS file for my RMarkdown Documents

my.css

/* This file is primarily concerned with using the full width of the web
   browsers screen; plus some nice fonts that are especially good for 
   code rendering.
*/

div.main-container {
  max-width: none !important;
  max-width: none !important;
  margin-left: 0px !important;
  margin-right: 0px !important;
}


#content{
  background:#fcfcfc;
  height:100%;
  margin-left:300px;
  max-width: none !important;
  min-height:100%;
}

body {
  font-family: "Noto Serif", "serif" !important;
}

code {
    font-family: "JuliaMono", "monospace" !important;
}

X.Rmd

---
title: "..."
author: "..."
date: "`r format(Sys.time(), '%d %B %Y (%X)')`"
output:
  rmdformats::readthedown:
    keep_md: true
    self_contained: false
    toc_depth: 6
    toc_collapsed: no
    df_print: paged
    css: my.css
    lib_dir: libs
    
    includes:
      after_body: disqus.html
    
---


```{r setup, include=FALSE}
options(scipen=1000)
knitr::opts_chunk$set(echo=FALSE, cache=TRUE)

# "Fake" engines, mainly for formatting & code-folding
knitr::knit_engines$set(yaml=function(options) paste("```yaml",paste0(options$code, collapse = "\n"),"```",sep="\n"))

library(pacman)
p_load(dplyr, dbplyr, tidyr)

p_load(magrittr)
p_load(ggplot2, scales, ggrepel)
p_load(purrr)
p_load(DT)
p_load(knitr, pander)
p_load(reticulate)
p_load(lubridate)

source('functions.R')

```

# Connect

```{r connection}
if (!exists("con")) {
  message("Creating new connection")
  con <- ...
  created_connection <- TRUE
} else {
  message("Reusing connection")
}
```



# Take Down

## Disconnect

```{r disconnect, cache=FALSE, echo=TRUE, class.source = "fold-show"}
if (created_connection) {
  dbDisconnect(con)
  rm(con)
}

```

## sessionInfo

```{r echo=FALSE, class.source = "fold-show"}
p_load(sessioninfo)
session_info()
```