Merge pull request #42 from getwilds/documentation

triple zeros
getwilds · Feb 29, 2024 · 60a246b · 60a246b
2 parents 4cab968 + 31ccb9f
commit 60a246b
Show file tree

Hide file tree

Showing 8 changed files with 13 additions and 22 deletions.
diff --git a/NAMESPACE b/NAMESPACE
@@ -1,7 +1,7 @@
 # Generated by roxygen2: do not edit by hand
 
 export("%>%")
-export(area)
+export(demo_crowding)
 export(demo_education)
 export(demo_food)
 export(demo_income)

diff --git a/R/demo-crowding.R b/R/demo-crowding.R
@@ -35,11 +35,6 @@
 #'               race = "black")
 #' }
 #' 
-
-area = "wa"
-areatype = "county"
-race = "all races (includes hispanic)"
-
 demo_crowding <- function(area, areatype, race) {
 
   crowding = "00027"

diff --git a/R/risk-diet-exercise.R b/R/risk-diet-exercise.R
@@ -20,7 +20,9 @@
 #' risk_diet_exercise(diet_exercise = "bmi is healthy, ages 20+",
 #'                    race = "all races (includes hispanic)", 
 #'                    sex = "both sexes")
-#' risk_diet_exercise(diet_exer"bmi is obese, high school survey", "all races (includes hispanic)", "males")
+#' risk_diet_exercise(diet_exercise = "bmi is obese, high school survey",
+#'                    race = "all races (includes hispanic)",
+#'                    sex = "males")
 #' }
 risk_diet_exercise <- function(diet_exercise, race, sex) {
 

diff --git a/man/area.Rd → man/demo_crowding.Rd b/man/area.Rd → man/demo_crowding.Rd
diff --git a/man/mortality_cancer.Rd b/man/mortality_cancer.Rd
diff --git a/man/risk_diet_exercise.Rd b/man/risk_diet_exercise.Rd
diff --git a/tests/testthat/test-handle-whealth.R b/tests/testthat/test-handle-whealth.R
@@ -5,7 +5,7 @@ test_that("handle whealth correctly maps whealth", {
   result <- sapply(c("mammogram in past 2 years, ages 50-74", 
                      "mammogram in past 2 years, ages 40+", 
                      "pap smear in past 3 years, no hysterectomy, ages 21-65"), 
-                   handle_whealth)
+                   handle_women_health)
   expected <- c(`mammogram in past 2 years, ages 50-74` = "v05", 
                 `mammogram in past 2 years, ages 40+` = "v06", 
                 `pap smear in past 3 years, no hysterectomy, ages 21-65` = "v17")
@@ -14,5 +14,5 @@ test_that("handle whealth correctly maps whealth", {
 })
 
 test_that("handle whealth expects errors for incorrect arguments", {
-  expect_error(handle_whealth("carrot"))
+  expect_error(handle_women_health("carrot"))
 })
diff --git a/tests/testthat/test-risk-colorectal-screening.R b/tests/testthat/test-risk-colorectal-screening.R
@@ -16,7 +16,7 @@ screening_options <- list(
   screening3 = risk_colorectal_screening("had colonoscopy in past 10 years, ages 50-75", area = "wa"),
   screening4 = risk_colorectal_screening("home blood stool test in the past year, ages 45-75",
                                          "all races (includes hispanic)", "both sexes"),
-  screening5 = risk_colorectal_screening("receieved at least one recommended crc test, ages 45-75",
+  screening5 = risk_colorectal_screening("received at least one recommended crc test, ages 45-75",
                                          "all races (includes hispanic)", "both sexes")
 )