# Če spreminim encoding v drug jezik (zaradi danskih znakov) je potrebno zakomentirati  
# gsub(pattern='!encoding_r!', tolower(gsub("-","",localeToCharset(locale=Sys.getlocale("LC_CTYPE")))), x=tex.glava) 
# ali pa nastaviti Sys.setlocale na slovenski encoding
Sys.setlocale(category = "LC_ALL", locale = "slovenian")
##Generiranje PDF
library(foreign) # Import csv or sav data
library(stringi)
# Zajem podatkov iz ankete
podatki <- read.csv2("modules/mod_MFDPS/temp/mfdps.csv",sep=";", header=T, fill=T, stringsAsFactors=FALSE,encoding='UTF-8')
if (podatki[1,1]=="Ustreznost") {podatki <- podatki[2:nrow(podatki),]}

# Nepotrebne vrednosti v bazi
junk.komentar <- c(NA,"-1","-2","-3","-4","-5","-97","-98","-99","-","/","\\",".","","-1: Ni odgovoril","-2: Preskok (if)","-3: Prekinjeno")

### SAMO ZA TERTIRANJE ###
# Uporabimo za testiranje, ker delamo za posameznika v datoteki pa imamo dva, najprej izberemo prvo vrstico.
podatki <- podatki[1,]
####


# Znebimo se nepotrebnih vrednosti
for (i in 1:length(podatki)) {
  if (podatki[i] %in% junk.komentar) {
    podatki[i] <- " "  
  } 
}


# ŠTUDIJSKO LETO (spremnljivka SL)
if(podatki$SL!=" ") {
  stud.leto <- podatki$SL
  if (stud.leto==1) {
    stud.leto <- "2016/2017"
  } else if (stud.leto==2){
    stud.leto <- "2017/2018"
  } else if (stud.leto==3){
    stud.leto <- "2018/2019"
  } else if (stud.leto==4){
    stud.leto <- "2019/2020"
  } else if (stud.leto==5){
    stud.leto <- "2020/2021"
  }
} else {stud.leto <- ""}


# Zapišemo vrednosti spremenljivk ankete 1KA
# 1KA ankete
########################
# Stran 1 vprašanje KUKT (DRUGA TABELA V PDF POROČILU)
########################
predavanja <- podatki$KUKTa_1 

vaje <- podatki$KUKTb_1 

druge.oblike.studija <- podatki$KUKTc_1

samostjno.delo <- podatki$KUKTd_1

ure.dela <- podatki$KUKTe_1

ects <- podatki$KUKTf_1


############################
# Stran 2 vprašanje PODROČJE (PRVA TABELA V PDF POROČILU)
############################
# Predmet
predmet.ime <- podatki$ime
# Šifra predmeta
sifra.predmeta <- podatki$Koda
# Nosilec predmeta
nosilec <- podatki$drugo
# Vrsta predmeta
vrsta.predmeta <- podatki$telefon
# Jezik predmeta
jezik <- podatki[  grepl("Jezik" , colnames( podatki ) ) ]
# Jezik vaj
if (jezik[1]==1 & jezik[2]==1) {
  jezik.vaje <- "Slovenski / Slovene, Angleški / English"
} else if (jezik[1]==1 & jezik[2]==0) {
  jezik.vaje <- "Slovenski / Slovene"
} else if (jezik[2]==1 & jezik[1]==0) {jezik.vaje <- "Angleški / English"
} else {jezik.vaje <- " "} 

# Jezik predavanj 
if (jezik[3]==1 & jezik[4]==1) {
  jezik.predavanja <- "Slovenski / Slovene, Angleški / English"
} else if (jezik[3]==1 & jezik[4]==0) {
  jezik.predavanja <- "Slovenski / Slovene"
} else if (jezik[4]==1 & jezik[3]==0) {jezik.predavanja <- "Angleški / English"
} else {jezik.predavanja <- " "} 


# Študijsko področje
studijsko.podrocje <- podatki$priimek

# PRIMARNO Študijsko področje
podrocje <- as.numeric(podatki$PODROCJE)
if (!is.na(podrocje)) {
if (podrocje==1) {
  podrocje <- "Management (poslovodenje in upravljanje - Klasius 345) / Management (Management and administration – Klasius 345)"
} else if (podrocje==2) {
  podrocje <- "Poslovne vede (Klasius 34) / Business and administration (Klasius 34)"
} else if (podrocje==3) {podrocje <- "Ekonomija (Klasius 314) / Economics (klasius 314)"
} else if (podrocje==4) {podrocje <- "Pravne vede (Klasius - 380) / Law (Klasius 380)"
} else if (podrocje==5) {podrocje <- "Druge družbene vede (sociologija, psihologija, politologija ipd. - Klasius 312, 311, 313)
                                      / Other Social and behavioural science (Sociology, Psychology, 
                                     Political science etc. – Klasius 312, 311, 313)"
} else if (podrocje==6) {podrocje <- "Matematika, metodologija, statistika in informatika (Klasius 46 in 48) / 
                                       Mathematics, Methodology, Statistics and Informatics (Klasius 46 and 48)"
} else if (podrocje==7) {podrocje <- "Tuj jezik stroke (Klasius 222) / Foreign languages (Klasius 222)"
}
} else {podrocje <- " "}
# Letnik
letnik <- podatki$naziv


# Pogoji za vključitev
pogoji <- podatki$POGOJI



