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

Nijz presledki: revert nazaj, da se presledki delajo pravilno

Browse Source
This commit is contained in:
Miha 2021-10-22 15:08:18 +02:00
parent 2a580ef221
commit e56579b199
1 changed files with 4 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -40,10 +40,7 @@ lxTranslate <- function(x, color = "NE", pisava = TRUE, pikaklicaj = FALSE) {
#x <- gsub("…", "\\\\\\\\dots", x) #x <- gsub("…", "\\\\\\\\dots", x)
#x <- gsub("…", "", x) #x <- gsub("…", "", x)
# ALI BNARVAMO? # ALI BNARVAMO?
if (color == "DA") { if (color == "DA") {
# Update, Potem pa želi NIJZ, da se prvi odstavek # Update, Potem pa želi NIJZ, da se prvi odstavek
@ -61,13 +58,13 @@ 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 ", fixed = T)[[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[5:length(val)]
# Po drugem odstavku zmanjšamo pisavo na 9 # Po drugem odstavku zmanjšamo pisavo na 9
xsmall <- paste0("\\\\newline \\\\begin{footnotesize}", stringr::str_c(odst, collapse = "\\\\smallskip "), "\\\\end{footnotesize}") xsmall <- paste0("\\\\begin{footnotesize}", stringr::str_c(odst, collapse = "\\\\newline "), "\\\\end{footnotesize}")
# Prvi del # Prvi del
t1 <- stringr::str_c(val[1:4], collapse = "\\\\newline ") t1 <- stringr::str_c(val[1:4], collapse = "\\\\newline ")