remove metadata linux with R

clean_metadata.R

#!/usr/bin/env Rscript
library(stringr)

#scape spaces
escape_spaces = function(x) {
    str_replace_all(x, fixed(" "), "\\ ")
}

#get args
args = commandArgs(trailingOnly=TRUE)

#escaped filename
escaped_filename = escape_spaces(args[1])
cat(escaped_filename)

#clean
#https://unix.stackexchange.com/questions/608593/removing-metadata-from-a-pdf
call1 = str_glue("exiftool -all:all= {escaped_filename}")
system(call1)

#linearize again
call2 = str_glue("qpdf --linearize {escaped_filename} 2{escaped_filename}")
system(call2)

#replace file back to orignal name
call3 = str_glue("mv 2{escaped_filename} {escaped_filename}")
system(call3)