Don't export unit_time_delta (yet)

We may later need it to make default args, in which case we should probably
export to be less "magical".

Author: brookslogan

NAMESPACE

@@ -98,7 +98,6 @@ export(slice)
 export(sum_groups_epi_df)
 export(time_column_names)
 export(ungroup)
-export(unit_time_delta)
 export(unnest)
 export(validate_epi_archive)
 export(version_column_names)

R/utils.R

@@ -1166,7 +1166,7 @@ time_delta_to_n_steps <- function(time_delta, time_type) {
 #'   integerish vector `k` advances by `k` steps (with vectorization,
 #'   recycling).
 #'
-#' @export
+#' @keywords internal
 unit_time_delta <- function(time_type) {
   switch(time_type,
     day = as.difftime(1, units = "days"),