# Example 15: Header and Footer Images

### Create a Report with a Header or Footer Image

The `header_image()` and `footer_image()` functions allow you to insert an image into the report page header or footer. These functions are useful if you want to put a company logo or other identifying graphic into the page header or footer.

To add an image to a report header, first define the header using the `page_header()` function. For the column you want to insert the image, leave the text blank. Then use the “align” parameter of the `header_image()` function to insert the image into the desired column.

Here is an example:

    library(reporter)
    library(ggplot2)

    # Get image path
    dir <- system.file("extdata", package = "reporter")
    ipth <- file.path(dir, "Logo_full.png")

    # create dummy data
    data <- data.frame(
      name=letters[1:5],
      value=sample(seq(4,15),5),
      sd=c(1,0.2,3,2,4)
    )

    # Define Revenue Plot
    p <- ggplot(data) +
      geom_bar( aes(x=name, y=value), stat="identity", fill="maroon", alpha=0.7) +
      geom_errorbar( aes(x=name, ymin=value-sd, ymax=value+sd), width=0.4, colour="orange",
                     alpha=0.9, linewidth=1.3)

    # Create plot object
    plt <- create_plot(p, height = 4.5, width = 6) |>
      titles("Figure 1.0", "Projected Revenue by Quarter", bold = TRUE, font_size = 12)

    # Create report
    rpt <- create_report("./output/myreport.docx", output_type = "DOCX",
                         font = "Arial", font_size = 10) |>
      page_header("",                          # Put nothing in left column
        c("Archytas Solutions\nChicago, IL, 60601"), # Combine right column text into same cell
                  width = c(6, 0, 3)) |>       # Remove middle cell with zero width
      header_image(ipth,                       # Assign image file path
                   height = .75, width = 3.5,  # Set height and width
                   align = "left") |>          # Align to left header column
      add_content(plt) |>
      page_footer(paste0("Date: ", Sys.Date()), right = "Page [pg] of [tpg]")

    # Write report to file
    res <- write_report(rpt)

    # View report
    # file.show(res$path)

And here is the generated report:

Next: More Examples