Ensure concept IDs are always returned as integers

DESCRIPTION

@@ -8,19 +8,20 @@ License: Apache License (>= 2)
 Encoding: UTF-8
 LazyData: true
 Imports:
-  dplyr (>= 1.0),
-  glue (>= 1.0),
-  purrr (>= 1.0),
-  readr (>= 2.0),
-  vroom (>= 1.0)
+    dplyr (>= 1.0),
+    glue (>= 1.0),
+    purrr (>= 1.0),
+    readr (>= 2.0),
+    rlang (>= 1.1),
+    vroom (>= 1.0)
 Suggests:
-  devtools,
-  pak,
-  pkgload,
-  lintr,
-  stringr,
-  styler,
-  testthat (>= 3.0.0),
-  usethis
+    devtools,
+    pak,
+    pkgload,
+    lintr,
+    stringr,
+    styler,
+    testthat (>= 3.0.0),
+    usethis
 Config/testthat/edition: 3
 RoxygenNote: 7.3.2

NAMESPACE

@@ -7,4 +7,5 @@ importFrom(dplyr,tibble)
 importFrom(glue,glue)
 importFrom(purrr,map_dfr)
 importFrom(readr,read_csv)
+importFrom(rlang,.data)
 importFrom(vroom,problems)

R/bundles.R

@@ -32,8 +32,12 @@ available_bundles <- function(version = "latest") {
 #' @param domain The domain of the bundle.
 #' @param id The ID of the bundle.
 #' @param version The version of the bundle. Default is "latest".
+#'
 #' @return A data frame with the concept data.
 #' @export
+#'
+#' @importFrom rlang .data
+#'
 #' @examples
 #' # Usage with available_bundles, from a single row
 #' smoking <- available_bundles() |> dplyr::filter(bundle_name == "Smoking")
@@ -42,6 +46,6 @@ available_bundles <- function(version = "latest") {
 #' concept_by_bundle(domain = "observation", id = "smoking")
 concept_by_bundle <- function(domain, id, version = "latest") {
   get_raw_dir(version = version, domain, "bundles", glue::glue("{id}.csv")) |>
-    readr::read_csv(show_col_types = FALSE) |>
+    readr::read_csv(col_types = readr::cols(concept_id = readr::col_integer())) |>
     dplyr::mutate(domain = domain)
 }

tests/testthat/test-bundles.R

@@ -20,6 +20,7 @@ test_that("Concept by bundle works with character values", {
   expect_true(nrow(smoking_concepts) > 1, info = "Smoking should have multiple concepts")
   expect_false(any(is.na(smoking_concepts$concept_id)), info = "Concept ids should not be NA")
   expect_true(all(smoking_concepts$domain == "observation"), info = "Domain should be set correctly")
+  expect_type(smoking_concepts$concept_id, "integer")
 })
 
 test_that("Available bundles and concept_by_bundle play nicely together", {