# Example 8: Title Header

### 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.

    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