From 1cc812d69311a1b3f846d0fb160a68a26fe11d65 Mon Sep 17 00:00:00 2001 From: Johannes Ranke Date: Wed, 20 Mar 2019 15:58:34 +0100 Subject: Use shQuote for filename creation in chent$pdf() --- R/chent.R | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'R') diff --git a/R/chent.R b/R/chent.R index f6a8b09..ae23aeb 100644 --- a/R/chent.R +++ b/R/chent.R @@ -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) -- cgit v1.2.1