############################
# Stran 3 vprašanje VSEBINE (TRETJA TABELA V PDF POROČILU)
############################
# SLO
vsebina.slo <- podatki$VSEBINAa
# Ločimo skupni string spremenljivk na več vektorev, zato, da jih bomo lahko v latex tabelah zapisali v novo vrstico
vsebina.slo <- unlist(strsplit(vsebina.slo, "  ")) # Kjer je dvojni presledek, loči string
if (any(sapply(regmatches(vsebina.slo, gregexpr("[A-Z]", vsebina.slo, perl=TRUE)), length) > 25)) {
vsebina.slo <- gsub('(.{1,40})(\\s|$)', '\\1\\\\\\\\',vsebina.slo) }else {vsebina.slo <- gsub('(.{1,52})(\\s|$)', '\\1\\\\\\\\',vsebina.slo)}
 


# Izberemo zadnji možni odgovor na koncu katerega ne želimo dati breaka oz \\\\
#vpr.konec.slo <- vsebina.slo[length(vsebina.slo)]
#vsebina.slo <- c(paste0(vsebina.slo[-length(vsebina.slo)], ' \\\\ '),vpr.konec.slo) # Na koncu vsakega stringa dodaj \\, ki v latex-predstavlja newlinw
vsebina.slo <- paste(vsebina.slo, collapse = ' ') # concatenate the values into string and make space

# ANG
vsebina.ang <- podatki$VSEBINAb
vsebina.ang <- unlist(strsplit(vsebina.ang, "  "))
if (any(sapply(regmatches(vsebina.ang, gregexpr("[A-Z]", vsebina.ang, perl=TRUE)), length) > 25)) {
  vsebina.ang <- gsub('(.{1,40})(\\s|$)', '\\1\\\\\\\\',vsebina.ang) }else {vsebina.ang <- gsub('(.{1,52})(\\s|$)', '\\1\\\\\\\\',vsebina.ang)}
# Izberemo zadnji možni odgovor na koncu katerega ne želimo dati breaka oz \\\\
#vpr.konec.ang <- vsebina.ang[length(vsebina.ang)]
#vsebina.ang <- c(paste0(vsebina.ang[-length(vsebina.ang)], ' \\\\ '),vpr.konec.ang)
vsebina.ang <- paste(vsebina.ang, collapse = ' ')
vsebina.ang <- gsub('_', '\\_', vsebina.ang, fixed=T) # pravilni izpis podčrtaja v pdf izpisu "_"
vsebina.ang <- gsub('&', '\\&', vsebina.ang, fixed=T) # pravilni izpis in v pdg izpisu "&"
vsebina.ang <- gsub('%', '\\%', vsebina.ang, fixed=T) # pravilni izpis deleža v pdg izpisu "%"
############################
# Stran 4 vprašanje SPL (ČETRTA TABELA V PDF POROČILU)
############################

# Splošne kompetence SLO
SPL1 <- c("\\textbf{SPL1}: Delo s podatki in informacijami;")
SPL2 <- c("\\textbf{SPL2}: Osnovne računalniške spretnosti;")
SPL3 <- c("\\textbf{SPL3}: Medosebne, socialne spretnosti;")
SPL4 <- c("\\textbf{SPL4}: Sodelovalno, timsko delo, delo v skupini;")
SPL5 <- c("\\textbf{SPL5}: Voditeljstvo, vodenje ljudi;")
SPL6 <- c("\\textbf{SPL6}: Etičnost;")
SPL7 <- c("\\textbf{SPL7}: Raznolikost in multikulturnost;")
SPL8 <- c("\\textbf{SPL8}: Spretnosti kritičnega mišljenja;")
SPL9 <- c("\\textbf{SPL9}: Ustvarjanje novih zamisli (ustvarjalnost);")
SPL10 <- c("\\textbf{SPL20}: Iniciativnost ter podjetnost;")
SPL11 <- c("\\textbf{SPL11}: Spretnosti organiziranja in načrtovanja (npr. lastnega dela, dela drugih);")
SPL12 <- c("\\textbf{SPL12}: Spretnosti verbalne komunikacije (npr. retorika, predstavitvene veščine);")
SPL13 <- c("\\textbf{SPL13}: Spretnosti pisne komunikacije;")
SPL14 <- c("\\textbf{SPL14}: Sporazumevanje v tujem jeziku.")


# Splošne kompetence ANG
SPL1.ang <- c("\\textbf{SPL1}: Work with data and information;")
SPL2.ang  <- c("\\textbf{SPL2}: Basic computer skills;")
SPL3.ang  <- c("\\textbf{SPL3}: Interpersonal, social skills;")
SPL4.ang  <- c("\\textbf{SPL4}: Cooperation, team work, group work;")
SPL5.ang  <- c("\\textbf{SPL5}: Leadership skills;")
SPL6.ang  <- c("\\textbf{SPL6}: Ethics;")
SPL7.ang  <- c("\\textbf{SPL7}: Diversity and multi-cultural skills;")
SPL8.ang  <- c("\\textbf{SPL8}: Critical thinking;")
SPL9.ang  <- c("\\textbf{SPL9}: Creativity;")
SPL10.ang  <- c("\\textbf{SPL20}: Initiative and entrepereneurial skills;")
SPL11.ang  <- c("\\textbf{SPL11}: Organising and planning skills (e.g. own work, work of others);")
SPL12.ang  <- c("\\textbf{SPL12}: Verbal communication skills (e.g. rhetorics, presentation skills);")
SPL13.ang  <- c("\\textbf{SPL13}: Written communication skills;")
SPL14.ang  <- c("\\textbf{SPL14}: Communication in foreign language.")



# Jih zapišemo v bazo če so
if (podatki$SPLa==1) {
  podatki$SPLa <- SPL1
  podatki$SPa.angl <- SPL1.ang}

if (podatki$SPLb==1) {
  podatki$SPLb <- SPL2
  podatki$SPb.angl <- SPL2.ang}

if (podatki$SPLc==1) {
  podatki$SPLc <- SPL3
  podatki$SPc.angl <- SPL3.ang}

