Skip to content

Commit

Permalink
Style code (GHA)
Browse files Browse the repository at this point in the history
  • Loading branch information
csillasch committed Jan 15, 2025
1 parent f0351af commit 0feb846
Show file tree
Hide file tree
Showing 2 changed files with 5 additions and 7 deletions.
9 changes: 4 additions & 5 deletions tests/testthat/test-get_dataset.R
Original file line number Diff line number Diff line change
Expand Up @@ -57,15 +57,14 @@ test_that("get_dataset works with multiple filters", {

expect_message(
data <- get_dataset("gp-practice-populations",
max_resources = n_resources,
row_filters = list(PracticeCode = c("10002", "10017")),
col_select = columns
)
max_resources = n_resources,
row_filters = list(PracticeCode = c("10002", "10017")),
col_select = columns
)
)

expect_s3_class(data, "tbl_df")
expect_equal(nrow(data), n_resources * 6)
expect_named(data, columns)
expect_true(all(data[["PracticeCode"]] %in% c("10002", "10017")))
})

3 changes: 1 addition & 2 deletions tests/testthat/test-get_resource.R
Original file line number Diff line number Diff line change
Expand Up @@ -85,7 +85,7 @@ test_that("errors on invalid filters", {
res_id = "fd354e4b-6211-48ba-8e4f-8356a5ed4215",
col_select = c("MonthOfDelay", "ReasonForDelay", "NumberOfDelayedBedDays"),
row_filters = c("HBT" = "S08000031", "Month" = 201607)
),
),
regexp = "row_filters: invalid value"
)

Expand All @@ -98,5 +98,4 @@ test_that("errors on invalid filters", {
),
regexp = "col_select: invalid value"
)

})

0 comments on commit 0feb846

Please sign in to comment.