v0.1.1.1

calcita · Oct 30, 2020 · 7b8f629 · 7b8f629
1 parent c2fca18
commit 7b8f629
Show file tree

Hide file tree

Showing 3 changed files with 9 additions and 11 deletions.
diff --git a/R/utils.R b/R/utils.R
@@ -493,10 +493,13 @@ age_groups <- function(data = ech::toy_ech_2018,
 #'
 #' @examples
 #' toy_ech_2018 <- organize_ht11(data = ech::toy_ech_2018, year = 2018)
-organize_ht11 <- function(data = ech::toy_ech_2018,
-                          year = 2018,
-                          ht11 = "ht11",
-                          numero = "numero"){
+
+organize_ht11 <- function(data, year, ht11 = "ht11", numero = "numero") {
+
+  assertthat::assert_that(is.data.frame(data), msg = glue:glue("Sorry... :( \n \t data parameter must be data.frame"))
+  assertthat::assert_that(is.numeric(year), msg = glue:glue("Sorry... :( \n \t year parameter must be a numeric value"))
+  assertthat::assert_that(ht11 %in% names(data), msg =  glue:glue("Sorry... :( \n \t {ht11} is not in data"))
+  assertthat::assert_that(numero %in% names(data), msg =  glue:glue("Sorry... :( \n \t {numero} is not in data"))
 
   if (year %in% 2013:2015) {
     data <- data %>%

diff --git a/man/organize_ht11.Rd b/man/organize_ht11.Rd
diff --git a/tests/testthat/test-utils.R b/tests/testthat/test-utils.R
@@ -9,6 +9,6 @@ test_that("utils works", {
   expect_true("age_groups" %in% names(ech_2018))
   ech_2018 <- age_groups(data = ech::toy_ech_2018, cut = c(2, 4, 11, 17, 24))
   expect_true("age_groups" %in% names(ech_2018))
-  toy_ech_2018 <- organize_ht11(data = ech::toy_ech_2018, year = 2018)
+  toy_ech_2018 <- organize_ht11(data = ech::toy_ech_2018, year = 2014)
   expect_equal(ncol(toy_ech_2018), 581)
 })