tests/testthat/ddvtest/SELECT-1aff6e.R

In majazaloznik/ddvR: Parsing Weekly DDV (VAT) Data from FURS

structure(list(datum = structure(c(0x1.2974p+14, 0x1.2974p+14, 
0x1.2974p+14, 0x1.2974p+14, 0x1.2974p+14, 0x1.2978p+14, 0x1.2978p+14, 
0x1.2978p+14, 0x1.297cp+14, 0x1.297cp+14, 0x1.297cp+14, 0x1.298p+14, 
0x1.298p+14, 0x1.2984p+14, 0x1.2984p+14, 0x1.2988p+14, 0x1.2988p+14, 
0x1.2988p+14, 0x1.298cp+14), class = "Date"), dan = c(14L, 14L, 
14L, 14L, 14L, 15L, 15L, 15L, 16L, 16L, 16L, 17L, 17L, 18L, 18L, 
19L, 19L, 19L, 20L), mesec = c(2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 
2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L), leto = c(2022L, 
2022L, 2022L, 2022L, 2022L, 2022L, 2022L, 2022L, 2022L, 2022L, 
2022L, 2022L, 2022L, 2022L, 2022L, 2022L, 2022L, 2022L, 2022L
), teden = c(7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 7L, 
7L, 7L, 7L, 7L, 7L, 7L, 7L), stopnja = c("22%", "22%", "5%", 
"9,50%", "ostalo", "22%", "22%", "9,50%", "22%", "5%", "ostalo", 
"9,50%", "ostalo", "22%", "9,50%", "5%", "9,50%", "ostalo", "9,50%"
), skd_5 = c("55.900", "88.101", "58.190", "47.290", "86.100", 
"", "64.110", "28.990", "23.610", "08.930", "73.110", "88.101", 
"22.190", "02.200", "93.291", "85.310", "90.040", "11.020", "60.100"
), osnova_davka = c(0x1.8730a3d70a3d7p+8, 0x1.aaa8f5c28f5c3p+7, 
0x1.7137ae147ae14p+10, 0x1.e0d299999999ap+14, 0x1.79d3d70a3d70ap+12, 
0x1.f2e8p+11, 0x1.55p+6, 0x1.07f47ae147ae1p+9, 0x1.6a54b851eb852p+13, 
0x1.a51eb851eb852p+1, 0x1.f1f0a3d70a3d7p+7, 0x1.3266666666666p+4, 
0x1.cde147ae147aep+7, 0x1.237d1eb851eb8p+11, 0x1.208p+8, 0x1.e7ae147ae147bp+2, 
0x1.a3ce147ae147bp+11, 0x1.ep+6, 0x1.d1eb851eb851fp-1), stevilo = c(134L, 
8L, 36L, 2395L, 79L, 6L, 3L, 80L, 101L, 1L, 14L, 1L, 5L, 67L, 
10L, 1L, 327L, 2L, 1L), znesek = c(0x1.08a8f5c28f5c3p+9, 0x1.0447ae147ae14p+8, 
0x1.83aae147ae148p+10, 0x1.077ca8f5c28f6p+15, 0x1.79d3d70a3d70ap+12, 
0x1.305570a3d70a4p+12, 0x1.ap+6, 0x1.21p+9, 0x1.ba0aa3d70a3d7p+13, 
0x1.b99999999999ap+1, 0x1.0db5c28f5c28fp+8, 0x1.4f851eb851eb8p+4, 
0x1.1b570a3d70a3dp+8, 0x1.639eb851eb852p+11, 0x1.3bee147ae147bp+8, 
0x1p+3, 0x1.cbb2e147ae148p+11, 0x1.ep+6, 0x1p+0), znesek_davka = c(0x1.14428f5c28f5cp+7, 
0x1.779999999999ap+5, 0x1.2733333333333p+6, 0x1.7135c28f5c28fp+11, 
0x0p+0, 0x1.b70b851eb851fp+9, 0x1.2cp+4, 0x1.90b851eb851ecp+5, 
0x1.3ed7ae147ae14p+11, 0x1.47ae147ae147bp-3, 0x1.4bd70a3d70a3dp+4, 
0x1.d1eb851eb851fp+0, 0x1.a333333333333p+5, 0x1.0086666666666p+9, 
0x1.b6e147ae147aep+4, 0x1.851eb851eb852p-2, 0x1.3f26666666666p+8, 
0x0p+0, 0x1.70a3d70a3d70ap-4), skd_2 = c("55", "88", "58", "47", 
"86", NA, "64", "28", "23", "08", "73", "88", "22", "02", "93", 
"85", "90", "11", "60"), skd_alpha = c("I", "Q", "J", "G", "Q", 
NA, "K", "C", "C", "B", "M", "Q", "C", "A", "R", "P", "R", "C", 
"J"), skd_2plus = c("55", "88", "58", "47.ZH", "86", NA, "64", 
"28", "23", "08", "73", "88", "22", "02", "93", "85", "90", "11", 
"60"), filter = c("1", "1", "1", "1", "1", "1", "0", "1", "1", 
"1", "1", "1", "1", "1", "1", "1", "1", "1", "1")), class = "data.frame", row.names = c(NA, 
-19L))