Skip to content

Commit

Permalink
test: use ruta_dir = tempdir() to invoke import function
Browse files Browse the repository at this point in the history
Ref: #206
  • Loading branch information
GeraldineGomez committed Nov 13, 2024
1 parent ecf71cc commit 2f91cb3
Show file tree
Hide file tree
Showing 2 changed files with 24 additions and 12 deletions.
6 changes: 4 additions & 2 deletions tests/testthat/test-incidencia.R
Original file line number Diff line number Diff line change
Expand Up @@ -9,7 +9,8 @@ test_that("`incidencia_geo` funciona correctamente", {
incidencia_mpios <- calcular_incidencia_geo(
data_agrupada =
data_agrupada,
year = 2020
year = 2020,
ruta_dir = tempdir()
)$data_incidencia

expect_s3_class(incidencia_mpios, "data.frame")
Expand Down Expand Up @@ -54,7 +55,8 @@ test_that("`incidencia_sex` funciona correctamente", {
incidencia_sex <-
calcular_incidencia_sex(
data_agrupada = data_agrupada,
dpto = "Antioquia"
dpto = "Antioquia",
ruta_dir = tempdir()
)$data_incidencia

expect_s3_class(incidencia_sex, "data.frame")
Expand Down
30 changes: 20 additions & 10 deletions tests/testthat/test-map.R
Original file line number Diff line number Diff line change
Expand Up @@ -10,7 +10,8 @@ test_that("`mapa` maneja errores correctamente", {
"El parametro data_agrupada debe ser un data.frame"
)
expect_error(
plot_map(data_agrupada = data_limpia, fuente_data = 1),
plot_map(data_agrupada = data_limpia, fuente_data = 1,
ruta_dir = tempdir()),
"El parametro fuente_data debe ser un cadena de caracteres"
)
})
Expand All @@ -29,7 +30,8 @@ test_that("`mapa_colombia` funciona correctamente", {

map <- plot_map(
data_agrupada = data_espacial,
col_distribucion = "casos"
col_distribucion = "casos",
ruta_dir = tempdir()
)

expect_s3_class(map, "ggplot")
Expand All @@ -55,7 +57,8 @@ test_that("`mapa_dpto` funciona correctamente", {
map <- plot_map(
data_agrupada = data_espacial_dpto,
col_codigos = "cod_mun_o",
col_distribucion = "casos"
col_distribucion = "casos",
ruta_dir = tempdir()
)

expect_s3_class(map, "ggplot")
Expand Down Expand Up @@ -83,7 +86,8 @@ test_that("`mapa_mpio` funciona correctamente", {
data_agrupada = data_espacial_mpio,
col_distribucion = "casos",
dpto = "Antioquia",
mpio = "Envigado"
mpio = "Envigado",
ruta_dir = tempdir()
)

expect_s3_class(map, "ggplot")
Expand All @@ -94,7 +98,8 @@ test_that("`mapa_indicidencia_colombia` funciona correctamente", {
geo_ocurrencia[1:4])
incidencia_dptos <- calcular_incidencia_geo(
data_agrupada =
data_agrupada
data_agrupada,
ruta_dir = tempdir()
)$data_incidencia
expect_s3_class(incidencia_dptos, "data.frame")
expect_true("cod_eve" %in% names(incidencia_dptos))
Expand All @@ -104,7 +109,8 @@ test_that("`mapa_indicidencia_colombia` funciona correctamente", {
expect_true("casos" %in% names(incidencia_dptos))
expect_true("incidencia" %in% names(incidencia_dptos))

map <- plot_map(data_agrupada = incidencia_dptos)
map <- plot_map(data_agrupada = incidencia_dptos,
ruta_dir = tempdir())
expect_s3_class(map, "ggplot")
})

Expand All @@ -115,7 +121,8 @@ test_that("`mapa_indicidencia_dpto` funciona correctamente", {
)
incidencia_dpto <- calcular_incidencia_geo(
data_agrupada =
data_agrupada
data_agrupada,
ruta_dir = tempdir()
)$data_incidencia
expect_s3_class(incidencia_dpto, "data.frame")
expect_true("nombre_evento" %in% names(incidencia_dpto))
Expand All @@ -126,7 +133,8 @@ test_that("`mapa_indicidencia_dpto` funciona correctamente", {
expect_true("casos" %in% names(incidencia_dpto))
expect_true("incidencia" %in% names(incidencia_dpto))

map <- plot_map(data_agrupada = incidencia_dpto)
map <- plot_map(data_agrupada = incidencia_dpto,
ruta_dir = tempdir())
expect_s3_class(map, "ggplot")
})

Expand All @@ -142,7 +150,8 @@ test_that("`mapa_indicidencia_mpio` funciona correctamente", {
)
incidencia_mpio <- calcular_incidencia_geo(
data_agrupada =
data_agrupada
data_agrupada,
ruta_dir = tempdir()
)$data_incidencia
expect_s3_class(incidencia_mpio, "data.frame")
expect_true("nombre_evento" %in% names(incidencia_mpio))
Expand All @@ -153,6 +162,7 @@ test_that("`mapa_indicidencia_mpio` funciona correctamente", {
expect_true("casos" %in% names(incidencia_mpio))
expect_true("incidencia" %in% names(incidencia_mpio))

map <- plot_map(data_agrupada = incidencia_mpio)
map <- plot_map(data_agrupada = incidencia_mpio,
ruta_dir = tempdir())
expect_s3_class(map, "ggplot")
})

0 comments on commit 2f91cb3

Please sign in to comment.