diff options
| author | Johannes Ranke <jranke@uni-bremen.de> | 2019-03-20 15:58:34 +0100 |
|---|---|---|
| committer | Johannes Ranke <jranke@uni-bremen.de> | 2019-03-20 15:58:34 +0100 |
| commit | 1cc812d69311a1b3f846d0fb160a68a26fe11d65 (patch) | |
| tree | 9398e567f31c6080879392020fcb2462776b588f /R | |
| parent | fe9c6bf06cb89ced0f61015bb24a88990a2c8fe8 (diff) | |
Use shQuote for filename creation in chent$pdf()
Diffstat (limited to 'R')
| -rw-r--r-- | R/chent.R | 5 |
1 files changed, 3 insertions, 2 deletions
@@ -194,7 +194,7 @@ chent <- R6Class("chent", PythonInR::pyExec("d2d.DrawMolecule(mol)") PythonInR::pyExec("d2d.FinishDrawing()") self$svg <- PythonInR::pyGet("d2d.GetDrawingText()") - svgfile <- tempfile(fileext = ".svg") + svgfile <- tempfile(fileext = ".svg") psfile <- tempfile(fileext = ".ps") writeLines(self$svg, svgfile) rsvg::rsvg_ps(svgfile, psfile) @@ -383,7 +383,8 @@ chent <- R6Class("chent", plot(self) dev.off() message("Cropping file '", path, "' using pdfcrop") - system(paste("pdfcrop --margin 10", path, path, "> /dev/null")) + bash_path <- shQuote(path) + system(paste("pdfcrop --margin 10", bash_path, bash_path, "> /dev/null")) # Get the height of the MediaBox head <- readLines(path, n = 20, skipNul = TRUE) |