added greek encoding to pdf options and revert on exit so tests pass …

…on debian environment

NAMESPACE

@@ -118,6 +118,7 @@ importFrom(grDevices,col2rgb)
 importFrom(grDevices,colorRampPalette)
 importFrom(grDevices,graphics.off)
 importFrom(grDevices,pdf)
+importFrom(grDevices,pdf.options)
 importFrom(grDevices,rgb)
 importFrom(graphics,abline)
 importFrom(graphics,arrows)

R/tcplPlot.R

@@ -51,6 +51,7 @@
 #' @importFrom gridExtra marrangeGrob
 #' @importFrom ggplot2 ggsave
 #' @importFrom dplyr %>% all_of pull
+#' @importFrom grDevices pdf.options
 #' @export
 #'
 #' @examples
@@ -61,6 +62,11 @@ tcplPlot <- function(dat = NULL, type = "mc", fld = "m4id", val = NULL, compare.
   #variable binding
   conc_unit <- bmd <- resp <- compare.dat <- lvl <- compare <- NULL
 
+  #set pdf options
+  enc <- pdf.options()$encoding
+  pdf.options(encoding="CP1253.enc")
+  on.exit(pdf.options(encoding = enc))
+
   # Validate vars based on some assumed properties
   validated_vars <- tcplPlotValidate(type = type,flags = flags,output = output,multi = multi,verbose = verbose)
   # take list of validated vars and add them to the function's environment