if (podatki$SPLd==1) {
  podatki$SPLd <- SPL4
  podatki$SPd.angl  <- SPL4.ang }

if (podatki$SPLe==1) {
  podatki$SPLe <- SPL5
  podatki$SPe.angl  <- SPL5.ang }

if (podatki$SPLf==1) {
  podatki$SPLf <- SPL6
  podatki$SPf.angl  <- SPL6.ang }

if (podatki$SPLg==1) {
  podatki$SPLg <- SPL7
  podatki$SPg.angl  <- SPL7.ang }

if (podatki$SPLh==1) {
  podatki$SPLh <- SPL8
  podatki$SPh.angl  <- SPL8.ang }

if (podatki$SPLi==1) {
  podatki$SPLi <- SPL9
  podatki$SPi.angl  <- SPL9.ang }

if (podatki$SPLj==1) {
  podatki$SPLj <- SPL10
  podatki$SPj.angl  <- SPL10.ang }

if (podatki$SPLk==1) {
  podatki$SPLk <- SPL11
  podatki$SPk.angl  <- SPL11.ang }

if (podatki$SPLl==1) {
  podatki$SPLl <- SPL12
  podatki$SPl.angl  <- SPL12.ang }

if (podatki$SPLm==1) {
  podatki$SPLm <- SPL13
  podatki$SPm.angl  <- SPL13.ang }

if (podatki$SPLn==1) {
  podatki$SPLn <- SPL14
  podatki$SPn.angl  <- SPL14.ang }

kompetence.slo <- podatki[  grepl("SPL" , colnames( podatki ) ) ]
kompetence.slo <- gsub("(?<![0-9])0+", "", kompetence.slo, perl = TRUE)
kompetence.slo <- kompetence.slo[kompetence.slo != ""] 
kompetence.slo <- gsub('(.{1,60})(\\s|$)', '\\1\\\\\\\\',kompetence.slo) 

#kompetence.slo[-length(kompetence.slo)] <- paste0(kompetence.slo[-length(kompetence.slo)], ' \\\\ ')
SPL.kompetence.slo <- paste(kompetence.slo, collapse = ' ')



kompetence.ang <- podatki[  grepl("\\.angl" , colnames(podatki)) ]
kompetence.ang <- gsub("(?<![0-9])0+", "", kompetence.ang, perl = TRUE)
kompetence.ang <- kompetence.ang[kompetence.ang != ""] 
kompetence.ang <- gsub('(.{1,60})(\\s|$)', '\\1\\\\\\\\',kompetence.ang) 
#kompetence.ang[-length(kompetence.ang)] <- paste0(kompetence.ang[-length(kompetence.ang)], ' \\\\ ')
SPL.kompetence.ang <- paste(kompetence.ang, collapse = ' ')
if (SPL.kompetence.ang=="") {
  SPL.kompetence.ang <- c("\\vspace*{5.8cm}")
}

############################
# Stran 5 vprašanje PSP (PETA TABELA V PDF POROČILU)
############################

# Predmetno specifične kompetence SLO
PSP1 <- c("\\textbf{PSP1}: Značilnosti organizacije, funkcijska področja in razmerja med njimi;")
PSP2 <- c("\\textbf{PSP2}: Pregled poslovanja, problemi, izzivi in njihovo re\u0161evanje, svetovalni načrt;")
PSP3 <-c("\\textbf{PSP3}: Makro in mikroekonomski elementi in vplivi na organizacije;")
PSP4 <- c("\\textbf{PSP4}: Metode in orodja za analizo notranjega in zunanjega okolja in določanje razvojnih perspektiv organizacije;")
PSP5 <- c("\\textbf{PSP5}: Pristopi k upravljanju podjetja z načrtovanjem in kontrolo ter uporabo različnih konceptov, metod in orodij;")
PSP6 <- c("\\textbf{PSP6}: Računovodski in finančni sistemi;")
PSP7 <- c("\\textbf{PSP7}: Upravljanje s spremembami;")
PSP8 <- c("\\textbf{PSP8}: Kultura in njeni vplivi na vsebinskem področju predmeta;")
PSP9 <- c("\\textbf{PSP9}: Vidik etike na vsebinskem področju predmeta;")
PSP10 <- c("\\textbf{PSP10}: Pravo na vsebinskem področju predmeta;")
PSP11 <- c("\\textbf{PSP11}: Psihologija na vsebinskem področju predmeta;")
PSP12 <- c("\\textbf{PSP12}: Informacijski sistemi in programska oprema na vsebinskem področju predmeta;")
PSP13 <- c("\\textbf{PSP13}: Tehnika in tehnologija na vsebinskem področju predmeta;")
PSP14 <- c("\\textbf{PSP14}: Tuj jezik na vsebinskem področju predmeta;")
PSP15 <- c("\\textbf{PSP15}: Družbena in okoljska odgovornost na vsebinskem področju predmeta;")
PSP16 <- c("\\textbf{PSP16}: Raziskovalna metodologija na vsebinskem področju predmeta;")
PSP17 <- c("\\textbf{PSP17}: Matematika in statistika na vsebinskem področju predmeta;")
PSP18 <- c("\\textbf{PSP18}: Splošna razgledanost na vsebinskem področju predmeta.")


