---
title: "Example 8: Title Header"
output: rmarkdown::html_vignette
vignette: >
  %\VignetteIndexEntry{Example 8: Title Header}
  %\VignetteEngine{knitr::rmarkdown}
  %\VignetteEncoding{UTF-8}
---

```{r setup, include = FALSE}
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)
```

### Table with a Title Header

A title header is a special type of title block.  The title header displays
titles on the left side, and header information on the right side.  The 
title header can be defined with the `title_header()` function.  This style of 
header is preferred by some organizations.

```{r eval=FALSE, echo=TRUE} 
library(reporter)

# Create temp file name
tmp <- file.path(tempdir(), "example8.txt")

# Create the report
rpt <- create_report(tmp, orientation = "portrait") %>% 
  title_header("Listing 4.0", "MTCARS Data Listing with Title Header", 
               right = c("Page [pg] of [tpg]",  "Study: Cars")) %>% 
  add_content(create_table(mtcars[1:10, ])) %>% 
  footnotes("* Motor Trend, 1974")

# Write the report
write_report(rpt)

# Send report to console for viewing
writeLines(readLines(tmp, encoding = "UTF-8"))

# Listing 4.0                                                        Page 1 of 1
# MTCARS Data Listing with Title Header                              Study: Cars
# 
#             mpg cyl   disp   hp  drat     wt   qsec vs am gear carb
#           ---------------------------------------------------------
#              21   6    160  110   3.9   2.62  16.46  0  1    4    4
#              21   6    160  110   3.9  2.875  17.02  0  1    4    4
#            22.8   4    108   93  3.85   2.32  18.61  1  1    4    1
#            21.4   6    258  110  3.08  3.215  19.44  1  0    3    1
#            18.7   8    360  175  3.15   3.44  17.02  0  0    3    2
#            18.1   6    225  105  2.76   3.46  20.22  1  0    3    1
#            14.3   8    360  245  3.21   3.57  15.84  0  0    3    4
#            24.4   4  146.7   62  3.69   3.19     20  1  0    4    2
#            22.8   4  140.8   95  3.92   3.15   22.9  1  0    4    2
#            19.2   6  167.6  123  3.92   3.44   18.3  1  0    4    4
# 
# ...
# 
# * Motor Trend, 1974
```

Next: [Example 9: RTF, PDF, and HTML](reporter-rtf.html)
