Nothing
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"))
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.