Nothing
tests/testthat/test-trauma_01_population.R
In nemsqar: National Emergency Medical Service Quality Alliance Measure Calculations
testthat::test_that("trauma_01_population rejects invalid argument combinations", {
testthat::expect_error(trauma_01_population(df = tibble::tibble(),
patient_scene_table = tibble::tibble(),
response_table = tibble::tibble(),
situation_table = tibble::tibble(),
vitals_table = tibble::tibble(),
disposition_table = tibble::tibble(),
erecord_01_col = character(),
epatient_15_col = numeric(),
epatient_16_col = character(),
eresponse_05_col = character(),
esituation_02_col = character(),
evitals_23_col = numeric(),
evitals_26_col = numeric(),
evitals_27_col = numeric(),
edisposition_28_col = character(),
transport_disposition_col = character()
),
"requires either a"
)
testthat::expect_error(trauma_01_population(patient_scene_table = list(),
response_table = tibble::tibble(),
situation_table = tibble::tibble(),
vitals_table = tibble::tibble(),
disposition_table = tibble::tibble(),
erecord_01_col = character(),
incident_date_col = NULL,
patient_DOB_col = NULL,
epatient_15_col = numeric(),
epatient_16_col = character(),
eresponse_05_col = character(),
esituation_02_col = character(),
evitals_23_col = numeric(),
evitals_26_col = numeric(),
evitals_27_col = numeric(),
edisposition_28_col = character(),
transport_disposition_col = character()
),
"One or more of the tables passed to"
)
})
testthat::test_that("trauma_01_population rejects missing required column arguments", {
testthat::expect_error(trauma_01_population(df = tibble::tibble(), epatient_15_col = "Age"),
"One or more of the \\*_col arguments is missing")
})
testthat::test_that("trauma_01_population rejects non-dataframe inputs", {
testthat::expect_error(trauma_01_population(df = list()),
"One or more")
testthat::expect_error(trauma_01_population(patient_scene_table = matrix()),
"One or more")
})
testthat::test_that("trauma_01_population validates date column formats", {
df <- tibble::tibble(erecord_01 = character(),
incident_date = character(),
patient_DOB = character(),
epatient_15 = numeric(),
epatient_16 = character(),
eresponse_05 = character(),
esituation_02 = character(),
evitals_23 = numeric(),
evitals_26 = numeric(),
evitals_27 = numeric(),
edisposition_28 = character(),
transport_disposition = character()
)
testthat::expect_error(
trauma_01_population(
df,
erecord_01_col = erecord_01,
incident_date_col = incident_date,
patient_DOB_col = patient_dob,
epatient_15_col = epatient_15,
epatient_16_col = epatient_16,
eresponse_05_col = eresponse_05,
esituation_02_col = esituation_02,
evitals_23_col = evitals_23,
evitals_26_col = evitals_26,
evitals_27_col = evitals_27,
transport_disposition_col = edisposition_30
)
)
testthat::expect_error(
trauma_01_population(
patient_scene_table = tibble::tibble(),
response_table = tibble::tibble(),
situation_table = tibble::tibble(),
vitals_table = tibble::tibble(),
disposition_table = tibble::tibble(),
erecord_01_col = character(),
incident_date_col = NULL,
patient_DOB_col = NULL,
epatient_15_col = numeric(),
epatient_16_col = character(),
eresponse_05_col = character(),
esituation_02_col = character(),
evitals_23_col = numeric(),
evitals_26_col = numeric(),
evitals_27_col = numeric(),
edisposition_28_col = character(),
transport_disposition_col = character()
)
)
})
testthat::test_that("trauma_01_population fails with unknown columns", {
df <- tibble::tibble(
erecord_01 = c("R1", "R2", "R3", "R4", "R5"),
epatient_15 = c(34, 5, 45, 2, 60), # Ages
epatient_16 = c("Years", "Years", "Years", "Months", "Years"),
eresponse_05 = rep(2205001, 5),
esituation_02 = rep("Yes", 5),
evitals_23 = rep(15, 5),
evitals_26 = rep("Alert", 5),
evitals_27 = c(0, 2, 4, 6, 8),
edisposition_28 = rep(4228001, 5),
edisposition_30 = c(4230001, 4230003, 4230001, 4230007, 4230007)
)
testthat::expect_error(trauma_01_population(df,
erecord_01_col = erecord_01,
epatient_15_col = epatient_15,
epatient_16_col = epatient_16,
incident_date_col = NULL,
patient_DOB_col = NULL,
eresponse_05_col = eresponse_05,
esituation_02_col = esituation_02,
evitals_23_col = evitals_23,
evitals_26_col = evitals_26,
evitals_27_col = evitals_27,
edisposition_28_col = "dummy",
transport_disposition_col = "edisposition_30"
),
"exist"
)
})
testthat::test_that("trauma_01_population correctly classifies patient age", {
df <- tibble::tibble(
erecord_01 = c("R1", "R2", "R3", "R4", "R5"),
incident_date = as.Date(c("2025-01-01", "2025-01-05", "2025-02-01", "2025-01-01", "2025-06-01")),
patient_dob = as.Date(c("2000-01-01", "2020-01-01", "2023-02-01", "2023-01-01", "1970-06-01")),
epatient_15 = c(25, 5, 2, 2, 55), # Ages
epatient_16 = c("Years", "Years", "Years", "Years", "Years"),
eresponse_05 = rep(2205001, 5),
esituation_02 = rep("Yes", 5),
evitals_23 = rep(15, 5),
evitals_26 = rep("Alert", 5),
evitals_27 = c(0, 2, 4, 6, 8),
edisposition_28 = rep(4228001, 5),
edisposition_30 = c(4230001, 4230003, 4230001, 4230007, 4230007)
)
result <- trauma_01_population(df,
erecord_01_col = erecord_01,
epatient_15_col = epatient_15,
epatient_16_col = epatient_16,
incident_date_col = incident_date,
patient_DOB_col = patient_dob,
eresponse_05_col = eresponse_05,
esituation_02_col = esituation_02,
evitals_23_col = evitals_23,
evitals_26_col = evitals_26,
evitals_27_col = evitals_27,
edisposition_28_col = edisposition_28,
transport_disposition_col = edisposition_30
)
testthat::expect_true(all(result$adults$system_age_adult == TRUE))
testthat::expect_true(all(result$adults$system_age_minor == FALSE))
})
testthat::test_that("trauma_01_population correctly filters 911 calls", {
df <- tibble::tibble(
erecord_01 = c("R1", "R2", "R3", "R4", "R5"),
epatient_15 = c(34, 5, 45, 2, 60), # Ages
epatient_16 = c("Years", "Years", "Years", "Months", "Years"),
eresponse_05 = rep(2205001, 5),
esituation_02 = rep("Yes", 5),
evitals_23 = rep(15, 5),
evitals_26 = rep("Alert", 5),
evitals_27 = c(0, 2, 4, 6, 8),
edisposition_28 = rep(4228001, 5),
edisposition_30 = c(4230001, 4230003, 4230001, 4230007, 4230007)
)
result <- trauma_01_population(df,
erecord_01_col = erecord_01,
epatient_15_col = epatient_15,
epatient_16_col = epatient_16,
incident_date_col = NULL,
patient_DOB_col = NULL,
eresponse_05_col = eresponse_05,
esituation_02_col = esituation_02,
evitals_23_col = evitals_23,
evitals_26_col = evitals_26,
evitals_27_col = evitals_27,
edisposition_28_col = edisposition_28,
transport_disposition_col = edisposition_30
)
emergency_calls <- result$filter_process |>
dplyr::filter(filter == "911 calls") |>
dplyr::pull(count)
testthat::expect_equal(nrow(result$filter_process), 11)
testthat::expect_equal(emergency_calls, 5)
})
testthat::test_that("trauma_01_population runs correctly with table inputs", {
# create tables to test correct functioning
patient_table <- tibble::tibble(
erecord_01 = c("R1", "R2", "R3", "R4", "R5"),
incident_date = as.Date(c("2025-01-01", "2025-01-05", "2025-02-01", "2025-01-01", "2025-06-01")),
patient_dob = as.Date(c("2000-01-01", "2020-01-01", "2023-02-01", "2023-01-01", "1970-06-01")),
epatient_15 = c(25, 5, 2, 2, 55), # Ages
epatient_16 = c("Years", "Years", "Years", "Years", "Years")
)
response_table <- tibble::tibble(
erecord_01 = c("R1", "R2", "R3", "R4", "R5"),
eresponse_05 = rep(2205001, 5)
)
situation_table <- tibble::tibble(
erecord_01 = c("R1", "R2", "R3", "R4", "R5"),
esituation_02 = rep("Yes", 5),
)
vitals_table <- tibble::tibble(
erecord_01 = c("R1", "R2", "R3", "R4", "R5"),
evitals_23 = rep(15, 5),
evitals_26 = rep("Alert", 5),
evitals_27 = c(0, 2, 4, 6, 8)
)
disposition_table <- tibble::tibble(
erecord_01 = c("R1", "R2", "R3", "R4", "R5"),
edisposition_28 = rep(4228001, 5),
edisposition_30 = c(4230001, 4230003, 4230001, 4230007, 4230007)
)
# test the success of the function
result <- trauma_01_population(patient_scene_table = patient_table,
response_table = response_table,
situation_table = situation_table,
vitals_table = vitals_table,
disposition_table = disposition_table,
erecord_01_col = erecord_01,
epatient_15_col = epatient_15,
epatient_16_col = epatient_16,
incident_date_col = incident_date,
patient_DOB_col = patient_dob,
eresponse_05_col = eresponse_05,
esituation_02_col = esituation_02,
evitals_23_col = evitals_23,
evitals_26_col = evitals_26,
evitals_27_col = evitals_27,
edisposition_28_col = edisposition_28,
transport_disposition_col = edisposition_30
)
testthat::expect_equal(nrow(result$filter_process), 11)
testthat::expect_true(is.list(result))
})
Try the nemsqar package in your browser
Any scripts or data that you put into this service are public.
nemsqar documentation built on Aug. 8, 2025, 6:15 p.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
testthat::test_that("trauma_01_population rejects invalid argument combinations", {
testthat::expect_error(trauma_01_population(df = tibble::tibble(),
patient_scene_table = tibble::tibble(),
response_table = tibble::tibble(),
situation_table = tibble::tibble(),
vitals_table = tibble::tibble(),
disposition_table = tibble::tibble(),
erecord_01_col = character(),
epatient_15_col = numeric(),
epatient_16_col = character(),
eresponse_05_col = character(),
esituation_02_col = character(),
evitals_23_col = numeric(),
evitals_26_col = numeric(),
evitals_27_col = numeric(),
edisposition_28_col = character(),
transport_disposition_col = character()
),
"requires either a"
)
testthat::expect_error(trauma_01_population(patient_scene_table = list(),
response_table = tibble::tibble(),
situation_table = tibble::tibble(),
vitals_table = tibble::tibble(),
disposition_table = tibble::tibble(),
erecord_01_col = character(),
incident_date_col = NULL,
patient_DOB_col = NULL,
epatient_15_col = numeric(),
epatient_16_col = character(),
eresponse_05_col = character(),
esituation_02_col = character(),
evitals_23_col = numeric(),
evitals_26_col = numeric(),
evitals_27_col = numeric(),
edisposition_28_col = character(),
transport_disposition_col = character()
),
"One or more of the tables passed to"
)
})
testthat::test_that("trauma_01_population rejects missing required column arguments", {
testthat::expect_error(trauma_01_population(df = tibble::tibble(), epatient_15_col = "Age"),
"One or more of the \\*_col arguments is missing")
})
testthat::test_that("trauma_01_population rejects non-dataframe inputs", {
testthat::expect_error(trauma_01_population(df = list()),
"One or more")
testthat::expect_error(trauma_01_population(patient_scene_table = matrix()),
"One or more")
})
testthat::test_that("trauma_01_population validates date column formats", {
df <- tibble::tibble(erecord_01 = character(),
incident_date = character(),
patient_DOB = character(),
epatient_15 = numeric(),
epatient_16 = character(),
eresponse_05 = character(),
esituation_02 = character(),
evitals_23 = numeric(),
evitals_26 = numeric(),
evitals_27 = numeric(),
edisposition_28 = character(),
transport_disposition = character()
)
testthat::expect_error(
trauma_01_population(
df,
erecord_01_col = erecord_01,
incident_date_col = incident_date,
patient_DOB_col = patient_dob,
epatient_15_col = epatient_15,
epatient_16_col = epatient_16,
eresponse_05_col = eresponse_05,
esituation_02_col = esituation_02,
evitals_23_col = evitals_23,
evitals_26_col = evitals_26,
evitals_27_col = evitals_27,
transport_disposition_col = edisposition_30
)
)
testthat::expect_error(
trauma_01_population(
patient_scene_table = tibble::tibble(),
response_table = tibble::tibble(),
situation_table = tibble::tibble(),
vitals_table = tibble::tibble(),
disposition_table = tibble::tibble(),
erecord_01_col = character(),
incident_date_col = NULL,
patient_DOB_col = NULL,
epatient_15_col = numeric(),
epatient_16_col = character(),
eresponse_05_col = character(),
esituation_02_col = character(),
evitals_23_col = numeric(),
evitals_26_col = numeric(),
evitals_27_col = numeric(),
edisposition_28_col = character(),
transport_disposition_col = character()
)
)
})
testthat::test_that("trauma_01_population fails with unknown columns", {
df <- tibble::tibble(
erecord_01 = c("R1", "R2", "R3", "R4", "R5"),
epatient_15 = c(34, 5, 45, 2, 60), # Ages
epatient_16 = c("Years", "Years", "Years", "Months", "Years"),
eresponse_05 = rep(2205001, 5),
esituation_02 = rep("Yes", 5),
evitals_23 = rep(15, 5),
evitals_26 = rep("Alert", 5),
evitals_27 = c(0, 2, 4, 6, 8),
edisposition_28 = rep(4228001, 5),
edisposition_30 = c(4230001, 4230003, 4230001, 4230007, 4230007)
)
testthat::expect_error(trauma_01_population(df,
erecord_01_col = erecord_01,
epatient_15_col = epatient_15,
epatient_16_col = epatient_16,
incident_date_col = NULL,
patient_DOB_col = NULL,
eresponse_05_col = eresponse_05,
esituation_02_col = esituation_02,
evitals_23_col = evitals_23,
evitals_26_col = evitals_26,
evitals_27_col = evitals_27,
edisposition_28_col = "dummy",
transport_disposition_col = "edisposition_30"
),
"exist"
)
})
testthat::test_that("trauma_01_population correctly classifies patient age", {
df <- tibble::tibble(
erecord_01 = c("R1", "R2", "R3", "R4", "R5"),
incident_date = as.Date(c("2025-01-01", "2025-01-05", "2025-02-01", "2025-01-01", "2025-06-01")),
patient_dob = as.Date(c("2000-01-01", "2020-01-01", "2023-02-01", "2023-01-01", "1970-06-01")),
epatient_15 = c(25, 5, 2, 2, 55), # Ages
epatient_16 = c("Years", "Years", "Years", "Years", "Years"),
eresponse_05 = rep(2205001, 5),
esituation_02 = rep("Yes", 5),
evitals_23 = rep(15, 5),
evitals_26 = rep("Alert", 5),
evitals_27 = c(0, 2, 4, 6, 8),
edisposition_28 = rep(4228001, 5),
edisposition_30 = c(4230001, 4230003, 4230001, 4230007, 4230007)
)
result <- trauma_01_population(df,
erecord_01_col = erecord_01,
epatient_15_col = epatient_15,
epatient_16_col = epatient_16,
incident_date_col = incident_date,
patient_DOB_col = patient_dob,
eresponse_05_col = eresponse_05,
esituation_02_col = esituation_02,
evitals_23_col = evitals_23,
evitals_26_col = evitals_26,
evitals_27_col = evitals_27,
edisposition_28_col = edisposition_28,
transport_disposition_col = edisposition_30
)
testthat::expect_true(all(result$adults$system_age_adult == TRUE))
testthat::expect_true(all(result$adults$system_age_minor == FALSE))
})
testthat::test_that("trauma_01_population correctly filters 911 calls", {
df <- tibble::tibble(
erecord_01 = c("R1", "R2", "R3", "R4", "R5"),
epatient_15 = c(34, 5, 45, 2, 60), # Ages
epatient_16 = c("Years", "Years", "Years", "Months", "Years"),
eresponse_05 = rep(2205001, 5),
esituation_02 = rep("Yes", 5),
evitals_23 = rep(15, 5),
evitals_26 = rep("Alert", 5),
evitals_27 = c(0, 2, 4, 6, 8),
edisposition_28 = rep(4228001, 5),
edisposition_30 = c(4230001, 4230003, 4230001, 4230007, 4230007)
)
result <- trauma_01_population(df,
erecord_01_col = erecord_01,
epatient_15_col = epatient_15,
epatient_16_col = epatient_16,
incident_date_col = NULL,
patient_DOB_col = NULL,
eresponse_05_col = eresponse_05,
esituation_02_col = esituation_02,
evitals_23_col = evitals_23,
evitals_26_col = evitals_26,
evitals_27_col = evitals_27,
edisposition_28_col = edisposition_28,
transport_disposition_col = edisposition_30
)
emergency_calls <- result$filter_process |>
dplyr::filter(filter == "911 calls") |>
dplyr::pull(count)
testthat::expect_equal(nrow(result$filter_process), 11)
testthat::expect_equal(emergency_calls, 5)
})
testthat::test_that("trauma_01_population runs correctly with table inputs", {
# create tables to test correct functioning
patient_table <- tibble::tibble(
erecord_01 = c("R1", "R2", "R3", "R4", "R5"),
incident_date = as.Date(c("2025-01-01", "2025-01-05", "2025-02-01", "2025-01-01", "2025-06-01")),
patient_dob = as.Date(c("2000-01-01", "2020-01-01", "2023-02-01", "2023-01-01", "1970-06-01")),
epatient_15 = c(25, 5, 2, 2, 55), # Ages
epatient_16 = c("Years", "Years", "Years", "Years", "Years")
)
response_table <- tibble::tibble(
erecord_01 = c("R1", "R2", "R3", "R4", "R5"),
eresponse_05 = rep(2205001, 5)
)
situation_table <- tibble::tibble(
erecord_01 = c("R1", "R2", "R3", "R4", "R5"),
esituation_02 = rep("Yes", 5),
)
vitals_table <- tibble::tibble(
erecord_01 = c("R1", "R2", "R3", "R4", "R5"),
evitals_23 = rep(15, 5),
evitals_26 = rep("Alert", 5),
evitals_27 = c(0, 2, 4, 6, 8)
)
disposition_table <- tibble::tibble(
erecord_01 = c("R1", "R2", "R3", "R4", "R5"),
edisposition_28 = rep(4228001, 5),
edisposition_30 = c(4230001, 4230003, 4230001, 4230007, 4230007)
)
# test the success of the function
result <- trauma_01_population(patient_scene_table = patient_table,
response_table = response_table,
situation_table = situation_table,
vitals_table = vitals_table,
disposition_table = disposition_table,
erecord_01_col = erecord_01,
epatient_15_col = epatient_15,
epatient_16_col = epatient_16,
incident_date_col = incident_date,
patient_DOB_col = patient_dob,
eresponse_05_col = eresponse_05,
esituation_02_col = esituation_02,
evitals_23_col = evitals_23,
evitals_26_col = evitals_26,
evitals_27_col = evitals_27,
edisposition_28_col = edisposition_28,
transport_disposition_col = edisposition_30
)
testthat::expect_equal(nrow(result$filter_process), 11)
testthat::expect_true(is.list(result))
})
Try the nemsqar package in your browser
Any scripts or data that you put into this service are public.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.