context('wczytajOdbiorce')
test_that('wczytajOdbiorce dziala z csv', {
expect_equal(
wczytajOdbiorce('dane/R3-odbiorcy.csv'),
list(
VNKIER = 1, VNSPEC = 1, VTYP = 1, CZYSPEC = 0, VROKSPEC = 0, DATABAZY = '2012-08-10', VILELAT = 3, VROK = 2010,
VMIAN = 'Instytut', VDOP = 'Instytutu', VCEL = 'Instytutowi', VBIER = 'Instytut', VNARZ = 'Instytutem', VMIEJSC = 'Instytucie',
VKIERSPC = 'Socjologii UW, studia dzienne 1 stopnia', V_PRAW = '1 0', V_MUN = '1 1'
)
)
expect_equal(
wczytajOdbiorce('dane/R3-odbiorcy.csv', n = 2),
list(
VNKIER = 2, VNSPEC = 1, VTYP = 4, CZYSPEC = 1, VROKSPEC = 1, DATABAZY = '2012-08-10', VILELAT = 3, VROK = 2010,
VMIAN = 'Wydział', VDOP = 'Wydziału', VCEL = 'Wydziałowi', VBIER = 'Wydział', VNARZ = 'Wydziałem', VMIEJSC = 'Wydziale',
VKIERSPC = 'Nauk Ekonomicznych UW, studia dzienne 1 stopnia, Finanse i Rachunkowość', V_PRAW = '1 0', V_MUN = '1 0'
)
)
})
test_that('wczytajOdbiorce dziala z rdata', {
dane = wczytajOdbiorce('dane/R2-odbiorcy.RData', c('dane/R2-dane.RData', 'dane/daneMies.RData'), dolacz = FALSE)
expect_is(dane, 'list')
expect_equal(sapply(dane, length), setNames(c(rep(1, 6), rep(12505, 67), rep(120, 5)), names(dane)))
expect_equal(dane[c(1, 2:6)], list(grupa = '1_etap_2007', stStopienN = 1, stStopienS = '1 stopnia', stRok = 2007, stKierunek = 'Wydziału Dziennikarstwa i Nauk Politycznych', stUczelnia = 'UW'))
dane = wczytajDane('dane/R2-dane.RData')
dane = wczytajOdbiorce('dane/R2-odbiorcy.RData', list(dane, data.frame()), 2)
expect_is(dane, 'list')
expect_equal(sapply(dane, length), setNames(c(rep(1, 6), rep(12505, 67)), names(dane)))
expect_equal(dane[c(1, 2:6)], list(grupa = '1_etap_2008', stStopienN = 1, stStopienS = '1 stopnia', stRok = 2008, stKierunek = 'Wydziału Dziennikarstwa i Nauk Politycznych', stUczelnia = 'UW'))
})
test_that('wczytajOdbiorce zglasza bledy', {
#expect_error(wczytajOdbiorce('dane/R2-odbiorcy.RData')) # brak potrzebnych danych kontekstowych
expect_error(wczytajOdbiorce('dane/nie ma takiego pliku'))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.