vignettes/Generowanie_raportow.R

In zozlak/MLAKdane: Pakiet do zlaczania danych z rejestrow ZUS i uczelni

library(MLAK)
library(MLAKdane)
library(openxlsx)

def = read.xlsx('parametry_do_csv.xlsx')

#### 2015
dane = wczytajDane('2015_dane.RData')
daneMies = wczytajDane('2015_dane_mies.RData')

## programy
odbiorcy = wczytajDane('MLA1_odbiorcy_program_15_20170518.csv')
generujRaporty('R3-program_ELA2_v10_OPI1-1rok.Rmd', odbiorcy, list(dane, daneMies), 'R3-program-1rok')
write.csv2(oblicz_wartosci(odbiorcy, list(dane, daneMies), def$program.1.rok[-(1:2)], def$program.1.rok[2], def$program.1.rok[1]), 'P1.csv', row.names = F, na = '')

## uczelnie
odbiorcy = wczytajDane('MLA1_odbiorcy_uczelnie_15_20170126.csv')
generujRaporty('R3-uczelnia_ELA2_v10_OPI1-1rok.Rmd', odbiorcy, list(dane, daneMies), 'R3-uczelnia-1rok')
write.csv2(oblicz_wartosci(odbiorcy, list(dane, daneMies), def$uczelnia.1.rok[-(1:2)], def$uczelnia.1.rok[2], def$uczelnia.1.rok[1]), 'U1.csv', row.names = F, na = '')

## Polska
odbiorcy = wczytajDane('MLA1_odbiorcy_PL_15_20170126.csv')
generujRaporty('R3-POLSKA_ELA2_v9_OPI1-1rok.Rmd', odbiorcy, list(dane, daneMies), 'R3-Polska-1rok')
generujRaporty('R3-POLSKA_ELA2_v7_OPI1-skrot.Rmd', odbiorcy, list(dane, daneMies), 'R3-Polska-skrot-1rok')
write.csv2(oblicz_wartosci(odbiorcy, list(dane, daneMies), def$Polska.1.rok[-(1:2)], def$Polska.1.rok[2], def$Polska.1.rok[1]), 'Pl1.csv', row.names = F, na = '')

### 2014
dane = wczytajDane('2014_dane.RData')
daneMies = wczytajDane('2014_dane_mies.RData')

## programy
odbiorcy = wczytajDane('MLA1_odbiorcy_program_14_20170518.csv')
generujRaporty('R3-program_ELA2_v10_OPI1-2lata.Rmd', odbiorcy, list(dane, daneMies), 'R3-program-2lata')
write.csv2(oblicz_wartosci(odbiorcy, list(dane, daneMies), def$program.2lata[-(1:2)], def$program.2lata[2], def$program.2lata[1]), 'P2.csv', row.names = F, na = '')

## uczelnie
odbiorcy = wczytajDane('MLA1_odbiorcy_uczelnie_14_20170126.csv')
generujRaporty('R3-uczelnia_ELA2_v10_OPI1-2lata.Rmd', odbiorcy, list(dane, daneMies), 'R3-uczelnia-2lata')
write.csv2(oblicz_wartosci(odbiorcy, list(dane, daneMies), def$uczelnia.2lata[-(1:2)], def$uczelnia.2lata[2], def$uczelnia.2lata[1]), 'U2.csv', row.names = F, na = '')

## Polska
odbiorcy = wczytajDane('MLA1_odbiorcy_PL_14_20170126.csv')
generujRaporty('R3-POLSKA_ELA2_v9_OPI1-2lata.Rmd', odbiorcy, list(dane, daneMies), 'R3-Polska-2lata')
generujRaporty('R3-POLSKA_ELA2_v7_OPI1-skrot.Rmd', odbiorcy, list(dane, daneMies), 'R3-Polska-skrot-2lata')
write.csv2(oblicz_wartosci(odbiorcy, list(dane, daneMies), def$Polska.2lata[-(1:2)], def$Polska.2lata[2], def$Polska.2lata[1]), 'Pl2.csv', row.names = F, na = '')