rename dd_period function

Public-Health-Scotland · May 31, 2022 · e7a89a1 · e7a89a1
1 parent 1687f92
commit e7a89a1
Show file tree

Hide file tree

Showing 5 changed files with 7 additions and 7 deletions.
diff --git a/NAMESPACE b/NAMESPACE
@@ -18,13 +18,13 @@ export(create_hb_test_flags)
 export(create_hscp_test_flags)
 export(create_monthly_beddays)
 export(create_monthly_costs)
-export(dd_period)
 export(end_fy)
 export(find_latest_file)
 export(fix_c3_costs)
 export(get_boxi_extract_path)
 export(get_ch_costs_path)
 export(get_dd_path)
+export(get_dd_period)
 export(get_demog_cohorts_path)
 export(get_dn_costs_path)
 export(get_existing_data_for_tests)

diff --git a/R/00-update_refs.R b/R/00-update_refs.R
@@ -27,6 +27,6 @@ previous_update <- function() {
 #' @return The period for the Delayed Discharge file
 #' as MMMYY_MMMYY
 #' @export
-dd_period <- function() {
+get_dd_period <- function() {
   "Jul16_Dec21"
 }
diff --git a/R/get_dd_path.R b/R/get_dd_path.R
@@ -11,7 +11,7 @@
 #' @seealso \code{\link{get_file_path}} for the generic function.
 get_dd_path <- function(..., dd_period = NULL) {
   if (is.null(dd_period)) {
-    dd_period <- dd_period()
+    dd_period <- get_dd_period()
   }
 
   dd_path <- get_file_path(

diff --git a/man/dd_period.Rd → man/get_dd_period.Rd b/man/dd_period.Rd → man/get_dd_period.Rd
diff --git a/tests/testthat/test-00-update_refs.R b/tests/testthat/test-00-update_refs.R
@@ -13,7 +13,7 @@ test_that("Latest Update string looks valid", {
 })
 
 test_that("Delayed Discharge period string looks valid", {
-  dd_period_string <- dd_period()
+  dd_period_string <- get_dd_period()
 
   expect_type(dd_period_string, "character")
   expect_match(dd_period_string, "Jul16_[A-Z][a-z]{2}[0-9]{2}")