select columns when testing labels

ipeaGIT · Sep 6, 2023 · 66f883a · 66f883a
1 parent bcfbf79
commit 66f883a
Show file tree

Hide file tree

Showing 5 changed files with 5 additions and 5 deletions.
diff --git a/tests/testthat/test_labels_emigration.R b/tests/testthat/test_labels_emigration.R
@@ -10,7 +10,7 @@ testthat::skip_on_cran()
 test_that("add_labels_emigration", {
 
   # sem labels
-  test1a <- read_emigration(year = 2010, add_labels = NULL) |>
+  test1a <- read_emigration(year = 2010, add_labels = NULL, columns = c('abbrev_state', 'V1006')) |>
             filter(abbrev_state == 'RO')
 
   # com labels

diff --git a/tests/testthat/test_labels_families.R b/tests/testthat/test_labels_families.R
@@ -10,7 +10,7 @@ testthat::skip_on_cran()
 test_that("add_labels_families", {
 
   # sem labels
-  test1a <- read_families(year = 2000, add_labels = NULL) |>
+  test1a <- read_families(year = 2000, add_labels = NULL, columns = c('abbrev_state', 'CODV0404_2')) |>
             filter(abbrev_state == 'RO')
 
   # com labels

diff --git a/tests/testthat/test_labels_households.R b/tests/testthat/test_labels_households.R
@@ -11,7 +11,7 @@ test_that("add_labels_households", {
 
   ################################################################### 2010
   # sem labels
-  test1a <- read_households(year = 2010, add_labels = NULL) |>
+  test1a <- read_households(year = 2010, add_labels = NULL, columns = c('abbrev_state', 'V1006')) |>
             filter(abbrev_state == 'RO')
 
   # com labels

diff --git a/tests/testthat/test_labels_mortality.R b/tests/testthat/test_labels_mortality.R
@@ -10,7 +10,7 @@ testthat::skip_on_cran()
 test_that("add_labels_mortality", {
 
   # sem labels
-  test1a <- read_mortality(year = 2010, add_labels = NULL) |>
+  test1a <- read_mortality(year = 2010, add_labels = NULL, columns = c('abbrev_state', 'V0704')) |>
             filter(abbrev_state == 'RO')
 
   # com labels

diff --git a/tests/testthat/test_labels_population.R b/tests/testthat/test_labels_population.R
@@ -11,7 +11,7 @@ test_that("add_labels_population", {
 
   ################################################################### 2010
   # sem labels
-  test1a <- read_population(year = 2010, add_labels = NULL) |>
+  test1a <- read_population(year = 2010, add_labels = NULL, columns = c('abbrev_state', 'V1006')) |>
             filter(abbrev_state == 'RO')
 
   # com labels