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

Evoli (slo, ang): V primeru erorrja generiramo poročilo, kjer izpišemo vzroke le tega.

Browse Source
This commit is contained in:
Miha 2020-12-02 18:34:20 +01:00
parent 3e7e767516
commit 18c8b3dde6
2 changed files with 43 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
admin/survey/modules/mod_EVOLI/R/Evoli_quality_clime_ang.R
View File

@ -77,6 +77,8 @@ data <- subset(data, oddelek_ime != -1)
data <- subset(data, status == 6) data <- subset(data, status == 6)
#--------------------------- //IMPORT DATA// --------------------------# #--------------------------- //IMPORT DATA// --------------------------#
# Preverimo ali oddelki obstajajo v nasprotnem bomo na to opozorili
if(nrow(data) > 0) {
# TEAMS / ODDELKI # # TEAMS / ODDELKI #
#################### ####################
@ -1006,3 +1008,22 @@ setwd(paste(Rdirektorij, "modules/mod_EVOLI/results", sep="/")) # File folder
cat(unlist(tex.izbor), file=paste0("Quality-climate.tex"), sep="\n") # Name of tex file cat(unlist(tex.izbor), file=paste0("Quality-climate.tex"), sep="\n") # Name of tex file
tools::texi2pdf(file=paste0("Quality-climate.tex"), quiet=TRUE, clean=TRUE) # Pdf file tools::texi2pdf(file=paste0("Quality-climate.tex"), quiet=TRUE, clean=TRUE) # Pdf file
setwd(Rdirektorij) setwd(Rdirektorij)
} else {
# Če ni oddelkov to napiši
Rdirektorij <- getwd() # Get working diretory
# Compiling file
tex.izbor <- c(
"\\documentclass{article}
\\begin{document}
Data for department (department name) is missing in the data. Please check!
\\end{document}"
)
setwd(paste(Rdirektorij, "modules/mod_EVOLI/results", sep="/")) # File folder
cat(unlist(tex.izbor), file=paste0("Quality-climate.tex"), sep="\n") # Name of tex file
tools::texi2pdf(file=paste0("Quality-climate.tex"), quiet=TRUE, clean=TRUE) # Pdf file
setwd(Rdirektorij)
}

20
admin/survey/modules/mod_EVOLI/R/Evoli_quality_clime_slo.R
View File

@ -88,6 +88,9 @@ data <- subset(data, status == 6)
#--------------------------- //IMPORT DATA// --------------------------# #--------------------------- //IMPORT DATA// --------------------------#
# Preverimo ali oddelki obstajajo v nasprotnem bomo na to opozorili
if(nrow(data) > 0) {
# TEAMS / ODDELKI # # TEAMS / ODDELKI #
#################### ####################
# Skupine na podlagi katerih se bodo ra\u010Dunale vrednosti in izrisovale v grafih (glej SINTAX SPODAJ) # Skupine na podlagi katerih se bodo ra\u010Dunale vrednosti in izrisovale v grafih (glej SINTAX SPODAJ)
@ -971,5 +974,22 @@ cat(unlist(tex.izbor), file=paste0("Klima-kakovosti.tex"), sep="\n") # Name of
tools::texi2pdf(file=paste0("Klima-kakovosti.tex"), quiet=TRUE, clean=TRUE) # Pdf file tools::texi2pdf(file=paste0("Klima-kakovosti.tex"), quiet=TRUE, clean=TRUE) # Pdf file
setwd(Rdirektorij) setwd(Rdirektorij)
} else {
# Če ni oddelkov to napiši
Rdirektorij <- getwd() # Get working diretory
# Compiling file
tex.izbor <- c(
"\\documentclass{article}
\\begin{document}
V podatkih manjka podatek za oddelek (ime oddelka). Prosim preverite!
\\end{document}"
)
setwd(paste(Rdirektorij, "modules/mod_EVOLI/results", sep="/")) # File folder
cat(unlist(tex.izbor), file=paste0("Quality-climate.tex"), sep="\n") # Name of tex file
tools::texi2pdf(file=paste0("Quality-climate.tex"), quiet=TRUE, clean=TRUE) # Pdf file
setwd(Rdirektorij)
}