Fixes #312

spsanderson · Oct 11, 2022 · 52baa9f · 52baa9f
1 parent 88efcac
commit 52baa9f
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 3 deletions.
diff --git a/NEWS.md b/NEWS.md
@@ -19,6 +19,7 @@ is `dist_type_extractor()` which is used for several functions in the library.
 6. Fix #310 - Update combine-multi-dist to use `dist_type_extractor()`
 7. Fix #311 - Update all `util_dist_stats_tbl()` functions to use `dist_type_extractor()`
 8. Fix #316 - Update all `autoplot` functions for `tidy_bernoulli()`
+9. Fix #312 - UPdate random walk function to use `dist_type_extractor()`
 
 # TidyDensity 1.2.3
 

diff --git a/R/autoplot-randomwalk.R b/R/autoplot-randomwalk.R
@@ -51,9 +51,10 @@ tidy_random_walk_autoplot <- function(.data, .line_size = 1, .geom_rug = FALSE,
   atb <- attributes(.data)
   n <- atb$all$.n
   sims <- atb$all$.num_sims
-  dist_type <- stringr::str_remove(atb$all$tibble_type, "tidy_") %>%
-    stringr::str_replace_all(pattern = "_", " ") %>%
-    stringr::str_to_title()
+  # dist_type <- stringr::str_remove(atb$all$tibble_type, "tidy_") %>%
+  #   stringr::str_replace_all(pattern = "_", " ") %>%
+  #   stringr::str_to_title()
+  dist_type <- dist_type_extractor(atb$all$tibble_type)
 
   sub_title <- paste0(
     "Data Points: ", n, " - ",