officer - save document - dont overwrite

Question

Is it possible to add a parameter like overwrite = FALSE when printing rpptx-Objects? I want to avoid to overwrite an possible existing file.

# write a rdocx object in a docx file ----
file <- tempfile(fileext = ".pptx")
doc <- read_pptx()
print(doc, target = file) # <- overwrites an existing file without message

I try do add parameter, but it overwrites existing files without warning or error.

print(doc, target = file, overwrite = FALSE)

Answer 1

You could write a little function around print() that checks if the file exists and stop()s, if it does.

library(officer)

# Define function.
print_no_overwrite <- function(doc, target) {
  if (file.exists(target)) stop("File already exists!")
    print(doc, target)
  }

# Create test.pptx
doc <- read_pptx()
print(doc, target = "test.pptx")

# Fails because file already exists.
print_no_overwrite(doc, "test.pptx")
#> Error in print_no_overwrite(doc, "test.pptx"): File already exists!

# Works because it's a new file name.
print_no_overwrite(doc, "test2.pptx")