Nijz popravki

admin/survey/modules/mod_NIJZ/R/Nijz_report.R

@@ -39,7 +39,7 @@ lxTranslate <- function(x, color = "NE", pisava = TRUE) {
   x <- gsub("%", "\\\\\\\\%", x)
   
   #x <- gsub("…", "\\\\\\\\dots", x)
-  x <- gsub("…", "...", x)
+  x <- gsub("…", "\\\\\\\\ldots", x)
   
   
   # ALI BNARVAMO?
@@ -345,7 +345,7 @@ colnames(mydf) <- labels
 
 #par(col="#004078", font = 2, cex = 1.4)
 
-par(col="#004078", font = 2, cex = 0.8, xpd = TRUE)
+par(col="#004078", font = 2, cex = 1.1, xpd = TRUE)
 # Plot a radar chart 
 radarchart2(
   mydf,
@@ -360,9 +360,9 @@ radarchart2(
   na.itp = FALSE,
   plwd = 3,
   plty = 1,
-  seg = 7,
+  seg = 4,
   axistype = 1,
-  caxislabels = 0:7,
+  caxislabels = 0:4,
   centerzero = TRUE
 )