switch ::: to :: from epiprocess

dajmcdon · dajmcdon · commit 58980f48d467 · 2025-02-26T11:55:10.000-08:00
diff --git a/R/utils-latency.R b/R/utils-latency.R
@@ -199,7 +199,7 @@ pad_to_end <- function(x, groups, end_date, columns_to_complete = NULL) {
   if (is.null(columns_to_complete)) {
     columns_to_complete <- setdiff(names(x), key_colnames(x))
   }
-  itval <- epiprocess:::guess_period(c(x$time_value, end_date), "time_value")
+  itval <- epiprocess::guess_period(c(x$time_value, end_date), "time_value")
   # get the time values we need to fill in
   completed_time_values <- x %>%
     group_by(across(all_of(groups))) %>%

Original file line number	Diff line number	Diff line change
`@@ -199,7 +199,7 @@ pad_to_end <- function(x, groups, end_date, columns_to_complete = NULL) {`
`199`	`199`	`if (is.null(columns_to_complete)) {`
`200`	`200`	`columns_to_complete <- setdiff(names(x), key_colnames(x))`
`201`	`201`	`}`
`202`		`- itval <- epiprocess:::guess_period(c(x$time_value, end_date), "time_value")`
	`202`	`+ itval <- epiprocess::guess_period(c(x$time_value, end_date), "time_value")`
`203`	`203`	`# get the time values we need to fill in`
`204`	`204`	`completed_time_values <- x %>%`
`205`	`205`	`group_by(across(all_of(groups))) %>%`