erikerhardt

---
title:        Title
subtitle:     Subtitle
author:       Erik Erhardt
date:         last-modified # today, now, last-modified
#date-format:  long          # full, long, medium, short, iso,   https://quarto.org/docs/reference/dates.html
date-format:  "MM/DD/YYYY \\ hh:mm:ss A ZZ"
google-scholar:     true
author-title:       Author
affiliation-title:  Affiliation

erikerhardt

quarto titlepages v3.0: Demo of customizing a title page
https://youtu.be/SZ0WJMHGDps

erikerhardt

# https://quarto.org/docs/authoring/tables.html
```{r}
#| label: tbl-example
#| tbl-cap: "Example caption can
#|    continue on the next line"
#| tbl-subcap: 
#|   - "Cars"
#|   - "Pressure"
#| layout-ncol: 2
#| echo: fenced

erikerhardt

# from inline to yaml chunk options
knitr::convert_chunk_header()

# Verbatim engine for instruction
# https://bookdown.org/yihui/rmarkdown-cookbook/verbatim-code-chunks.html

erikerhardt

## Read current files

# Assumed file naming structure is Filename_YYYYMMDD.csv

# list of all files
fn_list_data_raw <- dir("data/")

# filenames to match
fn_dat_list_in <-
  c(

erikerhardt

---
title:        Tables using `gtsummary`
subtitle:     Example workflow for Table 1 (demographics), regression, contingency table, etc.
author:       Erik Erhardt
date:         last-modified # today, now, last-modified
date-format:  long          # full, long, medium, short, iso,   https://quarto.org/docs/reference/dates.html
format:
  html:
    theme:                  litera
    highlight-style:        atom-one

erikerhardt

---
title:        Title
subtitle:     Subtitle
author:       Erik Erhardt
date:         last-modified # today, now, last-modified
date-format:  long          # full, long, medium, short, iso,   https://quarto.org/docs/reference/dates.html
format:
  html:
    theme:                  litera
    highlight-style:        atom-one

erikerhardt

---
title:        Title
subtitle:     Subtitle
description: |
  A qmd quarto template document.
abstract: |
  Document abstract may be somewhat long.
author:
  - name:   Erik Erhardt
    url:    https://StatAcumen.com/about

erikerhardt

https://cran.r-project.org/web/packages/dplyr/vignettes/programming.html

# let var_xs and var_name_y be character strings with variable names, then:
geom_point(
  data = dat_cont
, aes(x = !!rlang::sym(var_xs), y = !!rlang::sym(var_name_y))
, alpha = geom_point_alpha
)

erikerhardt

# path
path_original <- setwd(path)
on.exit(setwd(path_original), add = TRUE)


## Example error capture

    # First check if effect is involved in interactions
      check_message <-
        e_message_capture(