add fns name as attribute

Author: spsanderson

R/auto-rw30.R

@@ -66,6 +66,7 @@ rw30 <- function() {
   attr(walks_long, "num_steps") <- num_steps
   attr(walks_long, "mu") <- mu
   attr(walks_long, "sd") <- sd
+  attr(walks_long, "fns") <- "rw30"
 
   return(walks_long)
 }

R/gen-geom-brown-motion.R

@@ -114,7 +114,7 @@ geometric_brownian_motion <- function(.num_walks = 25, .n = 100,
   attr(ret, "initial_value") <- .initial_value
   attr(ret, "delta_time") <- .delta_time
   attr(ret, "return_tibble") <- .return_tibble
-  attr(ret, "motion_type") <- "Geometric Brownian Motion"
+  attr(ret, "fns") <- "geometric_brownian_motion"
 
   return(ret)
 }

R/gen-random-normal-walk.R

@@ -113,6 +113,7 @@ random_normal_walk <- function(.num_walks = 25, .n = 100, .mu = 0, .sd = .1,
   attr(res, "replace")       <- replace
   attr(res, "samp")          <- samp
   attr(res, "samp_size")     <- samp_size
+  attr(res, "fns")           <- "random_normal_walk"
 
   # Return
   return(res)

R/zzz.R

@@ -5,7 +5,7 @@
     "\n",
     "== Welcome to RandomWalker ========================================================",
     "\nIf you find this package useful, please leave a star: ",
-    "\n   https://github.com/spsanderson/RandomWalker'",
+    "\n   https://github.com/spsanderson/RandomWalker",
     "\n",
     "\nIf you encounter a bug or want to request an enhancement please file an issue at:",
     "\n   https://github.com/spsanderson/RandomWalker/issues",

docs/pkgdown.yml

@@ -3,7 +3,7 @@ pkgdown: 2.1.0
 pkgdown_sha: ~
 articles:
   getting-started: getting-started.html
-last_built: 2024-07-16T02:17Z
+last_built: 2024-07-16T02:18Z
 urls:
   reference: https://www.spsanderson.com/RandomWalker/reference
   article: https://www.spsanderson.com/RandomWalker/articles