Error in 'exif_call()' if 'args' has newlines

I'll submit a PR which should fix this
Minimal reproducible example:

f <- tempfile(fileext = ".pdf")
pdf(f)
grid::grid.text('')
invisible(dev.off())

args <- "-XMP-dc:description=A description\nwith a newline"
exiftoolr::exif_call(args = args, path = f)

Trying perl command: '' --version
Trying perl command: 'perl' --version
Perl found at: 'perl'
Trying exiftool command: '' -ver
Trying exiftool command: 'exiftool' -ver
ExifTool found at: 'exiftool'
Using ExifTool version 12.40

Error: File not found - with a newline
Warning in system2(exiftoolpath, args = args, stdout = stdout) :
  running command ''exiftool' -@ '/tmp/RtmpdZvxKr/args.cmd3bb64c3f3acdbb'' had status 1
[1] "    1 image files updated"                
[2] "    1 files weren't updated due to errors"
attr(,"status")
[1] 1

JoshOBrien / exiftoolr

Error in 'exif_call()' if 'args' has newlines #14