Rmarkdown threeparttable

gistfile1.txt

---
title: "Test new version of `modelsummary`"
author: "Vincent Arel-Bundock"
date: "2020-05-26"
output: pdf_document
header-includes: 
  - \usepackage{booktabs}
  - \usepackage{threeparttable}
---

```{r, include=FALSE}
remotes::install_github('vincentarelbundock/modelsummary')
```  

```{r}
library(modelsummary)
library(magrittr)
library(kableExtra)

mod <- list()
mod[[1]] <- lm(hp ~ mpg, mtcars)
mod[[2]] <- lm(hp ~ mpg + drat, mtcars)

msummary(mod, 
         title = "Lorem ipsum dolor sit amet, consectetur adipiscing elit. Maecenas est massa, faucibus vel massa a, sagittis vehicula enim. Curabitur sit amet dignissim massa. Curabitur eget diam velit. Suspendisse quis tortor eu ipsum ultricies facilisis. Aliquam dictum lectus ante, non aliquet ex scelerisque ac. Sed pellentesque arcu vitae leo congue, in ornare ex consequat. Morbi ullamcorper quam eget nibh gravida, et posuere est pretium. Phasellus odio nunc, porttitor et efficitur ut") %>%
    add_footnote("Lorem ipsum dolor sit amet, consectetur adipiscing elit. Maecenas est massa, faucibus vel massa a, sagittis vehicula enim. Curabitur sit amet dignissim massa. Curabitur eget diam velit. Suspendisse quis tortor eu ipsum ultricies facilisis. Aliquam dictum lectus ante, non aliquet ex scelerisque ac. Sed pellentesque arcu vitae leo congue, in ornare ex consequat. Morbi ullamcorper quam eget nibh gravida, et posuere est pretium. Phasellus odio nunc, porttitor et efficitur ut", 
         threeparttable=TRUE)
```