tests/testthat/test-parser-sas.R

context("sas setup parse")



test_that("Right number of columns", {
  skip_on_cran()
  expect_equal(nrow(sac_parsed_sas$setup), 197)
  expect_equal(nrow(sex_offender_parsed_sas$setup), 34)
  expect_equal(nrow(ucr1960_parsed_sas$setup), 1448)
  expect_equal(nrow(weimar_parsed_sas$setup), 23)
  expect_equal(nrow(acs_parsed_sas$setup), 6)
  expect_equal(nrow(nibrs_parsed_sas$setup), 20)
  expect_equal(nrow(parole_parsed_sas$setup), 59)
  expect_equal(nrow(prisoners_parsed_sas$setup), 201)
  expect_equal(nrow(ca_vital_parsed_sas$setup), 59)
  expect_equal(nrow(crosswalk_parsed_sas$setup), 29)
  expect_equal(nrow(ucr1985_parsed_sas$setup), 1458)
  expect_equal(nrow(ucr1986_parsed_sas$setup), 1458)
  expect_equal(nrow(ucr2000_parsed_sas$setup), 1448)
  expect_equal(nrow(jail_1987_parsed_sas$setup), 176)
  expect_equal(nrow(jail_2010_parsed_sas$setup), 200)
  expect_equal(nrow(well_being_parsed_sas$setup), 312)
  expect_equal(nrow(corrections_parsed_sas$setup), 14)
  expect_equal(nrow(psid_toy_parsed_sas$setup),  3)
  # expect_equal(nrow(escolar_parsed_sas$setup),  1307)
  expect_equal(nrow(health_nutrition_parsed_sas$setup),  43)
  expect_equal(nrow(india_human_parsed_sas$setup),  337)
  expect_equal(nrow(step_in_parsed_sas$setup), 8)
  expect_equal(nrow(education_1985_parsed_sas$setup), 21)
  expect_equal(nrow(education_1995_parsed_sas$setup), 69)
  expect_equal(nrow(cps_1973_parsed_sas$setup), 269)
  expect_equal(nrow(census_police_parsed_sas$setup), 92)
  expect_equal(nrow(british_crime_teen_parsed_sas$setup), 374)
  expect_equal(nrow(drug_abuse_parsed_sas$setup),         337)
  expect_equal(nrow(detroit_parsed_sas$setup),            369)
  expect_equal(nrow(worry_parsed_sas$setup),              486)
  expect_equal(nrow(cps_2004_parsed_sas$setup),           286)
  expect_equal(nrow(cambridge_parsed_sas$setup), 880)
  expect_equal(nrow(guam_parsed_sas$setup), 115)
  expect_equal(nrow(china_2002_parsed_sas$setup), 259)
  expect_equal(nrow(china_1995_parsed_sas$setup), 102)
  expect_equal(nrow(china_1998_parsed_sas$setup), 51)
  expect_equal(nrow(indonesia_parsed_sas$setup), 10)
  expect_equal(nrow(UN_crime_parsed_sas$setup), 121)
  expect_equal(nrow(county_arrest_parsed_sas$setup), 19)



})


