Evoli Quality Clime ang: popravek izpisa šumnikov

admin/survey/modules/mod_EVOLI/R/Evoli_quality_clime_ang.R

@@ -4,6 +4,18 @@
 # Poročilo "KLIMA KAKOVOSTI"
 ################################
 
+#----------------- ENCODING 1KA STREŽNNIK ----------------#
+# Nastavimo encoding za potrebe strežnika
+# Pogosto se na 1KA strežniku pokvarijo šumniki
+# zato šumniki (v PDF poročilu) lokalno delajo
+# na strežniku pa ne
+# Torej v kolikor želimo, da se v angleški različici
+#' izpišemo šumniki je to @NUJNO @POTREBNO!!!
+Sys.setlocale(category = "LC_ALL", locale = "slovenian")
+#--------------- //ENCODING 1KA STREŽNNIK// --------------#
+
+
+
 #----------------------------------------------------#
 # Passing arguments to an R script from command lines
 params <- commandArgs(trailingOnly=TRUE)
@@ -63,6 +75,7 @@ data <-
     sep = ";",
     header = T,
     fill = T,
+    encoding = 'UTF-8',
     stringsAsFactors = FALSE
   )
 if (data[1, 1] == ("Ustreznost") |
@@ -926,6 +939,23 @@ customer <-
     "Dear Customer!",
     paste0("Dear ", data$ime, "!")
   )
+
+# Mali č
+organisation <- gsub("\u010D", "č", organisation, fixed = TRUE)
+# Velik Č
+organisation <- gsub("\u010C", "Č", organisation, fixed = TRUE)
+# Mali ž
+organisation <- gsub("\u017E", "ž", organisation, fixed = TRUE)
+# Velik Ž
+organisation <- gsub("\u017D", "Ž", organisation, fixed = TRUE)
+# Mali š
+organisation <- gsub("\u0161", "š", organisation, fixed = TRUE)
+# Velik Š
+organisation <- gsub("\u0160", "š", organisation, fixed = TRUE)
+# Mali đ
+organisation <- gsub("\u0111", "đ", organisation, fixed = TRUE)
+# Velik đ
+organisation <- gsub("\u0110", "Đ", organisation, fixed = TRUE)
 #--------------------- //ORGANIZATION INFORMATION// ------------------------#