Add PowerPoint slide & 1 chart — add1c

This function adds a new PowerPoint slide and fits 1 chart/table/other object onto it. For this function to work, you need a powerpoint object saved into R called "doc"

Usage

add1c_y2(
  name,
  title = "Title",
  commentary = "Commentary",
  footer = "Footer",
  add_slide = TRUE,
  report_style = c("qualtrics", "municipal", "y2"),
  text_boxes = TRUE,
  slide_name = "Blank",
  master_name = "1_Office Theme",
  title_color = NULL,
  commentary_color = NULL,
  footer_color = NULL,
  font_title = NULL,
  font_text = NULL,
  title_bg_color = "#1A497A",
  commentary_bg_color = "#9EBCDB",
  left_start = 0.5,
  top_start = 1.8,
  height = 5.6,
  width = 12.25,
  footer_left = NULL,
  footer_top = NULL,
  footer_width = NULL,
  footer_height = NULL
)

Arguments

name: The name of the chart/table/other object to be added to a new PowerPoint slide.
title: DEFAULT: "Title"; Add a slide title in quotes, automatically formatted to the Default Qualtrics template
commentary: DEFAULT: "Commentary"; Add commentary/desctiption in quotes, automatically formatted to the Default Qualtrics template
footer: DEFAULT: "Footer"; Add a footer in quotes
add_slide: DEFAULT = TRUE; Automatically adds a blank slide for the chart/table/other object to be added onto. If F, no new slide is added
report_style: DEFAULT: "qualtrics"; The report style/template you are using – must be either 'qualtrics', 'municipal', or 'y2'
text_boxes: DEFAULT = FALSE; Automatically adds title, commentary, and footer boxes to the blank slide. Set to F for no text boxes
slide_name: DEFAULT = "Findings / 1 chart"; The name of the type of the PP slide you want added to the PP
master_name: DEFAULT = "Office Theme"; The name of the PP master layout that the slide_name comes from
title_color: DEFAULT: NULL; Color or hexcode for slide title. If no value provided, will be set to black for Qualtrics style reports and white for Municipal style reports
commentary_color: DEFAULT: NULL; Color or hexcode for slide commentary If no value provided, will be set to black for Qualtrics style reports and white for Municipal style reports
footer_color: DEFAULT: NULL; Color or hexcode for slide footer. If no value provided, will be set to black for Qualtrics style reports and white for Municipal style reports
font_title: DEFAULT: NULL; font for slide title. If no value provided, will be set to 'BentonSans Regular' for Qualtrics style reports and 'Flama Medium' for Municipal style reports
font_text: DEFAULT: NULL; font for slide text boxes and footer. If no value provided, will be set to 'BentonSans Regular' for Qualtrics style reports and 'Flama Light' for Municipal style reports
title_bg_color: DEFAULT: '#1A497A; Background color of slide title text box (only used for Municipal style reports)
commentary_bg_color: DEFAULT: '#9EBCDB; Background color of slide commentary text box (only used for Municipal style reports)
left_start: DEFAULT = .5; how far chart will start from left of slide
top_start: DEFAULT = 2; how far chart will start from top of slide
height: DEFAULT = 5; height of chart on slide
width: DEFAULT = 12; width of chart on slide
footer_left: DEFAULT = NULL; how far footer will start from left of slide. If no value provided, defaults to approximately 0.35 for either report style
footer_top: DEFAULT = NULL; how far footer will start from top of slide. If no value provided, defaults to approximately 7 for either report style
footer_width: DEFAULT = NULL; height of footer on slide. If no value provided, defaults to approximately 11.5 for either report style
footer_height: DEFAULT = NULL; width of footer on slide. If no value provided, defaults to approximately 0.5 for either report style

Examples

if (FALSE) { # \dontrun{
# First create a chart that you can add into a powerpoint object
frequencies <- mtcars %>%
  y2clerk::freqs(carb) %>%
  orderlabel::order_label(inherent_order_label = T)
color_settings <- list('blue')
text_settings<- list('result' = officer::fp_text(font.size = 20))
my_chart <- y2artisan::ms_single_y2()

# Then before adding additional slides, charts, or tables onto a powerpoint,
# you must first read a PowerPoint into R
doc <- read_pptx('~/Y2 Analytics Dropbox/Y2 Analytics Team Folder/Projects/
Qualtrics/2021 Template and Resources/Template for mscharts.pptx')

# Now start adding in your charts
doc <- add1c_y2(my_chart)

print(doc, '~/Desktop/test.pptx')
} # }