updated create_pptx

create_pptx.R

# modified from https://www.brodrigues.co/blog/2018-10-05-ggplot2_purrr_officer/

create_pptx <- function(plt = last_plot(), path = file.choose()){
  if(!file.exists(path)) {
    out <- read_pptx()
  } else {
    out <- read_pptx(path)
  }
  
  out %>%
    add_slide(layout = "Title and Content", master = "Office Theme") %>%
    ph_with(value = dml(ggobj = plt), location = ph_location_fullsize()) %>%
    print(target = path)
}