74 lines
4.3 KiB
R
74 lines
4.3 KiB
R
# POROÈILA PREDMETOV
|
||
|
||
source("Evalvacija/R/koda-predmet.r")
|
||
|
||
|
||
|
||
#############################
|
||
# /GENERIRANJE tex delov/
|
||
#############################
|
||
#######################################################################################
|
||
# SESTAVLJANJE in KOMPILACIJA .tex datotek
|
||
#######################################################################################
|
||
tex.glava <- scan('Evalvacija/latexkosi/a-glava-predmet.tex', character(0), sep='\n', quiet=TRUE,encoding='UTF-8') #encoding='UTF-8' (ÈŽŠ ji)
|
||
tex.glava <- gsub(pattern='!logo!', replacement = Hmisc::latexTranslate(logo), x = tex.glava) # Logo fakultete
|
||
tex.glava <- gsub(pattern='!ime.fak!', replacement=Hmisc::latexTranslate(ime.fakultete), x=tex.glava) #V naslovnici izpis imena fakultete
|
||
tex.glava <- gsub(pattern='!leto!', replacement=Hmisc::latexTranslate(semester.leto), x=tex.glava) #Izpis imena leta semestra
|
||
tex.glava <- gsub(pattern='!encoding_r!', tolower(gsub("-","",localeToCharset(locale=Sys.getlocale("LC_CTYPE")))), x=tex.glava)
|
||
tex.noga <- scan('Evalvacija/latexkosi/z-noga.tex', character(0), sep='\n', quiet=TRUE, encoding='UTF-8')
|
||
Rdirektorij <- getwd()
|
||
|
||
|
||
# REPORTI PREDMETOV #
|
||
for (predmet in names(predmeti)){
|
||
tex.izvajalci.predmet <- NULL
|
||
predmet.temp <- subset(povprecja.predmeti, predmet.sifra==predmet)
|
||
if (!is.null(part$predmet[[predmet]]$pojasniloPremaloEnot)) { # Ä<>e obstaja pojasnilo da analiza ni narejena zaradi premalo enot
|
||
tex.parti <- part$predmet[[predmet]]$pojasniloPremaloEnot
|
||
} else {
|
||
tex.part.predmet <- c(part$predmet[[predmet]]$cont, "\\newpage", part$predmet[[predmet]]$krediti, "\\newpage",part$predmet[[predmet]]$kompetence1,"\\newpage",
|
||
"\\section{Analiza po programih in letnikih}", part$predmet[[predmet]]$BySmerLetnik, "\\newpage","\\section{Odgovori na odprta vprašanja}", part$predmet[[predmet]]$text)
|
||
|
||
|
||
for (izvajalec in as.character(predmeti[[predmet]]$izvajalci)){
|
||
if (!is.null(part$izvajalec[[izvajalec]][[predmet]]$pojasniloPremaloEnot)) { # Ä<>e obstaja pojasnilo da analiza ni narejena zaradi premalo enot
|
||
tex.part.predmet.izvajalec <- c(part$izvajalec[[izvajalec]][[predmet]]$pojasniloPremaloEnot, "\\newpage")
|
||
tex.part.izvajalecBySmerLetnik <- NULL
|
||
} else {
|
||
tex.part.predmet.izvajalec <- c("\\subsection{Komponente pedagoškega dela}", part$izvajalec[[izvajalec]][[predmet]]$cont, "\\newpage")
|
||
tex.part.izvajalecBySmerLetnik <- c('\\subsection{Analiza po smereh in letnikih}', part$izvajalec[[izvajalec]][[predmet]]$BySmerLetnik)
|
||
}
|
||
tex.naslov.izvajalca <- paste('\\section{', izvajalci[[izvajalec]]$ime, '}', sep='')
|
||
tex.izvajalci.predmet <- c(tex.izvajalci.predmet, tex.naslov.izvajalca, tex.part.predmet.izvajalec, tex.part.izvajalecBySmerLetnik, "\\newpage")
|
||
}
|
||
tex.parti <- c("\\newpage",
|
||
'\\section{Ocene iz ankete PRED in ankete PO izpitu}', tex.part.predmet
|
||
|
||
)
|
||
}
|
||
|
||
tex.glava.predmet <- gsub(pattern='!naslov!', replacement=Hmisc::latexTranslate(gsub('_', '\\_', predmet.temp$ime.predmeta[1], fixed=TRUE)), x=tex.glava)
|
||
if (predmet.temp$STOPNJA[1]==1) {
|
||
stopnjaText <- 'Dodiplomski študij'
|
||
} else if (predmet.temp$STOPNJA[1]==2) {
|
||
stopnjaText <- 'Podiplomski študij'
|
||
} else {stopnjaText <- ''}
|
||
tex.glava.predmet <- gsub(pattern='\\hfillprostorZaStopnjoStudija', replacement=Hmisc::latexTranslate(stopnjaText), tex.glava.predmet, fixed=TRUE)
|
||
if (oblikovanje_izvedbe) {
|
||
tex.glava.predmet <- gsub(pattern='\\hfillprostorZaIzvedbo', replacement=oblikujIzvedbo(predmet.temp$IZVEDBA, predmet.temp$SEMESTER_IZV), tex.glava.predmet, fixed=TRUE)
|
||
}
|
||
|
||
tex.report.predmet <- c(tex.glava.predmet, "\\newpage",
|
||
"\\setlength{\\tabcolsep}{4pt}", part$predmet[[predmet]]$povzetek, part$predmet[[predmet]]$kvantili, "\\newpage", "\\setlength{\\tabcolsep}{6pt}",
|
||
'\\chapter{Podrobne analize}',
|
||
part$predmet[[predmet]]$response,
|
||
tex.parti,"\\newpage",
|
||
tex.noga)
|
||
|
||
cat(tex.report.predmet, file=paste("Evalvacija/results/predmet_", predmet,"_", fakulteta, ".tex", sep=""), sep="\n")
|
||
setwd(paste(Rdirektorij, "Evalvacija/results", sep="/"))
|
||
tools::texi2pdf(file=paste("predmet_", predmet,"_", fakulteta, ".tex", sep=""), quiet=TRUE, clean=TRUE)
|
||
setwd(Rdirektorij)
|
||
}
|
||
# /REPORTI PREDMETOV/ #
|