aboutsummaryrefslogtreecommitdiff
path: root/R
diff options
context:
space:
mode:
authorJohannes Ranke <jranke@uni-bremen.de>2019-03-20 15:58:34 +0100
committerJohannes Ranke <jranke@uni-bremen.de>2019-03-20 15:58:34 +0100
commit1cc812d69311a1b3f846d0fb160a68a26fe11d65 (patch)
tree9398e567f31c6080879392020fcb2462776b588f /R
parentfe9c6bf06cb89ced0f61015bb24a88990a2c8fe8 (diff)
Use shQuote for filename creation in chent$pdf()
Diffstat (limited to 'R')
-rw-r--r--R/chent.R5
1 files changed, 3 insertions, 2 deletions
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)

Contact - Imprint