add1c_y2: Add PowerPoint slide & 1 chart
In nick-moffitt/y2artisan: Shortcuts for mschart and ggplot2

add1c_y2

R Documentation

Add PowerPoint slide & 1 chart

Description

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

## Not run: 
# 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')

## End(Not run)

nick-moffitt/y2artisan documentation built on Aug. 22, 2024, 4:30 a.m.