158 lines
5.3 KiB
R
158 lines
5.3 KiB
R
# ------------------------- DEFINE FACULTY ID -------------------------------#
|
|
# Opredelimo ID fakultete, ki skrbi za to da se v poročilu (kjer je dogovorjeno) izpiše kratice fakultete,
|
|
# ime fakultete ter izriše logo fakultete.
|
|
# (glej poročilo za izvajalca, ki ga generira R. skripta koda-izvajalec_predmet)
|
|
# ID skrbi tudi, da preberemo ustrezne CSV datoteke za ustrezno Fakulteto.
|
|
# Ko se koda prenese na strežnik ID zakomentiramo, saj ga Peter ne Potrebuje
|
|
ID <- ID
|
|
fakulteta <- ""
|
|
ime.fakultete <- ""
|
|
if (ID == 3000001) {
|
|
# Purpose: Read CSV file which has "FDV" in the end of the file.
|
|
fakulteta <- "PEF"
|
|
# V primeru ko/če ima izvajalec študijsko prasko, se v izpisu za
|
|
# izvajalca ustvari poglavje: ŠTUDIJSKA PRAKSA,
|
|
# kjer se pri izrisu barplotov, namesto izpisa "Povprečje PEF", izpiše: "Prakse PEF"
|
|
studijska.praksa <- "Prakse PEF"
|
|
# na prvi strani PDF poročila pod sliko
|
|
ime.fakultete <- "Pedagoška fakulteta"
|
|
# na prvi strani PDF poročila doda usterzno sliko fakultete
|
|
# (logo uporabimo pri generiranju poročil glej koda-izvajalec_predmet.r)
|
|
logo <- "logo_PEF"
|
|
} else if (ID == 3000004) {
|
|
fakulteta <- "FU"
|
|
studijska.praksa <- "Prakse FU"
|
|
ime.fakultete <- "Fakulteta za upravo"
|
|
logo <- "logo_FU"
|
|
} else if (ID == 3000006) {
|
|
fakulteta <- "FSD"
|
|
studijska.praksa <- "Prakse FSD"
|
|
ime.fakultete <- "Fakulteta za socialno delo"
|
|
logo <- "logo_FSD"
|
|
} else if (ID == 3000009) {
|
|
fakulteta <- "FPP"
|
|
studijska.praksa <- "Prakse FPP"
|
|
ime.fakultete <- "Fakulteta za pomorstvo in promet"
|
|
logo <- "logo_FPP"
|
|
} else if (ID == 3000011) {
|
|
fakulteta <- "ZF"
|
|
studijska.praksa <- "Prakse ZF"
|
|
ime.fakultete <- "Zdravstvena fakulteta"
|
|
logo <- "logo_ZF"
|
|
} else if (ID == 3000018) {
|
|
fakulteta <- "FF"
|
|
studijska.praksa <- "Prakse FF"
|
|
ime.fakultete <- "Filozofska fakulteta"
|
|
logo <- "logo_FF"
|
|
} else if (ID == 3000019) {
|
|
fakulteta <- "EF"
|
|
studijska.praksa <- "Prakse EF"
|
|
ime.fakultete <- "Ekonomska fakulteta"
|
|
logo <- "logo_EF"
|
|
} else if (ID == 3000020) {
|
|
fakulteta <- "PF"
|
|
studijska.praksa <- "Prakse PF"
|
|
ime.fakultete <- "Pravna fakulteta"
|
|
logo <- "logo_PF"
|
|
} else if (ID == 3000021) {
|
|
fakulteta <- "FDV"
|
|
studijska.praksa <- "Prakse FDV"
|
|
ime.fakultete <- "Fakulteta za družbene vede"
|
|
logo <- "logo_FDV"
|
|
# Ustvarimo direktorij, kamor bomo zapisali
|
|
# poročila za članico
|
|
dir.create(paste0("Evalvacija/results/",fakulteta), showWarnings = FALSE)
|
|
# Še folder agregatov
|
|
dir.create(paste0("Evalvacija/results/",fakulteta,"/Agregati"), showWarnings = FALSE)
|
|
} else if (ID == 3000022) {
|
|
fakulteta <- "FSP"
|
|
studijska.praksa <- "Prakse FSP"
|
|
ime.fakultete <- "Fakulteta za šport"
|
|
logo <- "logo_FSP"
|
|
} else if (ID == 3000023) {
|
|
fakulteta <- "FS"
|
|
studijska.praksa <- "Prakse FSTR"
|
|
ime.fakultete <- "Fakulteta za strojništvo"
|
|
logo <- "logo_FSTR"
|
|
} else if (ID == 3000025) {
|
|
fakulteta <- "FA"
|
|
studijska.praksa <- "Prakse FA"
|
|
ime.fakultete <- "Fakulteta za arhitekturo"
|
|
logo <- "logo_FA"
|
|
} else if (ID == 3000026) {
|
|
fakulteta <- "FGG"
|
|
studijska.praksa <- "Prakse FGG"
|
|
ime.fakultete <- "Fakulteta za gradbeništvo in geodezijo"
|
|
logo <- "logo_FGG"
|
|
} else if (ID == 3000027) {
|
|
fakulteta <- "FMF"
|
|
studijska.praksa <- "Prakse FMF"
|
|
ime.fakultete <- "Fakulteta za matematiko in fiziko"
|
|
logo <- "logo_FMF"
|
|
} else if (ID == 3000029) {
|
|
fakulteta <- "NTF"
|
|
studijska.praksa <- "Prakse NTF"
|
|
ime.fakultete <- "Naravoslovnotehniška fakulteta"
|
|
logo <- "logo_NTF"
|
|
} else if (ID == 3000030) {
|
|
fakulteta <- "FKKT"
|
|
studijska.praksa <- "Prakse FKKT"
|
|
ime.fakultete <- "Fakulteta za kemijo in kemijsko tehnologijo"
|
|
logo <- "logo_FKKT"
|
|
} else if (ID == 3000031) {
|
|
fakulteta <- "FFA"
|
|
studijska.praksa <- "Prakse FFARM"
|
|
ime.fakultete <- "Fakulteta za farmacijo"
|
|
logo <- "logo_FFARM"
|
|
} else if (ID == 3000037) {
|
|
fakulteta <- "VF"
|
|
studijska.praksa <- "Prakse VF"
|
|
ime.fakultete <- "Veterinarska fakulteta"
|
|
logo <- "logo_VF"
|
|
} else if (ID == 3000041) {
|
|
fakulteta <- "MF"
|
|
studijska.praksa <- "Prakse MF"
|
|
ime.fakultete <- "Medicinska fakulteta"
|
|
logo <- "logo_MF"
|
|
} else if (ID == 3000042) {
|
|
fakulteta <- "ALUO"
|
|
studijska.praksa <- "Prakse ALUO"
|
|
ime.fakultete <- "Akademija za likovno umetnost in oblikovanje"
|
|
logo <- "logo_ALU"
|
|
} else if (ID == 3000043) {
|
|
fakulteta <- "AG"
|
|
studijska.praksa <- "Prakse AG"
|
|
ime.fakultete <- "Akademija za glasbo"
|
|
logo <- "logo_AG"
|
|
} else if (ID == 3000044) {
|
|
fakulteta <- "AGRFT"
|
|
studijska.praksa <- "Prakse AGRFT"
|
|
ime.fakultete <-
|
|
"Akademija za gledališče, radio, film in televizijo"
|
|
logo <- "logo_AGRFT"
|
|
} else if (ID == 3000050) {
|
|
fakulteta <- "TEOF"
|
|
studijska.praksa <- "Prakse TEOF"
|
|
ime.fakultete <- "Teološka fakulteta"
|
|
logo <- "logo_TEOF"
|
|
} else if (ID == 3000063) {
|
|
fakulteta <- "FRI"
|
|
studijska.praksa <- "Prakse FRI"
|
|
ime.fakultete <- "Fakulteta za računalništvo in informatiko"
|
|
logo <- "logo_FRI"
|
|
} else if (ID == 3000064) {
|
|
fakulteta <- "FE"
|
|
studijska.praksa <- "Prakse FE"
|
|
ime.fakultete <- "Fakulteta za elektrotehniko"
|
|
logo <- "logo_FE"
|
|
} else if (ID == 3000071) {
|
|
fakulteta <- "BF"
|
|
studijska.praksa <- "Prakse BF"
|
|
ime.fakultete <- "Biotehniška fakulteta"
|
|
logo <- "logo_BF"
|
|
} else {
|
|
fakulteta <- ""
|
|
studijska.praksa <- ""
|
|
ime.fakultete <- ""
|
|
}
|
|
#------------------------ //DEFINE FACULTY ID// -----------------------------# |