Use autoglobal for two remaining functions (#117)

R/globals.R

@@ -20,6 +20,18 @@ utils::globalVariables(c(
   "value", # <make_relative_to_truth>
   "rel_value", # <make_relative_to_truth>
   "value", # <summarise_variable>
+  "id", # <epidist_prepare.epidist_latent_individual>
+  "obs_t", # <epidist_prepare.epidist_latent_individual>
+  "obs_at", # <epidist_prepare.epidist_latent_individual>
+  "ptime_lwr", # <epidist_prepare.epidist_latent_individual>
+  "pwindow_upr", # <epidist_prepare.epidist_latent_individual>
+  "stime_lwr", # <epidist_prepare.epidist_latent_individual>
+  "ptime_upr", # <epidist_prepare.epidist_latent_individual>
+  "stime_upr", # <epidist_prepare.epidist_latent_individual>
+  "woverlap", # <epidist_prepare.epidist_latent_individual>
+  "swindow_upr", # <epidist_prepare.epidist_latent_individual>
+  "delay_central", # <epidist_prepare.epidist_latent_individual>
+  "row_id", # <epidist_prepare.epidist_latent_individual>
   "woverlap", # <epidist_stancode.epidist_latent_individual>
   "row_id", # <epidist_stancode.epidist_latent_individual>
   "ptime_daily", # <observe_process>
@@ -83,5 +95,9 @@ utils::globalVariables(c(
   "stime", # <calculate_censor_delay>
   "stime_daily", # <calculate_censor_delay>
   "ptime_daily", # <event_to_incidence>
+  "rlnorm", # <simulate_secondary>
+  "delay", # <simulate_secondary>
+  "stime", # <simulate_secondary>
+  "ptime", # <simulate_secondary>
   NULL
 ))

R/latent_individual.R

@@ -1,10 +1,8 @@
 #' @method epidist_prepare epidist_latent_individual
 #' @family latent_individual
+#' @autoglobal
 #' @export
 epidist_prepare.epidist_latent_individual <- function(data, ...) {
-  id <- obs_t <- obs_at <- ptime_lwr <- pwindow_upr <- stime_lwr <- NULL
-  stime_upr <- woverlap <- swindow_upr <- stime_upr <- delay_central <- NULL
-  row_id <- ptime_upr <- NULL
   data <- data.table::as.data.table(data)
   data[, id := seq_len(.N)]
   data[, obs_t := obs_at - ptime_lwr]

R/simulate.R

@@ -132,9 +132,9 @@ simulate_gillespie <- function(r = 0.2,
 #' (secondary event latency) and `stime` (the time of the secondary event).
 #'
 #' @family simulate
+#' @autoglobal
 #' @export
 simulate_secondary <- function(linelist, dist = rlnorm, ...) {
-  delay <- ptime <- stime <- NULL
   obs <- data.table::copy(linelist)
 
   obs[, delay := dist(.N, ...)]