test_that("Column numbers are correct", {
  skip_on_cran()





  expect_equal(head(british_crime_teen_parsed_sas$setup$begin), c(1, 7, 13,
                                                                  16, 18, 19))
  expect_equal(head(british_crime_teen_parsed_sas$setup$end),   c(6, 12, 15,
                                                                  17, 18, 19))
  expect_equal(tail(british_crime_teen_parsed_sas$setup$begin), c(685, 686, 690,
                                                                  691, 695, 696))
  expect_equal(tail(british_crime_teen_parsed_sas$setup$end),   c(685, 689, 690,
                                                                  694, 695, 697))


  expect_equal(head(drug_abuse_parsed_sas$setup$begin), c(1, 27, 53,
                                                          79, 105, 131))
  expect_equal(head(drug_abuse_parsed_sas$setup$end),   c(26, 52, 78,
                                                          104, 130, 156))
  expect_equal(tail(drug_abuse_parsed_sas$setup$begin), c(1161, 1165, 1180,
                                                          1195, 1210, 1212))
  expect_equal(tail(drug_abuse_parsed_sas$setup$end),   c(1164, 1179, 1194,
                                                          1209, 1211, 1215))


  expect_equal(head(detroit_parsed_sas$setup$begin), c(1, 9, 17,
                                                       25, 40, 48))
  expect_equal(head(detroit_parsed_sas$setup$end),   c(8, 16, 24,
                                                       39, 47, 55))
  expect_equal(tail(detroit_parsed_sas$setup$begin), c(4849, 4857, 4865,
                                                       4873, 4881, 4889))
  expect_equal(tail(detroit_parsed_sas$setup$end),   c(4856, 4864, 4872,
                                                       4880, 4888, 4896))


  expect_equal(head(worry_parsed_sas$setup$begin), c(1, 5, 7,
                                                     8, 9, 10))
  expect_equal(head(worry_parsed_sas$setup$end),   c(4, 6, 7,
                                                     8, 9, 10))
  expect_equal(tail(worry_parsed_sas$setup$begin), c(676, 677, 678,
                                                     679, 694, 709))
  expect_equal(tail(worry_parsed_sas$setup$end),   c(676, 677, 678,
                                                     693, 708, 723))


  expect_equal(head(cps_2004_parsed_sas$setup$begin), c(1, 16, 20,
                                                        22, 25, 27))
  expect_equal(head(cps_2004_parsed_sas$setup$end),   c(15, 19, 21,
                                                        24, 26, 28))
  expect_equal(tail(cps_2004_parsed_sas$setup$begin), c(590, 592, 594,
                                                        596, 598, 599))
  expect_equal(tail(cps_2004_parsed_sas$setup$end),   c(591, 593, 595,
                                                        597, 598, 608))


  expect_equal(head(step_in_parsed_sas$setup$begin), c(1, 5, 7,
                                                       18, 31, 35))
  expect_equal(head(step_in_parsed_sas$setup$end),   c(4, 6, 17,
                                                       30, 34, 35))
  expect_equal(tail(step_in_parsed_sas$setup$begin), c(7, 18, 31,
                                                       35, 36, 37))
  expect_equal(tail(step_in_parsed_sas$setup$end),   c(17, 30, 34,
                                                       35, 36, 39))

  expect_equal(head(education_1985_parsed_sas$setup$begin), c(1, 3, 8,
                                                              22, 52, 77))
  expect_equal(head(education_1985_parsed_sas$setup$end),   c(2, 7, 21,
                                                              51, 76, 94))
  expect_equal(tail(education_1985_parsed_sas$setup$begin), c(141, 143, 144,
                                                              145, 151, 152))
  expect_equal(tail(education_1985_parsed_sas$setup$end),   c(142, 143, 144,
                                                              150, 151, 152))

  expect_equal(head(education_1995_parsed_sas$setup$begin), c(1, 3, 8,
                                                              13, 27, 57))
  expect_equal(head(education_1995_parsed_sas$setup$end),   c(2, 7, 12,
                                                              26, 56, 76))
  expect_equal(tail(education_1995_parsed_sas$setup$begin), c(331, 332, 333,
                                                              334, 335, 336))
  expect_equal(tail(education_1995_parsed_sas$setup$end),   c(331, 332, 333,
                                                              334, 335, 336))

  expect_equal(head(cps_1973_parsed_sas$setup$begin), c(1, 2, 11,
                                                        12, 13, 14))
  expect_equal(head(cps_1973_parsed_sas$setup$end),   c(1, 10, 11,
                                                        12, 13, 14))
  expect_equal(tail(cps_1973_parsed_sas$setup$begin), c(554, 561, 568,
                                                        575, 579, 580))
  expect_equal(tail(cps_1973_parsed_sas$setup$end),   c(560, 567, 574,
                                                        578, 579, 582))

  expect_equal(head(census_police_parsed_sas$setup$begin), c(1, 9, 13,
                                                             21, 29, 30))
  expect_equal(head(census_police_parsed_sas$setup$end),   c(8, 12, 20,
                                                             28, 29, 31))
  expect_equal(tail(census_police_parsed_sas$setup$begin), c(619, 645, 647,
                                                             669, 689, 714))
  expect_equal(tail(census_police_parsed_sas$setup$end),   c(644, 646, 668,
                                                             688, 713, 721))





  expect_equal(psid_toy_parsed_sas$setup$begin,
               c(1, 2, 7))

  expect_equal(sac_parsed_sas$setup$begin[1:20], c(1, 3, 6,
                                                   10, 16, 17,
                                                   18, 19, 20,
                                                   21, 22, 23,
                                                   24, 25, 27,
                                                   29, 31, 32,
                                                   33, 34))
  expect_equal(sac_parsed_sas$setup$begin[178:197], c(219, 220, 222,
                                                      223, 224, 226,
                                                      227,  229, 230,
                                                      232, 233, 234,
                                                      236, 237, 239,
                                                      240, 242, 243,
                                                      244, 246))
  expect_equal(sex_offender_parsed_sas$setup$begin, c(1, 4, 6, 13,
                                                      27, 29, 30,
                                                      31, 32, 33,
                                                      34, 35, 36,
                                                      38, 40, 42,
                                                      43, 44, 45,
                                                      46, 47, 48,
                                                      50, 52, 54,
                                                      56, 58, 60,
                                                      62, 64, 66,
                                                      68, 70, 71))
  expect_equal(ucr1960_parsed_sas$setup$begin[1:20], c(1, 2, 4,
                                                       11, 13, 14,
                                                       18, 23, 24,
                                                       31, 38, 42,
                                                       44, 45, 52,
                                                       55, 58, 63,
                                                       66, 69))
  expect_equal(ucr1960_parsed_sas$setup$begin[1429:1448], c(1936, 1937, 1938,
                                                            1939, 1940, 1941,
                                                            1942, 1943, 1944,
                                                            1945, 1946, 1947,
                                                            1948, 1949, 1950,
                                                            1951, 1952, 1953,
                                                            1954, 1955))
  expect_equal(weimar_parsed_sas$setup$begin, c(1, 3, 5, 6, 23, 30, 37, 44, 51, 58, 65, 72,
                                                79, 86, 93, 100, 107, 114, 121, 128, 135,
                                                142, 149))
  expect_equal(acs_parsed_sas$setup$begin, c(1, 3, 4,
                                             8, 18, 19))
  expect_equal(nibrs_parsed_sas$setup$begin, c(1, 3, 5, 14, 26, 34, 42, 72, 74, 76, 77, 78,
                                               79, 80, 89, 93, 97, 98, 106, 133))
  expect_equal(parole_parsed_sas$setup$begin[1:20], c(1, 3, 5, 11, 17, 23, 29, 35, 41, 47,
                                                      53, 59, 65, 71, 77, 83, 89, 95, 101,
                                                      107))
  expect_equal(parole_parsed_sas$setup$begin[40:59], c(222, 228, 230, 231, 237, 239, 240,
                                                       246, 248, 250, 252, 254, 256, 262,
                                                       268, 274, 280, 286, 292, 298))
  expect_equal(ca_vital_parsed_sas$setup$begin, c(1, 3, 7, 12, 14, 16, 17, 18,  19, 21, 23, 25,
                                                  27, 29, 30, 34, 36, 38, 40, 42, 44, 45, 46, 48, 49, 50,
                                                  52, 53, 54, 56, 57, 58, 60, 62, 64, 65,
                                                  67, 71, 74, 76, 81, 83, 87, 91, 102, 104,
                                                  115, 126, 137, 148, 159, 160, 171, 182,
                                                  184, 185, 187, 188, 189))

  expect_equal(crosswalk_parsed_sas$setup$begin, c(1, 2, 4,
                                                   12, 60, 61,
                                                   62, 64, 67,
                                                   98, 101, 103,
                                                   112, 142, 172,
                                                   202, 232, 237,
                                                   239, 248, 257,
                                                   259, 323, 331,
                                                   333, 336, 342,
                                                   346, 391))
  expect_equal(ucr1985_parsed_sas$setup$begin[1:20], c(1, 5, 6,
                                                       8, 13, 15,
                                                       22, 23, 25,
                                                       26, 28, 33,
                                                       35, 36, 44,
                                                       50, 54, 56,
                                                       57, 65))
  expect_equal(ucr1985_parsed_sas$setup$begin[1439:1458], c(5324, 5325, 5326,
                                                            5327, 5328, 5329,
                                                            5330, 5331, 5332,
                                                            5335, 5338, 5341,
                                                            5344, 5347, 5350,
                                                            5353, 5356, 5359,
                                                            5362, 5365))

  expect_equal(ucr1986_parsed_sas$setup$begin[1:20], c(1, 5, 6, 8, 13, 15, 22, 23,
                                                       25, 26, 28, 33, 35, 36, 44,
                                                       50, 54, 56, 57, 65))
  expect_equal(ucr1986_parsed_sas$setup$begin[1439:1458], c(5207, 5208, 5209,
                                                            5210, 5211, 5212,
                                                            5213, 5214, 5215,
                                                            5218, 5222, 5225,
                                                            5228, 5231, 5234,
                                                            5237, 5240, 5243,
                                                            5246, 5249))
  expect_equal(ucr2000_parsed_sas$setup$begin[1:20], c(1, 2, 4, 11, 13, 14, 18, 23, 24,
                                                       31, 39, 43, 45, 46, 53, 56, 59,
                                                       64, 67, 70))
  expect_equal(ucr2000_parsed_sas$setup$begin[1429:1448], c(3710, 3712, 3716,
                                                            3718, 3720, 3722,
                                                            3724, 3728, 3731,
                                                            3734, 3736, 3738,
                                                            3742, 3745, 3748,
                                                            3750, 3752, 3756,
                                                            3757, 3758))

  expect_equal(head(ncvs_parsed_sas$setup$begin), c(1, 7, 10, 12,
                                                    15, 19))
  expect_equal(tail(ncvs_parsed_sas$setup$begin), c(713, 717, 719,
                                                    727, 729, 731))


  expect_equal(head(jail_1987_parsed_sas$setup$begin), c(1, 5, 6,
                                                         7, 10, 13))
  expect_equal(tail(jail_1987_parsed_sas$setup$begin), c(633, 634, 636,
                                                         638, 640, 642))


  expect_equal(head(jail_2010_parsed_sas$setup$begin), c(1, 22, 31,
                                                         33, 78, 123))
  expect_equal(tail(jail_2010_parsed_sas$setup$begin), c(1125, 1127, 1133,
                                                         1135, 1141, 1143))

  expect_equal(corrections_parsed_sas$setup$begin, c(1, 2, 6,
                                                     8, 9, 10,
                                                     11,15, 19,
                                                     23, 27, 28,
                                                     30, 31))


  expect_equal(head(well_being_parsed_sas$setup$begin),
               c(1, 2, 7,
                 9, 10, 13))
  expect_equal(tail(well_being_parsed_sas$setup$begin),
               c(405, 406, 407,
                 408, 409, 418))




  expect_equal(head(health_nutrition_parsed_sas$setup$begin),
               c(1, 6, 9,
                 12, 15, 18))
  expect_equal(tail(health_nutrition_parsed_sas$setup$begin),
               c(118, 121, 124,
                 138, 152, 155))

  expect_equal(head(india_human_parsed_sas$setup$begin),
               c(1, 2, 4,
                 6, 8, 11))
  expect_equal(tail(india_human_parsed_sas$setup$begin),
               c(1022, 1023, 1025,
                 1027, 1028, 1029))



  expect_equal(head(india_human_parsed_sas$setup$end),
               c(1, 3, 5,
                 7, 10, 11))
  expect_equal(tail(india_human_parsed_sas$setup$end),
               c(1022, 1024, 1026,
                 1027, 1028, 1030))

  expect_equal(head(health_nutrition_parsed_sas$setup$end),
               c(5, 8, 11,
                 14, 17, 20))
  expect_equal(tail(health_nutrition_parsed_sas$setup$end),
               c(120, 123, 137,
                 151, 154, 157))


  expect_equal(head(well_being_parsed_sas$setup$end),
               c(1, 6, 8,
                 9, 12, 13))
  expect_equal(tail(well_being_parsed_sas$setup$end),
               c(405, 406, 407,
                 408, 417, 419))

  expect_equal(weimar_parsed_sas$setup$end, c(2, 4, 5,
                                              22, 29, 36, 43, 50, 57, 64, 71, 78,
                                              85, 92, 99, 106, 113, 120, 127, 134, 141, 148,
                                              155))
  expect_equal(acs_parsed_sas$setup$end, c(2, 3, 7, 17, 18, 21))
  expect_equal(nibrs_parsed_sas$setup$end, c(2, 4, 13, 25, 33, 41, 71, 73, 75, 76, 77, 78,
                                             79, 88, 92, 96, 97, 105, 132, 135))
  expect_equal(parole_parsed_sas$setup$end[1:20], c(2, 4, 10, 16, 22, 28, 34, 40, 46, 52,
                                                    58, 64, 70, 76, 82, 88, 94, 100, 106,
                                                    112))
  expect_equal(parole_parsed_sas$setup$end[40:59], c(227, 229, 230, 236, 238, 239, 245,
                                                     247, 249, 251, 253, 255, 261, 267,
                                                     273, 279, 285, 291, 297, 301))
  expect_equal(ca_vital_parsed_sas$setup$end, c(2, 6, 11, 13, 15, 16, 17, 18, 20, 22, 24,
                                                26, 28, 29, 33, 35, 37, 39, 41, 43, 44, 45,
                                                47, 48, 49, 51, 52, 53, 55, 56, 57, 59, 61,
                                                63, 64, 66, 70, 73, 75, 80, 82, 86, 90,
                                                101, 103, 114, 125, 136, 147, 158, 159,
                                                170, 181, 183, 184, 186, 187, 188, 189))

  expect_equal(sac_parsed_sas$setup$end[1:20], c(2, 5, 9, 15, 16, 17, 18, 19, 20, 21, 22,
                                                 23, 24, 26, 28, 30, 31, 32, 33, 34))
  expect_equal(sac_parsed_sas$setup$end[178:197], c(219, 221, 222, 223, 225, 226, 228, 229,
                                                    231, 232, 233, 235, 236, 238, 239, 241,
                                                    242, 243, 245, 246))
  expect_equal(sex_offender_parsed_sas$setup$end, c(3, 5, 12, 26, 28, 29, 30, 31, 32, 33,
                                                    34, 35, 37, 39, 41, 42, 43, 44, 45, 46,
                                                    47, 49, 51, 53, 55, 57, 59, 61, 63, 65,
                                                    67, 69, 70, 71))

  expect_equal(crosswalk_parsed_sas$setup$end, c(1, 3, 11, 59, 60, 61, 63, 66, 97, 100, 102,
                                                 111, 141, 171, 201, 231, 236, 238, 247, 256,
                                                 258, 322, 330, 332, 335, 341, 345, 390,
                                                 393))
  expect_equal(ucr1985_parsed_sas$setup$end[1:20], c(4, 5, 7, 12, 14, 21, 22, 24, 25, 27,
                                                     32, 34, 35, 43, 49, 53, 55, 56, 64, 67))
  expect_equal(ucr1985_parsed_sas$setup$end[1439:1458], c(5324, 5325, 5326, 5327, 5328,
                                                          5329, 5330, 5331, 5334, 5337,
                                                          5340, 5343, 5346, 5349, 5352,
                                                          5355, 5358, 5361, 5364, 5367))
  expect_equal(ucr1960_parsed_sas$setup$end[1:20], c(1, 3, 10, 12,
                                                     13, 17, 22,
                                                     23, 30, 37,
                                                     41, 43, 44,
                                                     51, 54, 57,
                                                     62, 65, 68,
                                                     72))
  expect_equal(ucr1960_parsed_sas$setup$end[1429:1448], c(1936, 1937, 1938, 1939, 1940,
                                                          1941, 1942, 1943, 1944,  1945, 1946,
                                                          1947, 1948, 1949, 1950, 1951,
                                                          1952, 1953, 1954, 1955))



  expect_equal(ucr1986_parsed_sas$setup$end[1:20], c(4, 5, 7, 12, 14, 21, 22, 24,
                                                     25, 27, 32, 34, 35, 43, 49,
                                                     53, 55, 56, 64, 67))
  expect_equal(ucr1986_parsed_sas$setup$end[1439:1458], c(5207, 5208, 5209, 5210,
                                                          5211, 5212, 5213, 5214,
                                                          5217, 5221, 5224, 5227,
                                                          5230, 5233, 5236, 5239,
                                                          5242, 5245, 5248, 5251))
  expect_equal(ucr2000_parsed_sas$setup$end[1:20], c(1, 3, 10, 12, 13, 17, 22, 23,
                                                     30, 38, 42, 44, 45, 52, 55,
                                                     58, 63, 66, 69, 74))
  expect_equal(ucr2000_parsed_sas$setup$end[1429:1448], c(3711, 3715, 3717, 3719,
                                                          3721, 3723, 3727, 3730,
                                                          3733, 3735, 3737, 3741,
                                                          3744, 3747, 3749, 3751,
                                                          3755, 3756, 3757, 3760))

  expect_equal(head(ncvs_parsed_sas$setup$end), c(6, 9, 11, 14, 18, 19))
  expect_equal(tail(ncvs_parsed_sas$setup$end), c(716, 718, 726, 728, 730, 731))

  expect_equal(head(jail_1987_parsed_sas$setup$end), c(4, 5, 6,
                                                       9, 12, 14))
  expect_equal(tail(jail_1987_parsed_sas$setup$end), c(633, 635, 637,
                                                       639, 641, 642))


  expect_equal(head(jail_2010_parsed_sas$setup$end), c(21, 30, 32,
                                                       77, 122, 154))
  expect_equal(tail(jail_2010_parsed_sas$setup$end), c(1126, 1132, 1134,
                                                       1140, 1142, 1150))

  expect_equal(corrections_parsed_sas$setup$end, c(1, 5, 7, 8, 9,
                                                   10, 14, 18, 22,
                                                   26, 27, 29, 30, 31))


  expect_equal(psid_toy_parsed_sas$setup$end,
               c(1, 6, 13))


  expect_equal(head(cambridge_parsed_sas$setup$column_number),
               c("V1", "V2", "V3",
                 "V4", "V5", "V6"))
  expect_equal(head(cambridge_parsed_sas$setup$column_name),
               c("ICPSR_STUDY_NUMBER_8488",
                 "ICPSR_EDITION_NUMBER_2",
                 "ICPSR_PART_NUMBER",
                 "ICPSR_SEQ_ID_NUMBER",
                 "CONVICTED_10_13",
                 "CONVICTED_14_16"))
  expect_equal(tail(cambridge_parsed_sas$setup$column_number),
               c("V875", "V876", "V877",
                 "V878", "V879", "V880"))
  expect_equal(tail(cambridge_parsed_sas$setup$column_name),
               c("DEL_DAMAGE_PROP_W_O_STL",
                 "STEAL_FRM_SLOT_MACHINES",
                 "SHOPLIFT_FROM_SHOPS",
                 "READING_ABILITY",
                 "TAX_EVASION",
                 "POOR_LIVING_CONDITIONS"))


  expect_equal(head(guam_parsed_sas$setup$column_number),
               c("RESVD1", "CERTNO", "RESVD2",
                 "SEQNUM", "RECTYPE", "RESISTAT"))
  expect_equal(head(guam_parsed_sas$setup$column_name),
               c("RESERVED_POSITIONS",
                 "CERTIFICATE_NUMBER",
                 "RESERVED_POSITIONS",
                 "SEQUENCE_NUMBER",
                 "RECORD_TYPE",
                 "RESIDENT_STATUS"))
  expect_equal(tail(guam_parsed_sas$setup$column_number),
               c("RCOND15", "RCOND16", "RCOND17",
                 "RCOND18", "RCOND19", "RCOND20"))
  expect_equal(tail(guam_parsed_sas$setup$column_name),
               c("RECORD_CONDITION",
                 "RECORD_CONDITION",
                 "RECORD_CONDITION",
                 "RECORD_CONDITION",
                 "RECORD_CONDITION",
                 "RECORD_CONDITION"))


  expect_equal(head(china_2002_parsed_sas$setup$column_number),
               c("ORDER", "SM", "COUN",
                 "VILL", "V3_1", "V3_2"))
  expect_equal(head(china_2002_parsed_sas$setup$column_name),
               c("ORDER",
                 "SM",
                 "County_Number",
                 "Village_Number",
                 "Geographical_condition",
                 "Suburb_of_large_middle_city_jiaoqu"))
  expect_equal(tail(china_2002_parsed_sas$setup$column_number),
               c("V3_709A", "V3_709B", "V3_710A",
                 "V3_710B", "V3_8OLD", "V3_8NEW"))
  expect_equal(tail(china_2002_parsed_sas$setup$column_name),
               c("The_amount_loan_for_poverty_relief_in_1998",
                 "The_amount_loan_for_poverty_relief_in_1998",
                 "The_amount_loan_for_poverty_relief_in_1997",
                 "The_amount_loan_for_poverty_relief_in_1997",
                 "V3_8OLD",
                 "V3_8NEW"))


  expect_equal(head(china_1995_parsed_sas$setup$column_number),
               c("N1", "A1", "A2",
                 "A3", "A4", "A5"))
  expect_equal(head(china_1995_parsed_sas$setup$column_name),
               c("N1",
                 "A1",
                 "A2",
                 "A3",
                 "A4",
                 "A5"))
  expect_equal(tail(china_1995_parsed_sas$setup$column_number),
               c("A96", "A97", "A98",
                 "A99", "PROVINCE", "COUNTY"))
  expect_equal(tail(china_1995_parsed_sas$setup$column_name),
               c("A96",
                 "A97",
                 "A98",
                 "A99",
                 "PROVINCE",
                 "COUNTY"))


  expect_equal(head(china_1998_parsed_sas$setup$column_number),
               c("UCODE", "RELATION", "GENDER",
                 "AGE", "STUDENT", "INCOME88"))
  expect_equal(head(china_1998_parsed_sas$setup$column_name),
               c("HOUSEHOLD_CODE",
                 "RELATIONSHIP_TO_HEAD_OF_HOUSEHOLD",
                 "SEX_OF_HOUSEHOLD_MEMBER",
                 "AGE_OF_HOUSEHOLD_MEMBER",
                 "STUDENT_STATUS_OF_HOUSEHOLD_MEMBER",
                 "INCOME_RECIPIENT_IN_1988"))
  expect_equal(tail(china_1998_parsed_sas$setup$column_number),
               c("IT07M", "IT07E", "IT08T",
                 "IT08M", "IT08E", "NHHMEM"))
  expect_equal(tail(china_1998_parsed_sas$setup$column_name),
               c("ESTIMATED_MARKET_PRICE_YUAN",
                 "AMOUNT_PAID_BY_MEMBER_YUAN",
                 "ITEM_TYPE",
                 "ESTIMATED_MARKET_PRICE_YUAN",
                 "AMOUNT_PAID_BY_MEMBER_YUAN",
                 "OF_MEMBERS_IN_HOUSEHOLD"))


  expect_equal(head(indonesia_parsed_sas$setup$column_number),
               c("CASE", "NCOMB", "ITEM",
                 "KS01", "KS02RP", "NCOMB1A"))
  expect_equal(head(indonesia_parsed_sas$setup$column_name),
               c("IFLS_HHLD_NUMBER",
                 "TOTAL_OF_ITEMS_CONSUMED",
                 "TYPES_OF_STAPLE_FOODS_LISTED",
                 "COMBINATION_CODE",
                 "NUMERIC_VALUE_TOTAL_EXPENSE_IN_PAST_WEE",
                 "TOTAL_ITEMS_SELF_PRODUCED"))
  expect_equal(tail(indonesia_parsed_sas$setup$column_number),
               c("KS02RP", "NCOMB1A", "KS03RP",
                 "HHID93", "HHID", "COMMID93"))
  expect_equal(tail(indonesia_parsed_sas$setup$column_name),
               c("NUMERIC_VALUE_TOTAL_EXPENSE_IN_PAST_WEE",
                 "TOTAL_ITEMS_SELF_PRODUCED",
                 "NUMERIC_VALUE_TOTAL_SELF_PRODUCED_CONSU",
                 "HHID_93_EA_plus_HHNUM_plus_00",
                 "case",
                 "COMMUNITY_ID_TO_MATCH_IFLS2_COMMID93"))


  expect_equal(head(UN_crime_parsed_sas$setup$column_number),
               c("ID", "COUNTRY", "NNHOM70N",
                 "NNHOM71N", "NNHOM72N", "NNHOM73N"))
  expect_equal(head(UN_crime_parsed_sas$setup$column_name),
               c("ID",
                 "COUNTRY",
                 "MURDER_CONVICTIONS_1970",
                 "MURDER_CONVICTIONS_1971",
                 "MURDER_CONVICTIONS_1972",
                 "MURDER_CONVICTIONS_1973"))
  expect_equal(tail(UN_crime_parsed_sas$setup$column_number),
               c("PSTF745", "X2", "X3",
                 "X4", "X5", "X6"))
  expect_equal(tail(UN_crime_parsed_sas$setup$column_name),
               c("PRISON_STAFF_1974_1975",
                 "X2",
                 "X3",
                 "X4",
                 "X5",
                 "X6"))


  expect_equal(head(county_arrest_parsed_sas$setup$column_number),
               c("V1", "V2", "V3",
                 "V4", "V5", "V6"))
  expect_equal(head(county_arrest_parsed_sas$setup$column_name),
               c("ICPSR_STUDY_NUMBER",
                 "ICPSR_EDITION_NUMBER",
                 "ICPSR_PART_NUMBER",
                 "ICPSR_SEQUENCE_NUMBER",
                 "STATE_CODE",
                 "COUNTY_CODE"))
  expect_equal(tail(county_arrest_parsed_sas$setup$column_number),
               c("V14", "V15", "V16",
                 "V17", "V18", "V19"))
  expect_equal(tail(county_arrest_parsed_sas$setup$column_name),
               c("ROBBERY",
                 "ASSAULT",
                 "BURGLARY",
                 "LARCENY",
                 "VEHICLE_THEFT",
                 "ARSON"))


})