# Predmetno specifične kompetence ANG
PSP1.ang <- c("\\textbf{PSP1}: Organizations' characteristics, functional areas and the relationships between them;")
PSP2.ang  <- c("\\textbf{PSP2}: Organisational audit, problems and challenges in business, problem solving, consultancy plans;")
PSP3.ang  <-c("\\textbf{PSP3}: Macro- and microeconomic elements and their impact on an organisation;")
PSP4.ang  <- c("\\textbf{PSP4}: Methods and tools for analysis of an organisation and its environment to identify perspectives;")
PSP5.ang  <- c("\\textbf{PSP5}: Managing a company by planning and controlling by use concepts, methods and tools;")
PSP6.ang  <- c("\\textbf{PSP6}: Accounting and financial systems;")
PSP7.ang  <- c("\\textbf{PSP7}: Change management;")
PSP8.ang  <- c("\\textbf{PSP8}: Culture and its influence in the field of the course;")
PSP9.ang  <- c("\\textbf{PSP9}: Principles of ethics in the field of the course;")
PSP10.ang  <- c("\\textbf{PSP10}: Law in the field of the course;")
PSP11.ang  <- c("\\textbf{PSP11}: Psychology in the field of the course;")
PSP12.ang  <- c("\\textbf{PSP12}: Information systems and software in the fields of the course;")
PSP13.ang  <- c("\\textbf{PSP13}: Egineering and technology in the fields of the course;")
PSP14.ang  <- c("\\textbf{PSP14}: Foreign language in the fileds of the course;")
PSP15.ang  <- c("\\textbf{PSP15}: Social and environmental responsibility in the fields of the course;")
PSP16.ang  <- c("\\textbf{PSP16}: Research methodology in the fields of the course;")
PSP17.ang  <- c("\\textbf{PSP17}: Mathematics and statistics in the fields of the course;")
PSP18.ang  <- c("\\textbf{PSP18}: General overview of the course content area.")



if (podatki$PSPa==1) {
  podatki$PSPa <- PSP1
  podatki$PSPa.ang1 <- PSP1.ang}

if (podatki$PSPb==1) {
  podatki$PSPb <- PSP2
  podatki$PSPb.ang1 <- PSP2.ang}

if (podatki$PSPc==1) {
  podatki$PSPc <- PSP3
  podatki$PSPc.ang1 <- PSP3.ang}

if (podatki$PSPd==1) {
  podatki$PSPd <- PSP4
  podatki$PSPd.ang1 <- PSP4.ang}

if (podatki$PSPe==1) {
  podatki$PSPe <- PSP5
  podatki$PSPe.ang1 <- PSP5.ang}

if (podatki$PSPf==1) {
  podatki$PSPf <- PSP6
  podatki$PSPf.ang1 <- PSP6.ang}

if (podatki$PSPg==1) {
  podatki$PSPg <- PSP7
  podatki$PSPg.ang1 <- PSP7.ang}

if (podatki$PSPh==1) {
  podatki$PSPh <- PSP8
  podatki$PSPh.ang1 <- PSP8.ang}

if (podatki$PSPi==1) {
  podatki$PSPi <- PSP9
  podatki$PSPi.ang1 <- PSP9.ang}

if (podatki$PSPj==1) {
  podatki$PSPj <- PSP10
  podatki$PSPj.ang1 <- PSP10.ang}

if (podatki$PSPk==1) {
  podatki$PSPk <- PSP11
  podatki$PSPk.ang1 <- PSP11.ang}

if (podatki$PSPl==1) {
  podatki$PSPl <- PSP12
  podatki$PSPl.ang1 <- PSP12.ang}

if (podatki$PSPm==1) {
  podatki$PSPm <- PSP13
  podatki$PSPm.ang1 <- PSP13.ang}

if (podatki$PSPn==1) {
  podatki$PSPn <- PSP14
  podatki$PSPn.ang1 <- PSP14.ang}

if (podatki$PSPo==1) {
  podatki$PSPo <- PSP15
  podatki$PSPo.ang1 <- PSP15.ang}

if (podatki$PSPp==1) {
  podatki$PSPp <- PSP16
  podatki$PSPp.ang1 <- PSP16.ang}

if (podatki$PSPq==1) {
  podatki$PSPq <- PSP17
  podatki$PSPq.ang1 <- PSP17.ang}

if (podatki$PSPr==1) {
  podatki$PSPr <- PSP18
  podatki$PSPr.ang1 <- PSP18.ang}

SPECIF.kompetence.slo <- podatki[  grepl("PSP" , colnames( podatki ) ) ]
SPECIF.kompetence.slo <- SPECIF.kompetence.slo[1:18]
SPECIF.kompetence.slo <- gsub("(?<![0-9])0+", "", SPECIF.kompetence.slo, perl = TRUE)
SPECIF.kompetence.slo <- SPECIF.kompetence.slo[SPECIF.kompetence.slo != ""] 
SPECIF.kompetence.slo <- gsub('(.{1,55})(\\s|$)', '\\1\\\\\\\\',SPECIF.kompetence.slo) 
SPECIF.kompetence.slo <- paste(SPECIF.kompetence.slo, collapse = ' ')

SPECIF.kompetence.ang <- podatki[  grepl("ang1" , colnames( podatki ) ) ]
SPECIF.kompetence.ang <- gsub("(?<![0-9])0+", "", SPECIF.kompetence.ang, perl = TRUE)
SPECIF.kompetence.ang <- SPECIF.kompetence.ang[SPECIF.kompetence.ang != ""] 
SPECIF.kompetence.ang <- gsub('(.{1,55})(\\s|$)', '\\1\\\\\\\\',SPECIF.kompetence.ang) 
SPECIF.kompetence.ang <- paste(SPECIF.kompetence.ang, collapse = ' ')
if (SPECIF.kompetence.ang=="") {
  SPECIF.kompetence.ang <- c("\\vspace*{7.6cm}")
}

#Dodaj line break oz. nov odstavek za vsakih 30 znakov teksta.


############################
# Stran 6 - stran 23 vprašanja PSP1-PSP18 (ŠESTA TABELA V PDF POROČILU)
# Katere merljive učne izide pričakujete pri kompetenci 
############################


