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

Merge branch 'master' of https://git.1ka.si/git/1ka

Browse Source
This commit is contained in:
pero1203 2021-10-22 14:48:27 +02:00
commit 9d837528f5
1 changed files with 11 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
admin/survey/modules/mod_NIJZ/R/Nijz_report.R
View File

@ -61,18 +61,24 @@ lxTranslate <- function(x, color = "NE", pisava = TRUE, pikaklicaj = FALSE) {
x <- gsub(obarvajX, obarvajX_1, x, fixed=TRUE) x <- gsub(obarvajX, obarvajX_1, x, fixed=TRUE)
} }
if (pisava == TRUE) { if (pisava == TRUE) {
val <- strsplit(x, "\\\\newline ")[[1]] val <- strsplit(x, "\\\\newline ", fixed = T)[[1]]
# val <- val[!c(seq_along(val) %% 2 == 0)] # val <- val[!c(seq_along(val) %% 2 == 0)]
# Gledamo tretji # Gledamo tretji
odst <- val[4:length(val)] odst <- val[4:length(val)]
# Po drugem odstavku zmanjšamo pisavo na 9 # Po drugem odstavku zmanjšamo pisavo na 9
xsmall <- paste0("\\\\begin{footnotesize}", stringr::str_c(odst, collapse = "\\\\smallskip "), "\\\\end{footnotesize}") xsmall <- paste0("\\\\newline \\\\begin{footnotesize}", stringr::str_c(odst, collapse = "\\\\smallskip "), "\\\\end{footnotesize}")
x <- paste0(stringr::str_c(val[1:4], collapse = "\\\\newline "),xsmall) # Prvi del
t1 <- stringr::str_c(val[1:4], collapse = "\\\\newline ")
#x <- gsub("\\\\\\newline \\\\\\begin{footnotesize} ", "sd", x, fixed = T) if(grepl("\\\\newline", substr(t1, nchar(t1)-10, nchar(t1))) == FALSE) {
t1 <- paste0( t1, "\\\\newline")
}
x <- paste0( t1,xsmall)
} }
return(x) return(x)
} }
@ -354,7 +360,7 @@ colnames(mydf) <- labels
#par(col="#004078", font = 2, cex = 1.4) #par(col="#004078", font = 2, cex = 1.4)
par(col="#004078", font = 2, cex = 1.2, xpd = TRUE) par(col="#004078", font = 2, cex = 1.1, xpd = TRUE)
# Plot a radar chart # Plot a radar chart
radarchart2( radarchart2(
mydf, mydf,