Rename extract_version to extract_schema_version

NAMESPACE

@@ -17,7 +17,7 @@ export(create_target_metadata)
 export(create_target_metadata_item)
 export(create_task_id)
 export(create_task_ids)
-export(extract_version)
+export(extract_schema_version)
 export(validate_config)
 export(validate_hub_config)
 export(validate_model_metadata_schema)

R/config-schema-utils.R

@@ -9,7 +9,7 @@ get_config_file_schema_version <- function(config_path, config) {
     config = config
   )
 
-  version <- extract_version(config_schema_version)
+  version <- extract_schema_version(config_schema_version)
 
   if (length(version) == 0L) {
     cli::cli_abort(

R/create_output_type_item.R

@@ -270,7 +270,7 @@ create_output_type_sample <- function(is_required, output_type_id_type, max_leng
 
   schema <- download_tasks_schema(schema_version, branch)
 
-  if (extract_version(schema$`$id`) < "v3.0.0") {
+  if (extract_schema_version(schema$`$id`) < "v3.0.0") {
     cli::cli_abort(
       "This function is only supported for schema versions {.val v3.0.0} and above."
     )

R/utils.R

@@ -5,6 +5,6 @@
 #'
 #' @return The schema version number as a character string.
 #' @export
-extract_version <- function(id) {
+extract_schema_version <- function(id) {
   stringr::str_extract(id, "v([0-9]\\.){2}[0-9](\\.[0-9]+)?")
 }

tests/testthat/test-utils.R

@@ -1,6 +1,6 @@
-test_that("extract_version works", {
+test_that("extract_schema_version works", {
   expect_equal(
-    extract_version(
+    extract_schema_version(
       "https://raw.githubusercontent.com/Infectious-Disease-Modeling-Hubs/schemas/main/v3.0.0/tasks-schema.json"
     ), "v3.0.0"
   )