Fixes #135

spsanderson · Nov 8, 2024 · b3545f7 · b3545f7
1 parent 0e2e467
commit b3545f7
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 7 deletions.
diff --git a/R/helpers.R b/R/helpers.R
@@ -578,7 +578,7 @@ NULL
 #' @rdname rand_walk_column_names
 #'
 #' @export
-rand_walk_column_names <- function(.rand_data, .dim_names) {
+rand_walk_column_names <- function(.rand_data, .dim_names, .num_sims, .t) {
   # Set column names
   rand_steps <- stats::setNames(.rand_data, .dim_names)
   rand_steps <- purrr::map(rand_steps, \(x) dplyr::as_tibble(x)) |>
@@ -588,14 +588,13 @@ rand_walk_column_names <- function(.rand_data, .dim_names) {
     rand_steps, \(x) x |>
       unlist(use.names = FALSE)) |>
     dplyr::as_tibble()
-  
+
   # Combine into a tibble
   rand_steps <- dplyr::tibble(
-    walk_number = factor(num_sims),
-    step_number = 1:t
+    walk_number = factor(.num_sims),
+    step_number = 1:.t
   ) |>
     dplyr::bind_cols(rand_steps)
-  
+
   return(rand_steps)
 }
-}
diff --git a/man/rand_walk_column_names.Rd b/man/rand_walk_column_names.Rd