43 lines
1.5 KiB
R
43 lines
1.5 KiB
R
|
## 1KA stre<72>nik ##
|
|||
|
|
# Del, ki ga potrebuje Peter, da generira ustrezno poro<72>ilo za posamezno fakulteto na stre<72>niku
|
|||
|
|
# Tega ne poganjamo
|
|||
|
|
params <- commandArgs(trailingOnly = TRUE)
|
|||
|
|
ID <- params[1]
|
|||
|
|
## //1KA stre<72>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())
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|