## ----setup, include = FALSE---------------------------------------------------
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)

## ----eval=FALSE, echo=TRUE----------------------------------------------------
# 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)
#