Running 'testthat.R' [4s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
  > library(testthat)
  > library(sociome)
  > 
  > test_check("sociome")
  -- 1. Error: tibble for one state and multiple counties (@test_arg_tibble_acs.R#
  Can't join on '.fn' x '.fn' because of incompatible types (list / list)
  1: expect_identical(test_get_adi_arg_tibble(geography = "tract", dataset = "acs5", year = 2015, 
         geoid = NULL, state = "oh", county = c("cuyahoga", "erie", "lake", "franklin"), 
         zcta = NULL), tibble::tibble(.fn = list(tidycensus::get_acs), variables = list(testvars_acs2015), 
         year = 2015, survey = "acs5", output = "tidy", geography = list("tract"), geometry = list(FALSE), 
         shift_geo = list(FALSE), cache_table = list(FALSE), key = list(NULL), state = rep("oh", 
             4), county = c("cuyahoga", "erie", "lake", "franklin"))) at testthat/test_arg_tibble_acs.R:346
  2: compare(act$val, exp$val)
  3: compare.tbl_df(act$val, exp$val)
  4: NextMethod("compare")
  5: compare.default(act$val, exp$val)
  6: all.equal(x, y, ...)
  7: all.equal.tbl_df(x, y, ...)
  8: equal_data_frame(target, current, ignore_col_order = ignore_col_order, ignore_row_order = ignore_row_order, 
         convert = convert)
  
  -- 2. Error: tibble for geoids (@test_arg_tibble_decennial2000.R#101)  ---------
  Can't join on '.fn' x '.fn' because of incompatible types (list / list)
  1: expect_identical(test_get_adi_arg_tibble(geography = "tract", dataset = "decennial", 
         year = 2000, geoid = test_geoids, state = NULL, county = NULL, zcta = NULL), 
         tibble::tibble(.fn = list(tidycensus::get_decennial), variables = purrr::lmap(vars2000, 
             rep, 4), sumfile = c(rep("sf1", 4), rep("sf3", 4)), year = 2000, output = "tidy", 
             geography = list("tract"), geometry = list(FALSE), shift_geo = list(FALSE), 
             cache_table = list(FALSE), key = list(NULL), state = c("01", "11", "39", 
                 "09", "01", "11", "39", "09"))) at testthat/test_arg_tibble_decennial2000.R:101
  2: compare(act$val, exp$val)
  3: compare.tbl_df(act$val, exp$val)
  4: NextMethod("compare")
  5: compare.default(act$val, exp$val)
  6: all.equal(x, y, ...)
  7: all.equal.tbl_df(x, y, ...)
  8: equal_data_frame(target, current, ignore_col_order = ignore_col_order, ignore_row_order = ignore_row_order, 
         convert = convert)
  
  -- 3. Error: tibble for state only (@test_arg_tibble_decennial2000.R#230)  -----
  Can't join on '.fn' x '.fn' because of incompatible types (list / list)
  1: expect_identical(test_get_adi_arg_tibble(geography = "tract", dataset = "decennial", 
         year = 2000, geoid = NULL, state = c("de", "dc", "ct"), county = NULL, zcta = NULL), 
         tibble::tibble(.fn = list(tidycensus::get_decennial), variables = purrr::lmap(vars2000, 
             rep, 3L), sumfile = c(rep("sf1", 3L), rep("sf3", 3L)), year = 2000, output = "tidy", 
             geography = list("tract"), geometry = list(FALSE), shift_geo = list(FALSE), 
             cache_table = list(FALSE), key = list(NULL), state = rep(c("de", "dc", "ct"), 
                 2L))) at testthat/test_arg_tibble_decennial2000.R:230
  2: compare(act$val, exp$val)
  3: compare.tbl_df(act$val, exp$val)
  4: NextMethod("compare")
  5: compare.default(act$val, exp$val)
  6: all.equal(x, y, ...)
  7: all.equal.tbl_df(x, y, ...)
  8: equal_data_frame(target, current, ignore_col_order = ignore_col_order, ignore_row_order = ignore_row_order, 
         convert = convert)
  
  -- 4. Error: tibble for one state and multiple counties (@test_arg_tibble_decenn
  Can't join on '.fn' x '.fn' because of incompatible types (list / list)
  1: expect_identical(test_get_adi_arg_tibble(geography = "tract", dataset = "decennial", 
         year = 2000, geoid = NULL, state = "oh", county = c("cuyahoga", "erie", "lake", 
             "franklin"), zcta = NULL), tibble::tibble(.fn = list(tidycensus::get_decennial), 
         variables = purrr::lmap(vars2000, rep, 4L), sumfile = c(rep("sf1", 4L), rep("sf3", 
             4L)), year = 2000, output = "tidy", geography = list("tract"), geometry = list(FALSE), 
         shift_geo = list(FALSE), cache_table = list(FALSE), key = list(NULL), state = rep("oh", 
             8L), county = rep(c("cuyahoga", "erie", "lake", "franklin"), 2L))) at testthat/test_arg_tibble_decennial2000.R:353
  2: compare(act$val, exp$val)
  3: compare.tbl_df(act$val, exp$val)
  4: NextMethod("compare")
  5: compare.default(act$val, exp$val)
  6: all.equal(x, y, ...)
  7: all.equal.tbl_df(x, y, ...)
  8: equal_data_frame(target, current, ignore_col_order = ignore_col_order, ignore_row_order = ignore_row_order, 
         convert = convert)
  
  -- 5. Error: tibble for geoids (@test_arg_tibble_decennial2010.R#101)  ---------
  Can't join on '.fn' x '.fn' because of incompatible types (list / list)
  1: expect_identical(test_get_adi_arg_tibble(geography = "tract", dataset = "decennial", 
         year = 2010, geoid = test_geoids, state = NULL, county = NULL, zcta = NULL), 
         tibble::tibble(.fn = c(rep(list(tidycensus::get_decennial), 4L), rep(list(tidycensus::get_acs), 
             4L)), variables = purrr::lmap(vars2010, rep, 4L), sumfile = c(rep("sf1", 
             4L), rep(list(NULL), 4L)), year = 2010, output = "tidy", geography = list("tract"), 
             geometry = list(FALSE), shift_geo = list(FALSE), cache_table = list(FALSE), 
             key = list(NULL), state = c("01", "11", "39", "09", "01", "11", "39", "09"))) at testthat/test_arg_tibble_decennial2010.R:101
  2: compare(act$val, exp$val)
  3: compare.tbl_df(act$val, exp$val)
  4: NextMethod("compare")
  5: compare.default(act$val, exp$val)
  6: all.equal(x, y, ...)
  7: all.equal.tbl_df(x, y, ...)
  8: equal_data_frame(target, current, ignore_col_order = ignore_col_order, ignore_row_order = ignore_row_order, 
         convert = convert)
  
  -- 6. Error: tibble for state only (@test_arg_tibble_decennial2010.R#234)  -----
  Can't join on '.fn' x '.fn' because of incompatible types (list / list)
  1: expect_identical(test_get_adi_arg_tibble(geography = "tract", dataset = "decennial", 
         year = 2010, geoid = NULL, state = c("de", "dc", "ct"), county = NULL, zcta = NULL), 
         tibble::tibble(.fn = c(rep(list(tidycensus::get_decennial), 3L), rep(list(tidycensus::get_acs), 
             3L)), variables = purrr::lmap(vars2010, rep, 3L), sumfile = c(rep("sf1", 
             3L), rep(list(NULL), 3L)), year = 2010, output = "tidy", geography = list("tract"), 
             geometry = list(FALSE), shift_geo = list(FALSE), cache_table = list(FALSE), 
             key = list(NULL), state = rep(c("de", "dc", "ct"), 2L))) at testthat/test_arg_tibble_decennial2010.R:234
  2: compare(act$val, exp$val)
  3: compare.tbl_df(act$val, exp$val)
  4: NextMethod("compare")
  5: compare.default(act$val, exp$val)
  6: all.equal(x, y, ...)
  7: all.equal.tbl_df(x, y, ...)
  8: equal_data_frame(target, current, ignore_col_order = ignore_col_order, ignore_row_order = ignore_row_order, 
         convert = convert)
  
  -- 7. Error: tibble for one state and multiple counties (@test_arg_tibble_decenn
  Can't join on '.fn' x '.fn' because of incompatible types (list / list)
  1: expect_identical(test_get_adi_arg_tibble(geography = "tract", dataset = "decennial", 
         year = 2010, geoid = NULL, state = "oh", county = c("cuyahoga", "erie", "lake", 
             "franklin"), zcta = NULL), tibble::tibble(.fn = c(rep(list(tidycensus::get_decennial), 
         4L), rep(list(tidycensus::get_acs), 4L)), variables = purrr::lmap(vars2010, rep, 
         4L), sumfile = c(rep("sf1", 4L), rep(list(NULL), 4L)), year = 2010, output = "tidy", 
         geography = list("tract"), geometry = list(FALSE), shift_geo = list(FALSE), cache_table = list(FALSE), 
         key = list(NULL), state = rep("oh", 8L), county = rep(c("cuyahoga", "erie", "lake", 
             "franklin"), 2L))) at testthat/test_arg_tibble_decennial2010.R:358
  2: compare(act$val, exp$val)
  3: compare.tbl_df(act$val, exp$val)
  4: NextMethod("compare")
  5: compare.default(act$val, exp$val)
  6: all.equal(x, y, ...)
  7: all.equal.tbl_df(x, y, ...)
  8: equal_data_frame(target, current, ignore_col_order = ignore_col_order, ignore_row_order = ignore_row_order, 
         convert = convert)
  
  == testthat results  ===========================================================
  [ OK: 18 | SKIPPED: 2 | WARNINGS: 8 | FAILED: 7 ]
  1. Error: tibble for one state and multiple counties (@test_arg_tibble_acs.R#346) 
  2. Error: tibble for geoids (@test_arg_tibble_decennial2000.R#101) 
  3. Error: tibble for state only (@test_arg_tibble_decennial2000.R#230) 
  4. Error: tibble for one state and multiple counties (@test_arg_tibble_decennial2000.R#353) 
  5. Error: tibble for geoids (@test_arg_tibble_decennial2010.R#101) 
  6. Error: tibble for state only (@test_arg_tibble_decennial2010.R#234) 
  7. Error: tibble for one state and multiple counties (@test_arg_tibble_decennial2010.R#358) 
  
  Error: testthat unit tests failed
  Execution halted