R/add4c_y2.R

In nick-moffitt/y2artisan: Shortcuts for mschart and ggplot2

#### Add 4 Charts ####
### Description
#' Add 4 charts to PowerPoint slide
#'
#' This function adds 4 charts/tables/other objects to a PowerPoint slide. The charts are automatically added to the last slide of the PP object in R. For this function to work, you need a powerpoint object saved into R called "doc"
#' @param name The name of the chart/table/other object to be added to a new PowerPoint slide.
#' @param position Position options: "topright"; "bottomright"; "topleft"; "bottomleft"; "left"; "centerleft"; "centerright"; "right". The chart layout can either be left-centerleft-centerright-right OR topleft-bottomleft-topright-bottomright.
#' @param label_first_only DEFAULT = FALSE; Set to TRUE if for a series of left-to-right charts where only the first chart has axis labels. Changing this setting to T in this case will slightly adjut positioning for equally sized graphs
#' @keywords chart
#' @export
#' @examples
#' \dontrun{
#' # First create a chart that you can add into a powerpoint object
#' frequencies <- mtcars %>%
#'   y2clerk::freqs(carb) %>%
#'   orderlabel::order_label(inherent_order_label = TRUE)
#' color_settings <- list('blue')
#' text_settings<- list('result' = officer::fp_text(font.size = 20))
#' chart_name <- 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 <- add1s_y2()
#' doc <- add4c_y2(chart_name, 'topright')
#' doc <- add4c_y2(chart_name, 'bottomright')
#' doc <- add4c_y2(chart_name, 'topleft')
#' doc <- add4c_y2(chart_name, 'bottomleft')
#'
#' doc <- add1s_y2()
#' doc <- add4c_y2(chart_name, 'left')
#' doc <- add4c_y2(chart_name, 'centerleft')
#' doc <- add4c_y2(chart_name, 'centerright')
#' doc <- add4c_y2(chart_name, 'right')
#'
#' print(doc, '~/Desktop/test.pptx')
#' }


### Function
add4c_y2 <- function(
  name,
  position,
  label_first_only = FALSE
) {
  if (label_first_only == FALSE) {
    officer::ph_with(
      doc,
      value = name,
      location = officer::ph_location(
        left = dplyr::case_when(
          position == 'topright' ~ 6.625,
          position == 'bottomright' ~ 6.625,
          position == 'topleft' ~ .5,
          position == 'bottomleft' ~ .5,
          position == 'left' ~ .0,
          position == 'centerleft' ~ 3.25,
          position == 'centerright' ~ 6.625,
          position == 'right' ~ 9.75
        ),
        top = dplyr::case_when(
          position == 'topright' ~ 1.8,
          position == 'bottomright' ~ 4.375,
          position == 'topleft' ~ 1.8,
          position == 'bottomleft' ~ 4.375,
          position == 'left' ~ 1.8,
          position == 'centerleft' ~ 1.8,
          position == 'centerright' ~ 1.8,
          position == 'right' ~ 1.8
        ),
        height = dplyr::case_when(
          position == 'topright' ~ 3,
          position == 'bottomright' ~ 3,
          position == 'topleft' ~ 3,
          position == 'bottomleft' ~ 3,
          position == 'left' ~ 5.6,
          position == 'centerleft' ~ 5.6,
          position == 'centerright' ~ 5.6,
          position == 'right' ~ 5.6
        ),
        width = dplyr::case_when(
          position == 'topright' ~ 6.125,
          position == 'bottomright' ~ 6.125,
          position == 'topleft' ~ 6.125,
          position == 'bottomleft' ~ 6.125,
          position == 'left' ~ 3.5,
          position == 'centerleft' ~ 3.5,
          position == 'centerright' ~ 3.5,
          position == 'right' ~ 3.5
        )
      )
    )
  } else { #label_first == T
    officer::ph_with(
      doc,
      value = name,
      location = officer::ph_location(
        left = dplyr::case_when(
          position == 'topright' ~ 7.875,
          position == 'bottomright' ~ 7.875,
          position == 'topleft' ~ 0.5,
          position == 'bottomleft' ~ 0.5,
          position == 'left' ~ 0,
          position == 'centerleft' ~ 4.75,
          position == 'centerright' ~ 7.5,
          position == 'right' ~ 10.25
        ),
        top = dplyr::case_when(
          position == 'topright' ~ 1.8,
          position == 'bottomright' ~ 4.375,
          position == 'topleft' ~ 1.8,
          position == 'bottomleft' ~ 4.375,
          position == 'left' ~ 1.8,
          position == 'centerleft' ~ 1.8,
          position == 'centerright' ~ 1.8,
          position == 'right' ~ 1.8
        ),
        height = dplyr::case_when(
          position == 'topright' ~ 3,
          position == 'bottomright' ~ 3,
          position == 'topleft' ~ 3,
          position == 'bottomleft' ~ 3,
          position == 'left' ~ 5.6,
          position == 'centerleft' ~ 5.6,
          position == 'centerright' ~ 5.6,
          position == 'right' ~ 5.6
        ),
        width = dplyr::case_when(
          position == 'topright' ~ 4.75,
          position == 'bottomright' ~ 4.75,
          position == 'topleft' ~ 7.25,
          position == 'bottomleft' ~ 7.25,
          position == 'left' ~ 5,
          position == 'centerleft' ~ 3,
          position == 'centerright' ~ 3,
          position == 'right' ~ 3
        )
      )
    )
  }
}