x <- read_pptx()
layout_dedupe_ph_labels(x)
file <- system.file("doc_examples", "ph_dupes.pptx", package = "officer")
x <- read_pptx(file)
layout_dedupe_ph_labels(x)
layout_dedupe_ph_labels(x, "rename", print_info = TRUE)
Run the code above in your browser using DataLab