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

Popravki razmikov in malo manjša pisava v grafu. NIJZ poročilo

Browse Source
This commit is contained in:
Miha 2021-10-22 14:47:40 +02:00
parent 87d5648b0d
commit 4b78a492d6
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)
}
if (pisava == TRUE) {
val <- strsplit(x, "\\\\newline ")[[1]]
val <- strsplit(x, "\\\\newline ", fixed = T)[[1]]
# val <- val[!c(seq_along(val) %% 2 == 0)]
# Gledamo tretji
odst <- val[4:length(val)]
# 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)
}
@ -354,7 +360,7 @@ colnames(mydf) <- labels
#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
radarchart2(
mydf,