may/1KA_F2F
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Popravek radarja za nijz

Browse Source
This commit is contained in:
Peter Hrvatin 2021-05-03 09:34:38 +02:00
parent d5d90bd27b
commit 949e380a34
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
admin/survey/modules/mod_NIJZ/R/Nijz.R
View File

@ -248,6 +248,11 @@ data <- read.csv2(
data <- data <-
subset(data, subset(data,
!is.na(data$V2) | data$V2 < 0) !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 // ------------------------# #--------------------------- // READ DATA // ------------------------#
@ -264,7 +269,7 @@ mydf <-
# Add names which will be displayed as labels in # Add names which will be displayed as labels in
# chart and also their means in parentheses # chart and also their means in parentheses
# Deljenje besed zaradi preglednosti # 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 colnames(mydf) <- labels
# Nastavitve fonta na željo naročnika # Nastavitve fonta na željo naročnika