merljivi.izidi <- podatki[  grepl("PSP" , colnames( podatki ) ) ]
merljivi.izidi.slo <- merljivi.izidi[c("PSP1a","PSP2a","PSP3a","PSP4a","PSP5a",
                                       "PSP6a","PSP7a","PSP8a","PSP9a","PSP10a",
                                       "PSP11a","PSP12a","PSP13a","PSP14a","PSP15a",
                                       "PSP16a","PSP17a","PSP18a")]
merljivi.izidi.slo <- merljivi.izidi.slo[merljivi.izidi.slo != " "] 
merljivi.izidi.slo <- gsub('(.{1,50})(\\s|$)', '\\1\\\\\\\\',merljivi.izidi.slo) 
merljivi.izidi.slo <- paste(merljivi.izidi.slo, collapse = ' ')
#merljivi.izidi.slo <- gsub("'", "", merljivi.izidi.slo)


merljivi.izidi.ang <- merljivi.izidi[c("PSP1b","PSP2b","PSP3b","PSP4b","PSP5b",
                                       "PSP6b","PSP7b","PSP8b","PSP9b","PSP10b",
                                       "PSP11b","PSP12b","PSP13b","PSP14b","PSP15b",
                                       "PSP16b","PSP17b","PSP18b")]
merljivi.izidi.ang <- merljivi.izidi.ang[merljivi.izidi.ang != " "] 
merljivi.izidi.ang <- gsub('(.{1,50})(\\s|$)', '\\1\\\\\\\\',merljivi.izidi.ang) 
merljivi.izidi.ang <- paste(merljivi.izidi.ang, collapse = ' ')
#merljivi.izidi.ang <- gsub("'", " ", merljivi.izidi.ang)


############################
# Stran 24 vprašanje METODE (SEDMA TABELA V PDF POROČILU)
############################
#OBLIKE DELA#

# OBLIKE SLO
oblika_1 <- c("Frontalna oblika poučevanja;")
oblika_2 <- c("Delo v manjših skupinah oz. v dvojicah;")
oblika_3 <-c("Samostojno delo študenta;")
oblika_4 <- c("E-učenje")


# OBLIKE ANG
oblika_1.ang <- c("Frontal teaching;")
oblika_2.ang  <- c("Work in smaller groups or pairs;")
oblika_3.ang  <-c("Independent student work; ")
oblika_4.ang  <- c("E-learning")


if (podatki$METODEa==1) {
  podatki$METODEa <- oblika_1
  podatki$METODEa.angmetode <- oblika_1.ang}

if (podatki$METODEb==1) {
  podatki$METODEb <- oblika_2
  podatki$METODEb.angmetode <- oblika_2.ang}

if (podatki$METODEc==1) {
  podatki$METODEc <- oblika_3
  podatki$METODEc.angmetode <- oblika_3.ang}

if (podatki$METODEd==1) {
  podatki$METODEd <- oblika_4
  podatki$METODEd.angmetode <- oblika_4.ang}

# Poišči vse stolpce z imenom METODE in ne upoštevaj tistih ki imajo v imenu tudi .angmetode
oblike.dela.slo <- podatki[  c(grepl("METODE" , colnames( podatki ) ) & !grepl("(\\.)+angmetode" , colnames( podatki ) )) ]
oblike.dela.slo <-  oblike.dela.slo[1:4]
oblike.dela.slo <- gsub("(?<![0-9])0+", "", oblike.dela.slo, perl = TRUE)
oblike.dela.slo <- oblike.dela.slo[oblike.dela.slo != ""] 
oblike.dela.slo <- gsub('(.{1,45})(\\s|$)', '\\1\\\\\\\\', oblike.dela.slo) 
oblike.dela.slo <- paste(oblike.dela.slo, collapse = ' ')


oblike.dela.ang <- podatki[  grepl("(\\.)+angmetode" , colnames( podatki )) ]
#oblike.dela.ang <-  oblike.dela.ang[1:4]
oblike.dela.ang <- gsub("(?<![0-9])0+", "", oblike.dela.ang, perl = TRUE)
oblike.dela.ang <- oblike.dela.ang[oblike.dela.ang != ""] 
oblike.dela.ang <- gsub('(.{1,45})(\\s|$)', '\\1\\\\\\\\', oblike.dela.ang) 
oblike.dela.ang <- paste(oblike.dela.ang, collapse = ' ')

#################
#METODE DELA#
# OBLIKE SLO
metoda_1 <- c("Razlaga;")
metoda_2 <- c("Razgovor/diskusija/debata;")
metoda_3 <-c("Delo z besedilom;")
metoda_4 <- c("Proučevanje primera;")
metoda_5 <- c("Igra vlog;")
metoda_6 <- c("Javni nastop;")
metoda_7 <- c("Re\u0161evanje nalog;")
metoda_8 <- c("\u0160tudijski obisk;")
metoda_9 <- c("Gost iz prakse;")
metoda_10 <- c("Okrogla miza/konferenca;")
metoda_11 <- c("Praktično delo;")


# OBLIKE ANG
metoda_1.ang <- c("Explanation;")
metoda_2.ang  <- c("Conversation/discussion/debate;")
metoda_3.ang  <-c("Work with text;")
metoda_4.ang  <- c("Case study;")
metoda_5.ang  <- c("Role-play;")
metoda_6.ang  <- c("Public presentation;")
metoda_7.ang  <- c("Solving exercises;")
metoda_8.ang  <- c("Study visit;")
metoda_9.ang  <- c("Guest from practice;")
metoda_10.ang  <- c("Round table/conference;")
metoda_11.ang  <- c("Practical work;")



