rename utility function get_unique_targets (#146)

O957 · web-flow · commit 5df987a3d018 · 2026-02-11T10:12:56.000-08:00
diff --git a/NAMESPACE b/NAMESPACE
@@ -17,7 +17,7 @@ export(get_nhsn_col_name)
 export(get_nssp_col_name)
 export(get_target_data_type)
 export(get_target_label)
-export(get_unique_targets)
+export(get_unique_hub_targets)
 export(included_locations)
 export(is_ed_target)
 export(is_hosp_target)
diff --git a/R/generate_hub_baselines.R b/R/generate_hub_baselines.R
@@ -157,7 +157,7 @@ generate_hub_baseline <- function(
     )
   }
 
-  available_targets <- get_unique_targets(base_hub_path)
+  available_targets <- get_unique_hub_targets(base_hub_path)
 
   if (is.null(targets)) {
     targets <- available_targets
diff --git a/R/generate_hub_ensemble.R b/R/generate_hub_ensemble.R
@@ -107,7 +107,7 @@ generate_hub_ensemble <- function(
     )
   }
 
-  available_targets <- get_unique_targets(base_hub_path)
+  available_targets <- get_unique_hub_targets(base_hub_path)
 
   if (is.null(targets)) {
     targets <- available_targets
diff --git a/R/utils.R b/R/utils.R
@@ -187,7 +187,7 @@ is_ed_target <- function(target) {
 #' @param base_hub_path Path to the base hub directory.
 #' @return Character vector of unique target names.
 #' @export
-get_unique_targets <- function(base_hub_path) {
+get_unique_hub_targets <- function(base_hub_path) {
   targets <- hubData::connect_target_timeseries(base_hub_path) |>
     dplyr::distinct(target) |>
     dplyr::collect() |>
diff --git a/man/get_unique_hub_targets.Rd b/man/get_unique_hub_targets.Rd

Original file line number	Diff line number	Diff line change
`@@ -157,7 +157,7 @@ generate_hub_baseline <- function(`
`157`	`157`	`)`
`158`	`158`	`}`
`159`	`159`
`160`		`- available_targets <- get_unique_targets(base_hub_path)`
	`160`	`+ available_targets <- get_unique_hub_targets(base_hub_path)`
`161`	`161`
`162`	`162`	`if (is.null(targets)) {`
`163`	`163`	`targets <- available_targets`
Original file line number	Diff line number	Diff line change
`@@ -107,7 +107,7 @@ generate_hub_ensemble <- function(`
`107`	`107`	`)`
`108`	`108`	`}`
`109`	`109`
`110`		`- available_targets <- get_unique_targets(base_hub_path)`
	`110`	`+ available_targets <- get_unique_hub_targets(base_hub_path)`
`111`	`111`
`112`	`112`	`if (is.null(targets)) {`
`113`	`113`	`targets <- available_targets`