diff --git a/admin/survey/modules/mod_NIJZ/R/Nijz_report.R b/admin/survey/modules/mod_NIJZ/R/Nijz_report.R index 69c038070..0e7cd58ba 100644 --- a/admin/survey/modules/mod_NIJZ/R/Nijz_report.R +++ b/admin/survey/modules/mod_NIJZ/R/Nijz_report.R @@ -40,10 +40,7 @@ lxTranslate <- function(x, color = "NE", pisava = TRUE, pikaklicaj = FALSE) { #x <- gsub("…", "\\\\\\\\dots", x) #x <- gsub("…", "", x) - - - - + # ALI BNARVAMO? if (color == "DA") { # 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) } 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)] # Gledamo tretji - odst <- val[4:length(val)] + odst <- val[5:length(val)] # 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 t1 <- stringr::str_c(val[1:4], collapse = "\\\\newline ")