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

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

@ -41,9 +41,6 @@ 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
@ -64,10 +61,10 @@ lxTranslate <- function(x, color = "NE", pisava = TRUE, pikaklicaj = FALSE) {
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 ")