test_that("Column names are correct", {
  skip_on_cran()

  expect_equal(head(cambridge_parsed_sas$setup$column_number),
               c("V1", "V2", "V3",
                 "V4", "V5", "V6"))
  expect_equal(head(cambridge_parsed_sas$setup$column_name),
               c("ICPSR_STUDY_NUMBER_8488",
                 "ICPSR_EDITION_NUMBER_2",
                 "ICPSR_PART_NUMBER",
                 "ICPSR_SEQ_ID_NUMBER",
                 "CONVICTED_10_13",
                 "CONVICTED_14_16"))
  expect_equal(tail(cambridge_parsed_sas$setup$column_number),
               c("V875", "V876", "V877",
                 "V878", "V879", "V880"))
  expect_equal(tail(cambridge_parsed_sas$setup$column_name),
               c("DEL_DAMAGE_PROP_W_O_STL",
                 "STEAL_FRM_SLOT_MACHINES",
                 "SHOPLIFT_FROM_SHOPS",
                 "READING_ABILITY",
                 "TAX_EVASION",
                 "POOR_LIVING_CONDITIONS"))


  expect_equal(head(guam_parsed_sas$setup$column_number),
               c("RESVD1", "CERTNO", "RESVD2",
                 "SEQNUM", "RECTYPE", "RESISTAT"))
  expect_equal(head(guam_parsed_sas$setup$column_name),
               c("RESERVED_POSITIONS",
                 "CERTIFICATE_NUMBER",
                 "RESERVED_POSITIONS",
                 "SEQUENCE_NUMBER",
                 "RECORD_TYPE",
                 "RESIDENT_STATUS"))
  expect_equal(tail(guam_parsed_sas$setup$column_number),
               c("RCOND15", "RCOND16", "RCOND17",
                 "RCOND18", "RCOND19", "RCOND20"))
  expect_equal(tail(guam_parsed_sas$setup$column_name),
               c("RECORD_CONDITION",
                 "RECORD_CONDITION",
                 "RECORD_CONDITION",
                 "RECORD_CONDITION",
                 "RECORD_CONDITION",
                 "RECORD_CONDITION"))


  expect_equal(head(china_2002_parsed_sas$setup$column_number),
               c("ORDER", "SM", "COUN",
                 "VILL", "V3_1", "V3_2"))
  expect_equal(head(china_2002_parsed_sas$setup$column_name),
               c("ORDER",
                 "SM",
                 "County_Number",
                 "Village_Number",
                 "Geographical_condition",
                 "Suburb_of_large_middle_city_jiaoqu"))
  expect_equal(tail(china_2002_parsed_sas$setup$column_number),
               c("V3_709A", "V3_709B", "V3_710A",
                 "V3_710B", "V3_8OLD", "V3_8NEW"))
  expect_equal(tail(china_2002_parsed_sas$setup$column_name),
               c("The_amount_loan_for_poverty_relief_in_1998",
                 "The_amount_loan_for_poverty_relief_in_1998",
                 "The_amount_loan_for_poverty_relief_in_1997",
                 "The_amount_loan_for_poverty_relief_in_1997",
                 "V3_8OLD",
                 "V3_8NEW"))


  expect_equal(head(china_1995_parsed_sas$setup$column_number),
               c("N1", "A1", "A2",
                 "A3", "A4", "A5"))
  expect_equal(head(china_1995_parsed_sas$setup$column_name),
               c("N1",
                 "A1",
                 "A2",
                 "A3",
                 "A4",
                 "A5"))
  expect_equal(tail(china_1995_parsed_sas$setup$column_number),
               c("A96", "A97", "A98",
                 "A99", "PROVINCE", "COUNTY"))
  expect_equal(tail(china_1995_parsed_sas$setup$column_name),
               c("A96",
                 "A97",
                 "A98",
                 "A99",
                 "PROVINCE",
                 "COUNTY"))


  expect_equal(head(china_1998_parsed_sas$setup$column_number),
               c("UCODE", "RELATION", "GENDER",
                 "AGE", "STUDENT", "INCOME88"))
  expect_equal(head(china_1998_parsed_sas$setup$column_name),
               c("HOUSEHOLD_CODE",
                 "RELATIONSHIP_TO_HEAD_OF_HOUSEHOLD",
                 "SEX_OF_HOUSEHOLD_MEMBER",
                 "AGE_OF_HOUSEHOLD_MEMBER",
                 "STUDENT_STATUS_OF_HOUSEHOLD_MEMBER",
                 "INCOME_RECIPIENT_IN_1988"))
  expect_equal(tail(china_1998_parsed_sas$setup$column_number),
               c("IT07M", "IT07E", "IT08T",
                 "IT08M", "IT08E", "NHHMEM"))
  expect_equal(tail(china_1998_parsed_sas$setup$column_name),
               c("ESTIMATED_MARKET_PRICE_YUAN",
                 "AMOUNT_PAID_BY_MEMBER_YUAN",
                 "ITEM_TYPE",
                 "ESTIMATED_MARKET_PRICE_YUAN",
                 "AMOUNT_PAID_BY_MEMBER_YUAN",
                 "OF_MEMBERS_IN_HOUSEHOLD"))


  expect_equal(head(indonesia_parsed_sas$setup$column_number),
               c("CASE", "NCOMB", "ITEM",
                 "KS01", "KS02RP", "NCOMB1A"))
  expect_equal(head(indonesia_parsed_sas$setup$column_name),
               c("IFLS_HHLD_NUMBER",
                 "TOTAL_OF_ITEMS_CONSUMED",
                 "TYPES_OF_STAPLE_FOODS_LISTED",
                 "COMBINATION_CODE",
                 "NUMERIC_VALUE_TOTAL_EXPENSE_IN_PAST_WEE",
                 "TOTAL_ITEMS_SELF_PRODUCED"))
  expect_equal(tail(indonesia_parsed_sas$setup$column_number),
               c("KS02RP", "NCOMB1A", "KS03RP",
                 "HHID93", "HHID", "COMMID93"))
  expect_equal(tail(indonesia_parsed_sas$setup$column_name),
               c("NUMERIC_VALUE_TOTAL_EXPENSE_IN_PAST_WEE",
                 "TOTAL_ITEMS_SELF_PRODUCED",
                 "NUMERIC_VALUE_TOTAL_SELF_PRODUCED_CONSU",
                 "HHID_93_EA_plus_HHNUM_plus_00",
                 "case",
                 "COMMUNITY_ID_TO_MATCH_IFLS2_COMMID93"))


  expect_equal(head(UN_crime_parsed_sas$setup$column_number),
               c("ID", "COUNTRY", "NNHOM70N",
                 "NNHOM71N", "NNHOM72N", "NNHOM73N"))
  expect_equal(head(UN_crime_parsed_sas$setup$column_name),
               c("ID",
                 "COUNTRY",
                 "MURDER_CONVICTIONS_1970",
                 "MURDER_CONVICTIONS_1971",
                 "MURDER_CONVICTIONS_1972",
                 "MURDER_CONVICTIONS_1973"))
  expect_equal(tail(UN_crime_parsed_sas$setup$column_number),
               c("PSTF745", "X2", "X3",
                 "X4", "X5", "X6"))
  expect_equal(tail(UN_crime_parsed_sas$setup$column_name),
               c("PRISON_STAFF_1974_1975",
                 "X2",
                 "X3",
                 "X4",
                 "X5",
                 "X6"))


  expect_equal(head(county_arrest_parsed_sas$setup$column_number),
               c("V1", "V2", "V3",
                 "V4", "V5", "V6"))
  expect_equal(head(county_arrest_parsed_sas$setup$column_name),
               c("ICPSR_STUDY_NUMBER",
                 "ICPSR_EDITION_NUMBER",
                 "ICPSR_PART_NUMBER",
                 "ICPSR_SEQUENCE_NUMBER",
                 "STATE_CODE",
                 "COUNTY_CODE"))
  expect_equal(tail(county_arrest_parsed_sas$setup$column_number),
               c("V14", "V15", "V16",
                 "V17", "V18", "V19"))
  expect_equal(tail(county_arrest_parsed_sas$setup$column_name),
               c("ROBBERY",
                 "ASSAULT",
                 "BURGLARY",
                 "LARCENY",
                 "VEHICLE_THEFT",
                 "ARSON"))





  expect_equal(sac_parsed_sas$setup$column_number[1:20], c("TRINUM", "SUBNO", "TODDATYR",
                                                           "DATSTAR", "CONSTATE", "Q1JSEX",
                                                           "Q2JAGE", "Q3JETH", "Q4JEDUC",
                                                           "Q5JSUPDP", "Q6JVIC", "Q7JKIDCT",
                                                           "Q8HOWMK", "Q9KNAM", "Q10KAGET",
                                                           "Q11KAGEA", "Q12KSEX", "Q13KVID",
                                                           "Q14INTK", "Q15IMPVK"))
  expect_equal(sac_parsed_sas$setup$column_number[178:197], c("Q123PN3", "Q123BIM3",
                                                              "Q124BGEN", "Q124PN1",
                                                              "Q124BIM1", "Q124PN2",
                                                              "Q124BIM2", "Q124PN3",
                                                              "Q124BIM3", "Q125BEF",
                                                              "Q126PN1", "Q126OTH1",
                                                              "Q126PN2", "Q126OTH2",
                                                              "Q126PN3", "Q126OTH3",
                                                              "KAGE", "VERDICT",
                                                              "DURAT", "DURAT2"))
  expect_equal(sex_offender_parsed_sas$setup$column_number, c("ID", "MEETING", "DATE",
                                                              "CITY", "Q1", "Q2A", "Q2B",
                                                              "Q2C", "Q2D", "Q2E", "Q2F",
                                                              "Q2G", "Q3", "Q4", "Q5",
                                                              "Q6A", "Q6B", "Q6C", "Q6D",
                                                              "Q6E", "Q6F", "Q7", "Q8A",
                                                              "Q8B", "Q9A", "Q9B", "Q9C",
                                                              "Q9D", "Q9E", "Q9F", "Q9G",
                                                              "Q10", "INDEX", "NEWQ9G"))
  expect_equal(ucr1960_parsed_sas$setup$column_number[1:20],  c("V1", "V2", "V3",
                                                                "V4", "V5", "V6",
                                                                "V7", "V8", "V9",
                                                                "V10", "V11", "V12",
                                                                "V13", "V14", "V15",
                                                                "V16", "V17", "V18",
                                                                "V19", "V20"))

  expect_equal(weimar_parsed_sas$setup$column_number, c("V1", "V2", "V3",
                                                        "V4", "V5", "V6",
                                                        "V7", "V8", "V9",
                                                        "V10", "V11", "V12",
                                                        "V13", "V14", "V15",
                                                        "V16", "V17", "V18",
                                                        "V19", "V20", "V21",
                                                        "V22", "V23"))
  expect_equal(acs_parsed_sas$setup$column_number, c("STATEFIP", "GQ", "PERNUM",
                                                     "PERWT", "SEX", "AGE"))
  expect_equal(nibrs_parsed_sas$setup$column_number, c("B1001", "B1002", "B1003", "B1004",
                                                       "B1005", "B1006", "B1007", "B1008",
                                                       "B1009", "B1010", "B1011", "B1012",
                                                       "B1013", "B1014", "B1015", "B1016",
                                                       "B1017", "B1018", "B1019", "B1020"))
  expect_equal(parole_parsed_sas$setup$column_number[1:20], c("STATEID", "STATE", "TOTBEG",
                                                              "ENDISREL", "ENMANREL",
                                                              "ENREINST", "OTHEN", "TOTEN",
                                                              "EXCOM", "EXINCNEW", "EXINCREV",
                                                              "EXINCOTH", "EXTRANS", "EXDTH",
                                                              "EXOTH", "TOTEX", "TOTEND",
                                                              "MALE", "FEML", "TOTGEND"))
  expect_equal(parole_parsed_sas$setup$column_number[40:59], c("ISPNUM", "ISPIN", "EM",
                                                               "EMNUM", "EMIN", "BOOT",
                                                               "BOOTNUM", "BOOTIN",
                                                               "LOCJAIL", "LOCJAILIN",
                                                               "OTHPAR", "ENDOFYEAR",
                                                               "UNKEN", "UNKEX", "UNKGEND",
                                                               "UNKRACE2", "UNKHISP",
                                                               "UNKMAX", "UNKSTAT", "SUPVRATE"))

  expect_equal(ca_vital_parsed_sas$setup$column_number[1:20], c("CNTYJUR", "JURISDIC",
                                                                "BCSNUM", "TOTVICT",
                                                                "TOTOFFEN", "VICSEX",
                                                                "VICRACE", "CRIMEST",
                                                                "RELATN1", "RELATN2",
                                                                "RELATN3", "RELATN4",
                                                                "INCDTIME", "INCDDAY",
                                                                "DEATHYR", "WEAPON",
                                                                "LOCATION", "PRECIP1",
                                                                "PRECIP2", "PRECIP3"))
  expect_equal(ca_vital_parsed_sas$setup$column_number[40:59], c("ZIPCODE", "AGEYEARS",
                                                                 "CENSUS", "ICD10",
                                                                 "DOB",  "VICAGE",
                                                                 "DOD", "ARRDATE1",
                                                                 "ARRDATE2", "ARRDATE3",
                                                                 "ARRDATE4",  "FLAG",
                                                                 "INCDDATE", "INJDATE",
                                                                 "RACE", "SEX",
                                                                 "STATERES", "MARSTAT",
                                                                 "HISPANIC", "MATCH"))

  expect_equal(crosswalk_parsed_sas$setup$column_number, c("SOURCE", "STATE", "UORI",
                                                           "UAGENCY", "UCORI", "UMULTICO",
                                                           "USTATENO", "UCOUNTY", "UCTYNAME",
                                                           "UMSA", "UPOPGRP", "UPOPCOV",
                                                           "UADD1", "UADD2", "UADD3",
                                                           "UADD4", "UADD5",
                                                           "CSTATENO", "CGOVIDNU",
                                                           "CGOVIDST", "CGOVTYPE", "CNAME",
                                                           "CPOP94", "FSTATE", "FCOUNTY",
                                                           "FPLACE", "FMSA", "FMSANAME",
                                                           "FCMSA"))
  expect_equal(ucr1985_parsed_sas$setup$column_number[1:20], c("V1", "V2", "V3",
                                                               "V4", "V5", "V6",
                                                               "V7", "V8", "V9",
                                                               "V10", "V11", "V12",
                                                               "V13", "V14", "V15",
                                                               "V16", "V17", "V18",
                                                               "V19", "V20"))
  expect_equal(ucr1985_parsed_sas$setup$column_number[1439:1458], c("V1439", "V1440",
                                                                    "V1441", "V1442",
                                                                    "V1443", "V1444",
                                                                    "V1445", "V1446",
                                                                    "V1447", "V1448",
                                                                    "V1449", "V1450",
                                                                    "V1451", "V1452",
                                                                    "V1453", "V1454",
                                                                    "V1455", "V1456",
                                                                    "V1457", "V1458"))
  expect_equal(ucr1960_parsed_sas$setup$column_number[1429:1448], c("V1429", "V1430",
                                                                    "V1431", "V1432",
                                                                    "V1433", "V1434",
                                                                    "V1435", "V1436",
                                                                    "V1437", "V1438",
                                                                    "V1439", "V1440",
                                                                    "V1441", "V1442",
                                                                    "V1443", "V1444",
                                                                    "V1445", "V1446",
                                                                    "V1447", "V1448"))

  expect_equal(head(ncvs_parsed_sas$setup$column_number), c("V2001", "V2002", "V2003",
                                                            "V2004", "V2005", "V2006"))
  expect_equal(tail(ncvs_parsed_sas$setup$column_number), c("V4322", "V4323", "V4324",
                                                            "V4325", "V4326", "V4327"))

  expect_equal(head(ncvs_parsed_sas$setup$column_name), c("ICPSR_HOUSEHOLD_NUMBER",
                                                          "YEAR_AND_QUARTER",
                                                          "CENSUS_SAMPLE_NUMBER",
                                                          "PRIMARY_SAMPLING_UNIT",
                                                          "SEGMENT_NUMBER",
                                                          "CHECK_DIGIT"))
  expect_equal(tail(ncvs_parsed_sas$setup$column_name), c("SERIOUSNESS_SCORE",
                                                          "SERIOUSNESS_OLD_SCORE",
                                                          "INCIDENT_WEIGHT",
                                                          "CRIME_SEQUENCE_NO",
                                                          "RECODED_TYPE_OF_CRIME",
                                                          "RELATION_TO_VICTIM"))

  expect_equal(head(jail_1987_parsed_sas$setup$column_number), c("V1", "V2", "V3",
                                                                 "V4", "V5", "V6"))
  expect_equal(tail(jail_1987_parsed_sas$setup$column_number), c("V171", "V172", "V173",
                                                                 "V174", "V175", "V176"))

  expect_equal(head(jail_1987_parsed_sas$setup$column_name), c("ICPSR_STUDY_NUMBER_9074",
                                                               "ICPSR_EDITION_NUMBER_1",
                                                               "ICPSR_PART_NUMBER_1",
                                                               "ICPSR_SEQUENCE_NUMBER",
                                                               "FORM_NUMBER",
                                                               "STATE_CODE"))
  expect_equal(tail(jail_1987_parsed_sas$setup$column_name), c("COURT_ORDER_STAFF_PATTRN",
                                                               "COURT_ORDER_ED_TRAINING",
                                                               "COURT_ORDER_COUNSELLING",
                                                               "COURT_ORDER_FOOD_SERVICE",
                                                               "COURT_ORDER_OTHER",
                                                               "CENSUS_USE_BOX"))


  expect_equal(head(jail_2010_parsed_sas$setup$column_number), c("FACLID21", "JURDID", "STATE",
                                                                 "COUNTY", "FACLNAME", "CITY"))
  expect_equal(tail(jail_2010_parsed_sas$setup$column_number), c("STOLENPROPF",
                                                                 "ESCAPE",
                                                                 "ESCAPEF",
                                                                 "OTHERMAJVIO",
                                                                 "OTHERMAJVIOF",
                                                                 "NCONPOP2"))

  expect_equal(head(jail_2010_parsed_sas$setup$column_name), c("AGENCY_ID",
                                                               "JURISDICTION_ID",
                                                               "STATE",
                                                               "COUNTY_NAME",
                                                               "FACILITY_NAME",
                                                               "CITY"))
  expect_equal(tail(jail_2010_parsed_sas$setup$column_name),
               c("POSSESSION_OF_STOLEN_PROPERTY_FLAG",
                 "S4QIV_4_1F_ESCAPE_OR_ATTEMPTED_ESCAPE",
                 "ESCAPE_OR_ATTEMPTED_ESCAPE_FLAG",
                 "S4QIV_4_1G_ANY_OTHER_MAJOR_VIOLATION_INCLUDING_WORK_SLOWDOWNS_FOOD_STRIKES_SETTING_FIRE",
                 "ANY_OTHER_MAJOR_VIOLATION_INCLUDING_WORK_SLOWDOWNS_FOOD_STRIKES_SETTING_FIRE_RIOTING_ETC_FLAG",
                 "NONCONFINED_POPULATION_CALCULATED"))


  expect_equal(corrections_parsed_sas$setup$column_number, c("SEX",
                                                             "RPTYEAR",
                                                             "STATE",
                                                             "EDUCATION",
                                                             "ADMTYPE",
                                                             "OFFGENERAL",
                                                             "MAND_PRISREL_YEAR",
                                                             "PROJ_PRISREL_YEAR",
                                                             "PARELIG_YEAR",
                                                             "ADMITYR",
                                                             "SENTLGTH",
                                                             "OFFDETAIL",
                                                             "RACE",
                                                             "AGEADMIT"))
  expect_equal(corrections_parsed_sas$setup$column_name,
               c("SEX_OF_INMATE",
                 "YEAR_DATA_WERE_SUBMITTED_TO_NCRP",
                 "STATE_WITH_CUSTODY_OF_INMATE",
                 "HIGHEST_LEVEL_OF_EDUCATION_OF_INMATE",
                 "TYPE_OF_PRISON_ADMISSION",
                 "X5_LEVEL_CATEGORIZATION_OF_MOST_SERIOUS_SENTENCED_OFFENSE",
                 "YEAR_OF_MANDATORY_PRISON_RELEASE",
                 "YEAR_OF_PROJECTED_PRISON_RELEASE",
                 "YEAR_OF_PAROLE_ELIGIBILITY",
                 "YEAR_INMATE_WAS_ADMITTED_TO_PRISON",
                 "MAXIMUM_SENTENCE_LENGTH_FOR_INMATE",
                 "DETAILED_CATEGORIZATION_OF_MOST_SERIOUS_SENTENCED_OFFENSE",
                 "RACE_HISPANIC_ETHNICITY_OF_INMATE",
                 "AGE_AT_ADMISSION"))



  expect_equal(head(well_being_parsed_sas$setup$column_number),
               c("WB16REL", "WB16YRID", "WB16SN",
                 "WB16SEX", "WB16AGE", "WB16IWMODE"))
  expect_equal(head(well_being_parsed_sas$setup$column_name),
               c("RELEASE_NUMBER",
                 "X2015_FAMILY_INTERVIEW_ID_NUMBER",
                 "SEQUENCE_NUMBER_15",
                 "SEX_OF_R",
                 "AGE_OF_R_ON_DEC_31_2015",
                 "MODE_OF_INTERVIEW"))


  expect_equal(tail(well_being_parsed_sas$setup$column_number),
               c("WB16BKSECH", "WB16BKSECI", "WB16BKSECJ",
                 "WB16BKSECK", "WB16WT", "WB16DEV"))
  expect_equal(tail(well_being_parsed_sas$setup$column_name),
               c("WTR_BACKED_UP_SECTION_H",
                 "WTR_BACKED_UP_SECTION_I",
                 "WTR_BACKED_UP_SECTION_J",
                 "WTR_BACKED_UP_SECTION_K",
                 "WELLBEING_CROSS_SECTIONAL_WEIGHT",
                 "DEVICE_TYPE_FOR_WEB_LOGIN"))

  expect_equal(psid_toy_parsed_sas$setup$column_number,
               c("ER66001", "ER66002", "ER71426"))
  expect_equal(psid_toy_parsed_sas$setup$column_name,
               c("RELEASE_NUMBER",
                 "X2017_FAMILY_INTERVIEW_ID_NUMBER",
                 "TOTAL_FAMILY_INCOME_2016"))


  expect_equal(head(health_nutrition_parsed_sas$setup$column_number),
               c("SEQN",
                 "SDDSRVYR",
                 "RIDSTATR",
                 "RIDEXMON",
                 "RIAGENDR",
                 "RIDAGEYR"))
  expect_equal(tail(health_nutrition_parsed_sas$setup$column_number),
               c("MIAINTRP",
                 "AIALANG",
                 "WTINT2YR",
                 "WTMEC2YR",
                 "SDMVPSU",
                 "SDMVSTRA"))

  expect_equal(head(health_nutrition_parsed_sas$setup$column_name),
               c("Respondent_sequence_number",
                 "Data_Release_Number",
                 "Interview_Examination_Status",
                 "Six_month_time_period",
                 "Gender",
                 "Age_at_Screening_Adjudicated_Recode"))
  expect_equal(tail(health_nutrition_parsed_sas$setup$column_name),
               c("Interpreter_used_in_MEC_Interview",
                 "Language_of_ACASI_Interview",
                 "Full_Sample_2_Year_Interview_Weight",
                 "Full_Sample_2_Year_MEC_Exam_Weight",
                 "Masked_Variance_Pseudo_PSU",
                 "Masked_Variance_Pseudo_Stratum"))


  expect_equal(head(india_human_parsed_sas$setup$column_number),
               c("SURVEY",
                 "STATEID",
                 "DISTID",
                 "PSUID",
                 "HHID",
                 "HHSPLITID"))
  expect_equal(tail(india_human_parsed_sas$setup$column_number),
               c("MGYEAR5",
                 "NMIG5",
                 "MGMONTHS5",
                 "MGYEAR1",
                 "NMIG1",
                 "MGMONTHS1"))

  expect_equal(head(india_human_parsed_sas$setup$column_name),
               c("IHDS_I_2005_or_IHDS_II_2012",
                 "State_code",
                 "District_code",
                 "PSU_village_neighborhood_code",
                 "Household_ID_3_digit",
                 "Split_household_ID"))
  expect_equal(tail(india_human_parsed_sas$setup$column_name),
               c("HQ6_4_1_Migrant_five_years_ago_or_less",
                 "HQ6_4_1_migrations_in_last_5_years",
                 "HQ6_4_7_total_months_gone_in_last_5_years",
                 "HQ6_4_8_Migrant_one_year_ago_or_less",
                 "HQ6_4_1_migrations_in_last_1_year",
                 "HQ6_4_7_total_months_gone_in_last_1_year"))








  expect_equal(head(step_in_parsed_sas$setup$column_number),
               c("CID",
                 "RCTR",
                 "FSDATE",
                 "EVENT_DATE",
                 "NR_DAYS",
                 "NO_RECORD"))
  expect_equal(tail(step_in_parsed_sas$setup$column_number),
               c("FSDATE",
                 "EVENT_DATE",
                 "NR_DAYS",
                 "NO_RECORD",
                 "EVENT",
                 "CHARGE"))
  expect_equal(head(step_in_parsed_sas$setup$column_name),
               c("CID",
                 "RCTR",
                 "FSDATE",
                 "EVENT_DATE",
                 "NR_DAYS",
                 "NO_RECORD"))
  expect_equal(tail(step_in_parsed_sas$setup$column_name),
               c("FSDATE",
                 "EVENT_DATE",
                 "NR_DAYS",
                 "NO_RECORD",
                 "EVENT",
                 "CHARGE"))


  expect_equal(head(education_1985_parsed_sas$setup$column_number),
               c("FIPST",
                 "AGENCY",
                 "STID85",
                 "NAME85",
                 "STREET85",
                 "CITY85"))
  expect_equal(tail(education_1985_parsed_sas$setup$column_number),
               c("GSHI85",
                 "FISCAL85",
                 "BOARD85",
                 "CMSA85",
                 "MSC85",
                 "BOUND85"))
  expect_equal(head(education_1985_parsed_sas$setup$column_name),
               c("FIPST",
                 "AGENCY",
                 "STID85",
                 "NAME85",
                 "STREET85",
                 "CITY85"))
  expect_equal(tail(education_1985_parsed_sas$setup$column_name),
               c("GSHI85",
                 "FISCAL85",
                 "BOARD85",
                 "CMSA85",
                 "MSC85",
                 "BOUND85"))


  expect_equal(head(education_1995_parsed_sas$setup$column_number),
               c("FIPST",
                 "AGENCY",
                 "SCHNO",
                 "STID95",
                 "LEANM95",
                 "SEASCH95"))
  expect_equal(tail(education_1995_parsed_sas$setup$column_number),
               c("IASIAN95",
                 "IHISP95",
                 "IBLACK95",
                 "IWHITE95",
                 "IETH95",
                 "IPUTCH95"))
  expect_equal(head(education_1995_parsed_sas$setup$column_name),
               c("FIPS_STATE_CODE_FOR_LOCATION_OF_SCHOOL",
                 "UNIQUE_SYSTEM_ID_NCES_ASSIGNED",
                 "SCHOOL_NUMBER_WITHIN_STATE_NCES",
                 "STATE_AGENCY_ID",
                 "NAME_OF_OPERATING_AGENCY",
                 "STATE_SCHOOL_ID"))
  expect_equal(tail(education_1995_parsed_sas$setup$column_name),
               c("ADJUSTED_ASIAN_PACIFIC_ISLANDER_STU_FLAG",
                 "ADJUSTED_HISPANIC_STUDENTS_FLAG",
                 "ADJUSTED_BLACK_NON_HISPANIC_STUDENT_FLAG",
                 "ADJUSTED_WHITE_NON_HISPANIC_STUDENT_FLAG",
                 "ADJUSTED_ETHNICITY_FLAG",
                 "ADJUSTED_PUPIL_TEACHER_RATIO_FLAG"))


  expect_equal(head(cps_1973_parsed_sas$setup$column_number),
               c("V1001",
                 "V1002",
                 "V1003",
                 "V1004",
                 "V1005",
                 "V1006"))
  expect_equal(tail(cps_1973_parsed_sas$setup$column_number),
               c("V1264",
                 "V1265",
                 "V1266",
                 "V1267",
                 "V1268",
                 "V1269"))
  expect_equal(head(cps_1973_parsed_sas$setup$column_name),
               c("SMON",
                 "HHSEQNUM",
                 "HNUM",
                 "SUBH",
                 "STATS1",
                 "STATS2"))
  expect_equal(tail(cps_1973_parsed_sas$setup$column_name),
               c("AWAIT3",
                 "AWAIT4",
                 "AWAIT5",
                 "ICPSR_STUDY_NUMBER_7616",
                 "ICPSR_EDITION_NUMBER_1",
                 "ICPSR_PART_NUMBER_001"))


  expect_equal(head(census_police_parsed_sas$setup$column_number),
               c("CSLLEA08_ID",
                 "AGCYTYPE",
                 "SUBTYPE1",
                 "SUBTYPE2",
                 "TRIBAL",
                 "Q1A1"))
  expect_equal(tail(census_police_parsed_sas$setup$column_number),
               c("CITY",
                 "STATE",
                 "ZIP",
                 "STATENAME",
                 "COUNTY",
                 "FIPS"))
  expect_equal(head(census_police_parsed_sas$setup$column_name),
               c("AGENCY_IDENTIFIER",
                 "TYPE_OF_AGENCY",
                 "SPECIAL_JURISDICTION_GENERAL_TYPE",
                 "SPECIAL_JURISDICTION_SPECIFIC_TYPE",
                 "TRIBAL_AGENCY_INDICATOR",
                 "Q1A1_FIRST_RESPONSE_TO_CRIMINAL_INCIDENTS"))
  expect_equal(tail(census_police_parsed_sas$setup$column_name),
               c("CITY",
                 "STATE_CODE",
                 "ZIP",
                 "NAME_OF_STATE",
                 "COUNTY_NAME",
                 "FIPS_CODE"))


  expect_equal(head(british_crime_teen_parsed_sas$setup$column_number),
               c("ROW_LAB",
                 "TB_CASE",
                 "AR_CODE",
                 "T_SN",
                 "T_SCRN",
                 "BOOSTER"))
  expect_equal(tail(british_crime_teen_parsed_sas$setup$column_number),
               c("T69",
                 "T70",
                 "T71",
                 "T72",
                 "T73",
                 "T74"))
  expect_equal(head(british_crime_teen_parsed_sas$setup$column_name),
               c("ROW_LAB",
                 "TB_CASE",
                 "AR_CODE",
                 "T_SN",
                 "T_SCRN",
                 "BOOSTER"))
  expect_equal(tail(british_crime_teen_parsed_sas$setup$column_name),
               c("T69",
                 "T70",
                 "T71",
                 "T72",
                 "T73",
                 "T74"))


  expect_equal(head(drug_abuse_parsed_sas$setup$column_number),
               c("DEGREE_SPECIFY_OTHER",
                 "DISCIPLINE",
                 "DISCIPLINE_OTHER",
                 "STATE_CREDENTIALS_SPECIFY",
                 "NATIONAL_CERTIFICATION_OT",
                 "LICENSURE_SPECIFY"))
  expect_equal(tail(drug_abuse_parsed_sas$setup$column_number),
               c("DOCSUP",
                 "DOCLEAD",
                 "EOTDIV",
                 "EOTTOL",
                 "EOTSCO",
                 "EOTOPN"))
  expect_equal(head(drug_abuse_parsed_sas$setup$column_name),
               c("Degree_other",
                 "Discipline",
                 "Discipline_Other",
                 "State_substance_abuse_counseling_credentials_Not_in_CD",
                 "National_certification_Other_Not_in_CD",
                 "Licensure_Specify_Not_in_CD"))
  expect_equal(tail(drug_abuse_parsed_sas$setup$column_name),
               c("Organizational_Support_Subscale_RAND_section_D",
                 "Leadership_sub_scale_section_D",
                 "Divergence_sub_scale_section_E",
                 "Tolerance_for_ambiguity_section_E",
                 "Service_Coordination",
                 "Openness"))


  expect_equal(head(detroit_parsed_sas$setup$column_number),
               c("CASEID",
                 "IWERID",
                 "CASETYPE",
                 "FINALWGT",
                 "STRATUM",
                 "CLUSTER"))
  expect_equal(tail(detroit_parsed_sas$setup$column_number),
               c("J5A",
                 "J5B",
                 "J5C",
                 "J5D",
                 "J6",
                 "J7"))
  expect_equal(head(detroit_parsed_sas$setup$column_name),
               c("CASEID",
                 "IWER_ID",
                 "CASETYPE",
                 "FINAL_SAMPLE_WEIGHT",
                 "STRATUM",
                 "CLUSTER"))
  expect_equal(tail(detroit_parsed_sas$setup$column_name),
               c("IF_NO_WERE_FAMILY_MEMBERS_OR_FRIENDS_PRESENT",
                 "NUMBER_OF_OTHER_PEOPLE_PRESENT",
                 "DID_RESPONDENT_CONSULT_WITH_OTHERS_BEFORE_RESPONDING",
                 "DID_OTHERS_PRESENT_TRY_TO_ANSWER_FOR_RESPONDENT",
                 "DID_R_SEEM_GUARDED_NERVOUS_OR_SUSPICIOUS_ABOUT_THE_INTERVIEW",
                 "WAS_INTERVIEW_CONDUCTED_IN_PERSON_OR_BY_TELEPHONE"))


  expect_equal(head(worry_parsed_sas$setup$column_number),
               c("SUBJ",
                 "VERSION",
                 "PRE1",
                 "POST1",
                 "PRE2",
                 "POST2"))
  expect_equal(tail(worry_parsed_sas$setup$column_number),
               c("HOSPNEXT",
                 "EDUC",
                 "CHILDREN",
                 "BIS",
                 "EXTRAVER",
                 "STABLE"))
  expect_equal(head(worry_parsed_sas$setup$column_name),
               c("Subject_identification_number",
                 "Version",
                 "Overall_how_serious_a_problem_is_patient_safety_in_U_S_healthcare_today",
                 "How_serious_a_problem_is_patient_safety",
                 "Overall_how_serious_a_problem_is_medical_errors_in_U_S_healthcare_today",
                 "How_serious_a_problem_is_medical_errors"))
  expect_equal(tail(worry_parsed_sas$setup$column_name),
               c("How_likely_are_you_to_spend_a_night_in_the_hospital_in_the_coming_year",
                 "Your_highest_education_level",
                 "How_many_children_if_any_do_you_have_at_home",
                 "BIS_Behavioral_Inhibition_scale",
                 "Extraversion_scale",
                 "Stability_scale"))


  expect_equal(head(cps_2004_parsed_sas$setup$column_number),
               c("HRHHID",
                 "HRYEAR4",
                 "HURESPLI",
                 "HUFINAL",
                 "HUSPNISH",
                 "HETENURE"))
  expect_equal(tail(cps_2004_parsed_sas$setup$column_number),
               c("HEQ2C",
                 "HEQ2D",
                 "HEQ2E",
                 "HEQ3",
                 "HRSUPINT",
                 "HWSUPWGT"))
  expect_equal(head(cps_2004_parsed_sas$setup$column_name),
               c("HRHHID",
                 "HRYEAR4",
                 "HURESPLI",
                 "HUFINAL",
                 "HUSPNISH",
                 "HETENURE"))
  expect_equal(tail(cps_2004_parsed_sas$setup$column_name),
               c("HEQ2C",
                 "HEQ2D",
                 "HEQ2E",
                 "HEQ3",
                 "HRSUPINT",
                 "HWSUPWGT"))




})
jacobkap/asciiSetupReader documentation built on July 28, 2023, 7:07 a.m.