if (podatki$METODEe==1) {
  podatki$METODEe <- metoda_1
  podatki$METODE1e.angmetode <- metoda_1.ang}

if (podatki$METODEf==1) {
  podatki$METODEf <- metoda_2
  podatki$METODE1f.angmetode <- metoda_2.ang}

if (podatki$METODEg==1) {
  podatki$METODEg <- metoda_3
  podatki$METODE1g.angmetode <- metoda_3.ang}

if (podatki$METODEh==1) {
  podatki$METODEh <- metoda_4
  podatki$METODE1h.angmetode <- metoda_4.ang}


if (podatki$METODEi==1) {
  podatki$METODEi <- metoda_5
  podatki$METODE1i.angmetode <- metoda_5.ang}


if (podatki$METODEj==1) {
  podatki$METODEj <- metoda_6
  podatki$METODE1j.angmetode <- metoda_6.ang}


if (podatki$METODEk==1) {
  podatki$METODEk <- metoda_7
  podatki$METODE1k.angmetode <- metoda_7.ang}



if (podatki$METODEl==1) {
  podatki$METODEl <- metoda_8
  podatki$METODE1l.angmetode <- metoda_8.ang}


if (podatki$METODEm==1) {
  podatki$METODEm <- metoda_9
  podatki$METODE1m.angmetode <- metoda_9.ang}


if (podatki$METODEn==1) {
  podatki$METODEn <- metoda_10
  podatki$METODE1n.angmetode <- metoda_10.ang}


if (podatki$METODEo==1) {
  podatki$METODEo <- metoda_11
  podatki$METODE1o.angmetode <- metoda_11.ang}




# Poišči vse stolpce z imenom METODE in n eupoštevaj tistih ki imajo v imenu tudi .angmetode
metode.dela.slo <- podatki[  c(grepl("METODE" , colnames( podatki ) ) & !grepl("(\\.)+angmetode" , colnames( podatki ) )) ]
metode.dela.slo <- metode.dela.slo[5:15]
metode.dela.slo <- gsub("(?<![0-9])0+", "", metode.dela.slo, perl = TRUE)
metode.dela.slo <- metode.dela.slo[metode.dela.slo != ""] 
metode.dela.slo <- gsub('(.{1,45})(\\s|$)', '\\1\\\\\\\\', metode.dela.slo) 
metode.dela.slo <- paste(metode.dela.slo, collapse = ' ')


metode.dela.ang <- podatki[  c(grepl("METODE1" , colnames( podatki ) )) ]
#metode.dela.ang <- metode.dela.ang[5:15]
metode.dela.ang <- gsub("(?<![0-9])0+", "", metode.dela.ang, perl = TRUE)
metode.dela.ang <- metode.dela.ang[metode.dela.ang != ""] 
metode.dela.ang <- gsub('(.{1,45})(\\s|$)', '\\1\\\\\\\\', metode.dela.ang) 
metode.dela.ang <- paste(metode.dela.ang, collapse = ' ')





############################
# Stran 25 vprašanje $OCENDEL (OSMA TABELA V PDF POROČILU)
############################  
nacini.ocenjevanja <- podatki[  grepl("OCENDEL" , colnames( podatki )) ]

# Sprotno ustno ocenjevanje
sprotno.ustno <- nacini.ocenjevanja[1,1]
if (sprotno.ustno==" ") {
  sprotno.ustno <- "/"
} else { sprotno.ustno <- paste0(sprotno.ustno,"\\%")}

# Sprotno pisno ocenjevanje
sprotno.pisno <- nacini.ocenjevanja[1,2]
if (sprotno.pisno==" ") {
  sprotno.pisno <- "/"
} else { sprotno.pisno <- paste0(sprotno.pisno,"\\%")}
# Daljši pisni izdelek

daljsi.pisni.izdelek <- nacini.ocenjevanja[1,3]
if (daljsi.pisni.izdelek==" ") {
  daljsi.pisni.izdelek <- "/"
} else { daljsi.pisni.izdelek <- paste0(daljsi.pisni.izdelek,"\\%")}

# Javni nastop s predstavitvijo rezultatov
javni.nastop <- nacini.ocenjevanja[1,4]
if (javni.nastop==" ") {
  javni.nastop <- "/"
} else { javni.nastop <- paste0(javni.nastop,"\\%")}

# Končni pisni izpit
pisni.izpit <- nacini.ocenjevanja[1,5]
if (pisni.izpit==" ") {
  pisni.izpit <- "/"
} else { pisni.izpit <- paste0(pisni.izpit,"\\%")}

# Končni ustni izpit
ustni.izpit <- nacini.ocenjevanja[1,6]
if (ustni.izpit==" ") {
  ustni.izpit <- "/"
} else { ustni.izpit <- paste0(ustni.izpit,"\\%")}

# Udeležba in sodelovanje
udelezba.sodelovanje <- nacini.ocenjevanja[1,7]
if (udelezba.sodelovanje==" ") {
  udelezba.sodelovanje <- "/"
} else { udelezba.sodelovanje <- paste0(udelezba.sodelovanje,"\\%")}


# Lestvica ocenjevanja
if(podatki$OCEN2==2) {
  lestvica <- "številska / numeric"
} else if (podatki$OCEN2==1) {
  lestvica <- "opisna / descriptive"
} else {lestvica <- " "}



############################
# Stran 26 vprašanje OBVLIT (DEVETA TABELA V PDF POROČILU)
############################  
library(stringr) # potreba knjižnica
library(dplyr)  # potreba knjižnica
# The first line adds the "~" character at the right break point
# SPLIT ONE OR TWO DIGITS
#str_split(gsub("([^0-9][0-9]\\.|\\d{2}\\.)","~\\1",podatki$OBVLIT), "~") 

