Set the type in the reading step

SAFEHR-data · Sep 25, 2024 · 61239f2 · 61239f2
1 parent 32de416
commit 61239f2
Showing 1 changed file with 2 additions and 5 deletions.
diff --git a/R/bundles.R b/R/bundles.R
@@ -46,9 +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) |>
-    dplyr::mutate(
-      domain = domain,
-      concept_id = as.integer(.data$concept_id)
-    )
+    readr::read_csv(col_types = readr::cols(concept_id = readr::col_integer())) |>
+    dplyr::mutate(domain = domain)
 }