---
msname: MS
smname: SM
subtitle: Supplementary Material
bibliography: [../BB/Ref.bib, ../BB/localRef.bib]
csl: _extensions/inst/tex/elsevier-harvard.csl
format:
  elsevier-html:
    css: _extensions/inst/css/style.css
  docx:
    reference-doc: _extensions/inst/word/MS.docx
  pdf:
    # documentclass: article
    latex-clean: false # to keep aux
    citecolor: blue
    colorlinks: true
    number-sections: false
    sansfont: "Gill Sans"
    papersize: a4paper
    sansfontoptions: 
      - Color=39729E
    mainfont: "Source Sans 3" #| Verdana (fontsize: 11pt) # Source Sans 3 | Times New Roman| Helvetica | PT Sans
    monofont: "JetBrains Mono"
    mathfont: "Cambria Math"
    CJKmainfont: SimHei
    fontsize: 12pt
    keep-md: false
    include-in-header: "./_extensions/inst/tex/header.tex"
    header-includes:
      - \let\oldsection\section
      - \renewcommand{\section}{\clearpage\oldsection}
      # - \usepackage{threeparttable}
      # - \usepackage{fontspec}
      # - \usepackage{endfloat}
      # - \setmainfont{Calibri}
      # - \usepackage[UTF8, scheme=plain]{ctex}
      - \usepackage{float}
      - \usepackage[normalem]{ulem}
      - \usepackage[doublespacing]{setspace}
      - \usepackage{lineno}
      - \linenumbers
filters:
   - latex-environment
   - authors-block
lightbox: auto
commands: [clab]
---


```{r}
#| label: setup
#| include: false
#| cache: false
lang <- "en"
RM <- "F"   # global rendermode, L: load pdata; F: fast load pdf # nolint
isRendering <- isTRUE(getOption("knitr.in.progress"))
require(tidyverse)
require(lubridate)
require(patchwork)
require(drwateR)
rmdify::rmd_init()
biburl <- "https://drc.drwater.net/datapool/public/BB/Ref.bib"
if (!isRendering) { download.file(biburl, destfile = "Ref.bib") }
```

# Supplementary Material {-}

Figures and/or tables are provided below as the supplementary evidences to the main text.


\pagebreak

::: {#sfg-demofigure}

```{r}
#| out-width: 60%
#| lightbox:
#|   group: all

if (!isRendering) {

  mtcars |>
  ggplot(aes(x = wt, y = mpg)) +
    geom_point() +
    labs(x = "Weight", y = "Miles per Gallon") +
    dwfun::theme_sci(3, 3)

  ggsavep("../figures/demofigure.pdf", loadit = FALSE)

} # End of isrendering

ggsavep("../figures/demofigure.pdf", loadit = TRUE)

```

This is demo figure in supplementary material

:::