#literatura <- podatki$OBVLIT
literatura <- str_split(gsub("([1-9]{1,2}\\.[]*[A-Z])","~\\1",podatki$OBVLIT), "~") %>%
  unlist()  %>%
  str_trim(side = c("both")) # Trimming potential spaces at the strings sides
#literatura <- c(paste0(literatura, ' \\\\ '))
literatura <- gsub('(.{1,170})(\\s|$)', '\\1\\\\\\\\', literatura)
literatura <- gsub('_', '\\_', literatura, fixed=T) # pravilni izpis podčrtaja v pdf izpisu "_"
literatura <- gsub('&', '\\&', literatura, fixed=T) # pravilni izpis in v pdg izpisu "&"
literatura <- gsub('%', '\\%', literatura, fixed=T) # pravilni izpis deleža v pdg izpisu "%"
literatura <- paste(literatura, collapse = ' ')


############################
# Stran 27 vprašanje REFERENCE (DEVETA TABELA V PDF POROČILU)
############################  
# The first line adds the "~" character at the right break point

 reference <-   str_split(gsub("([1-9]\\.[]*[A-Z])","~\\1",podatki$REFER), "~") %>%
  unlist()  %>%
  str_trim(side = c("both")) # Trimming potential spaces at the strings sides
reference <- c(paste0(reference, ' \\\\ '))
reference <- gsub('(.{1,200})(\\s|$)', '\\1\\\\\\\\', reference)
reference <- gsub('_', '\\_', reference, fixed=T) # pravilni izpis podčrtaja v pdf izpisu "_"
reference <- gsub('&', '\\&', reference, fixed=T) # pravilni izpis in v pdg izpisu "&"
reference <- gsub('%', '\\%', reference, fixed=T) # pravilni izpis deleža v pdg izpisu "%"
reference <- paste(reference, collapse = ' ')



###################################
# TABELE IN PODATKi V TEX. DATOTEKI
###################################
podatkovni.okvir <- scan("modules/mod_MFDPS/latexkosi/tabele.tex", character(0), sep="\n", quiet=TRUE,encoding='UTF-8')


# Tabela 1 v poročilu
podatkovni.okvir <- gsub(pattern="!podrocje!", replacement=podrocje, x=podatkovni.okvir)
podatkovni.okvir <- gsub(pattern="!studijsko.podrocje!", replacement=studijsko.podrocje, x=podatkovni.okvir)
podatkovni.okvir <- gsub(pattern="!sifra.predmeta!", replacement=sifra.predmeta, x=podatkovni.okvir)
podatkovni.okvir <- gsub(pattern="!predmet.ime!", replacement=predmet.ime, x=podatkovni.okvir)
podatkovni.okvir <- gsub(pattern="!nosilec!", replacement=podatki$drugo, x=podatkovni.okvir)
podatkovni.okvir <- gsub(pattern="!vrsta.predmeta!", replacement=podatki$telefon, x=podatkovni.okvir)
podatkovni.okvir <- gsub(pattern="!jezik.vaje!", replacement=jezik.vaje, x=podatkovni.okvir)
podatkovni.okvir <- gsub(pattern="!jezik.predavanja!", replacement=jezik.predavanja, x=podatkovni.okvir)
podatkovni.okvir <- gsub(pattern="!letnik!", replacement=podatki$naziv, x=podatkovni.okvir)
podatkovni.okvir <- gsub(pattern="!pogoji!", replacement=pogoji, x=podatkovni.okvir)


# Tabela 2 v poročilu
podatkovni.okvir <- gsub(pattern="!predavanja!", replacement=predavanja, x=podatkovni.okvir)
podatkovni.okvir <- gsub(pattern="!vaje!", replacement=vaje, x=podatkovni.okvir)
podatkovni.okvir <- gsub(pattern="!druge.oblike.studija!", replacement=druge.oblike.studija, x=podatkovni.okvir)
podatkovni.okvir <- gsub(pattern="!samostjno.delo!", replacement=samostjno.delo, x=podatkovni.okvir)
podatkovni.okvir <- gsub(pattern="!ure.dela!", replacement=ure.dela, x=podatkovni.okvir)
podatkovni.okvir <- gsub(pattern="!ects!", replacement=ects, x=podatkovni.okvir)

# Tabela 3 v poročilu
podatkovni.okvir <- gsub(pattern="!vsebina.slo!", replacement=vsebina.slo, x=podatkovni.okvir, fixed=T) # fixed=T: zato, da v latex tabeli dobimo za vsak string novo vrstico
podatkovni.okvir <- gsub(pattern="!vsebina.ang!", replacement=vsebina.ang, x=podatkovni.okvir, fixed=T)


# Tabela 4 v poročilu
podatkovni.okvir <- gsub(pattern="!kompetence!", replacement=SPL.kompetence.slo, x=podatkovni.okvir, fixed=T) 
# ANGLEŠA RAZLIČICA?
podatkovni.okvir <- gsub(pattern="!kompetence.ang!", replacement=SPL.kompetence.ang, x=podatkovni.okvir, fixed=T)

# Tabela 5 v poročilu
podatkovni.okvir <- gsub(pattern="!SPECIF.kompetence.slo!", replacement=SPECIF.kompetence.slo, x=podatkovni.okvir, fixed=T) 
podatkovni.okvir <- gsub(pattern="!SPECIF.kompetence.ang!", replacement=SPECIF.kompetence.ang, x=podatkovni.okvir, fixed=T) 


# Tabela 6 v poročilu
podatkovni.okvir <- gsub(pattern="!merljivi.izidi.slo!", replacement=merljivi.izidi.slo, x=podatkovni.okvir, fixed=T) 
podatkovni.okvir <- gsub(pattern="!merljivi.izidi.ang!", replacement=merljivi.izidi.ang, x=podatkovni.okvir, fixed=T) 


