Popravek radarja za nijz

admin/survey/modules/mod_NIJZ/R/Nijz.R

@@ -248,6 +248,11 @@ data <- read.csv2(
 data <-
   subset(data,
          !is.na(data$V2) | data$V2 < 0)
+
+# Because we will reverse the order
+# client wopudl liek to have
+# Label 1 at 12.00 in plot
+data <- rbind( data[-1, ], data[1, ])
 #--------------------------- // READ DATA // ------------------------#
 
 
@@ -264,7 +269,7 @@ mydf <-
 # Add names which will be displayed as labels in
 # chart and also their means in parentheses
 # Deljenje besed zaradi preglednosti
-labels <- gsub('(.{1,20})(\\s|$)', '\\1\n',  data$V1)
+labels <- gsub('(.{1,18})(\\s|$)', '\\1\n',  data$V1)
 colnames(mydf) <- labels
 
 # Nastavitve fonta na željo naročnika