## 1KA strežnik ##
# Del, ki ga potrebuje Peter, da generira ustrezno poročilo za posamezno fakulteto na strežniku
# Tega ne poganjamo
params <- commandArgs(trailingOnly = TRUE)
ID <- params[1]
## //1KA strežnik// ##

# Dodatni sklop pripisemo v spodnji kodi
# Zaenkrat imata dodatni sklop FDV in FGG.
 #ID <- 3000021
IDs <- ID
choose.dir("C:/Miha/sisplet2/admin/survey/modules/Evalvacija/Evalvacija_splosna_anketa") 
library(knitr)
# Delovna mapa mora biti tista, kjer sta obe .r skripti
# nastavimo mapo, kjer bodo ustvarjene pomozne datoteke, potrebne
# za pretvorbo iz v latex in nato v pdf.

# Kodo pretvorimo v pdf.
# Pri kodi, ki je ne testiras torej ponovno omogoci imenaTabel in ID-je
# Spremembe, ki pridejo v postev, da pozene vsa stiri porocila
# Dolocimo ID-je in imenaTabel
for (zaporednaBaza in c(1:1)){
  owd = setwd('temp')
  imenaTabel <- c(paste0(owd, "/temp/podatki_",IDs,".csv"))
  ID <- IDs[zaporednaBaza]
  imenaTabel <- imenaTabel[zaporednaBaza]
  
  knit2pdf('../splosnaPorocilo.Rnw', encoding = 'UTF-8')
  # Porocilo iz mape 'temp' prekopiramo v mapo /rezultati/ID
  novaMapa <- paste0("../rezultati/", ID, "/", fakulteta, "_",
                     format(Sys.time(), "%Y"), "_splosna",".pdf")
  file.copy("splosnaPorocilo.pdf", novaMapa, overwrite =T)
  # Delovno pot spremenimo v prvotno.
  setwd(owd)
  # Pobrisemo elemente iz 'environment-a'
  # Ne za zadnjo porocilo, da lahko testiramo spremenljivke
  if (zaporednaBaza != 4){
    #remove(list = ls())
  }
}