# Tabela 7 v poročilu
# Oblike dela
podatkovni.okvir <- gsub(pattern="!oblike.dela.slo!", replacement=oblike.dela.slo, x=podatkovni.okvir, fixed=T) 
podatkovni.okvir <- gsub(pattern="!oblike.dela.ang!", replacement=oblike.dela.ang, x=podatkovni.okvir, fixed=T) 
# Metode dela
podatkovni.okvir <- gsub(pattern="!metode.dela.slo!", replacement=metode.dela.slo, x=podatkovni.okvir, fixed=T) 
podatkovni.okvir <- gsub(pattern="!metode.dela.ang!", replacement=metode.dela.ang, x=podatkovni.okvir, fixed=T) 


# Tabela 8 v poročilu
podatkovni.okvir <- gsub(pattern="!sprotno.ustno!", replacement=sprotno.ustno, x=podatkovni.okvir, fixed=T) 
podatkovni.okvir <- gsub(pattern="!sprotno.pisno!", replacement=sprotno.pisno, x=podatkovni.okvir, fixed=T) 
podatkovni.okvir <- gsub(pattern="!daljsi.pisni.izdelek!", replacement=daljsi.pisni.izdelek, x=podatkovni.okvir, fixed=T) 
podatkovni.okvir <- gsub(pattern="!javni.nastop!", replacement=javni.nastop, x=podatkovni.okvir, fixed=T) 
podatkovni.okvir <- gsub(pattern="!pisni.izpit!", replacement=pisni.izpit, x=podatkovni.okvir, fixed=T) 
podatkovni.okvir <- gsub(pattern="!ustni.izpit!", replacement=ustni.izpit, x=podatkovni.okvir, fixed=T) 
podatkovni.okvir <- gsub(pattern="!udelezba.sodelovanje!", replacement=udelezba.sodelovanje, x=podatkovni.okvir, fixed=T) 
# Lestvica ocenjevanja
podatkovni.okvir <- gsub(pattern="!lestvica!", replacement=lestvica, x=podatkovni.okvir, fixed=T) 


# Tabela 9 v poročilu
podatkovni.okvir <- gsub(pattern="!literatura!", replacement=literatura, x=podatkovni.okvir, fixed=T) 


# Tabela 10 v poročilu
podatkovni.okvir <- gsub(pattern="!reference!", replacement=reference, x=podatkovni.okvir, fixed=T)


# Pravilen Izpis šumnikov, vezajev, narekovajev itd...  
podatkovni.okvir <- gsub('©', 'Š', podatkovni.okvir, fixed=T)
podatkovni.okvir <- gsub('ą', 'š', podatkovni.okvir,fixed=T)
podatkovni.okvir <- gsub('®', 'Ž', podatkovni.okvir,fixed=T)
podatkovni.okvir <- gsub('\u017E', 'ž', podatkovni.okvir,fixed=T)
podatkovni.okvir <- gsub('\u2013', '-', podatkovni.okvir,fixed=T)
podatkovni.okvir <- gsub('\u2019', '’', podatkovni.okvir,fixed=T)
podatkovni.okvir <- gsub('\u2026', '…', podatkovni.okvir,fixed=T)
podatkovni.okvir <- gsub('\u00BB', '»', podatkovni.okvir,fixed=T)
podatkovni.okvir <- gsub('\u00AB', '«', podatkovni.okvir,fixed=T)
podatkovni.okvir <- gsub("''", "'", podatkovni.okvir,fixed=T)
podatkovni.okvir <- gsub("\uF0A0", "•", podatkovni.okvir,fixed=T)
podatkovni.okvir <- gsub("\u2022", "•", podatkovni.okvir,fixed=T)
podatkovni.okvir <- gsub("\u02BC", "'", podatkovni.okvir,fixed=T)
podatkovni.okvir <- gsub("\u02BB", "‘", podatkovni.okvir,fixed=T)
podatkovni.okvir <- gsub("\u2018", "'", podatkovni.okvir,fixed=T)
podatkovni.okvir <- gsub("\u201C", "“", podatkovni.okvir,fixed=T)
podatkovni.okvir <- gsub("\u201D", "”", podatkovni.okvir,fixed=T)
podatkovni.okvir <- gsub("'", "'", podatkovni.okvir,fixed=T)




#Sys.setlocale("LC_ALL", "Czech")
#################
# GENERIRANJE PDF
#################
tex.glava <- scan("modules/mod_MFDPS/latexkosi/glava-mfdps.tex", character(0), sep="\n", quiet=TRUE,encoding='UTF-8')
tex.glava <- gsub(pattern="!leto!", replacement=stud.leto, x=tex.glava)
tex.noga  <- scan("modules/mod_MFDPS/latexkosi/z-noga.tex", character(0), sep="\n", quiet=TRUE,encoding='UTF-8')
Rdirektorij <- getwd()


tex.izbor <-  c(tex.glava, podatkovni.okvir, tex.noga)
#tex.izbor <- gsub('©', '\\v{s}', tex.izbor, fixed=T)
#tex.izbor <- gsub('š', '\v{s}', tex.izbor, fixed=T)
#tex.izbor <- gsub('Š', '\v{S}', tex.izbor, fixed=T)
#tex.izbor <- gsub('ą', 'š', tex.izbor,fixed=T)




setwd(paste(Rdirektorij, "modules/mod_MFDPS/results", sep="/"))
cat(tex.izbor, file=paste0("MFDPS.tex"), sep="\n")
tools::texi2pdf(file=paste0("MFDPS.tex"), quiet=TRUE, clean=TRUE)
setwd(Rdirektorij)