manuscript.qmd

---
format:
  html:
    toc: true
    toc-location: left
    number-sections: true
    self-contained: true
  docx:
    toc: false
    section-numbers: true
    reference-doc: files/style.docx
    output-file: "manuscript"
editor_options: 
  chunk_output_type: console
execute:
  echo: false
  warning: false
crossref:
  fig-title: Fig.
  fig-prefix: Fig.
---

```{r}
#| label: setup

source("http://inkaverse.com/docs.r")
#> https://docs.google.com/document/d/14GM04tKBOTPZh5OUUY3qQHlpYH5kSRW_YRWuJ6hOgMw/edit#

doc <- inti::gdoc2qmd(file = "manuscript.zip", type = "listfull")
```

```{r}
#| results: 'asis'

rticle <- knitr::knit_child(doc, quiet = TRUE)
cat(rticle, sep = '\n')
```

```{r}
knitr::knit_exit()
```

# Supplemtary information

```{r}
library(tidyverse)
library(qpdf)

pdf2read <- "LA MOLINA 2013-05-15 (potato wue).pdf" %>% 
  qpdf::pdf_subset(pages = 28:30, output = "JCSB/ESM_2.pdf")
```