Merge pull request #322 from spsanderson/development

Fixes #313
spsanderson · Oct 11, 2022 · 1e08a24 · 1e08a24
2 parents 9f4d5f2 + 904e31b
commit 1e08a24
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 4 deletions.
diff --git a/NEWS.md b/NEWS.md
@@ -19,7 +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()`
+9. Fix #312 - Update random walk function to use `dist_type_extractor()`
 
 # TidyDensity 1.2.3
 

diff --git a/R/autoplot.R b/R/autoplot.R
@@ -109,9 +109,10 @@ tidy_autoplot <- function(.data, .plot_type = "density", .line_size = .5,
   # for ggplot
   n <- atb$.n
   sims <- atb$.num_sims
-  dist_type <- stringr::str_remove(atb$tibble_type, "tidy_") %>%
-    stringr::str_replace_all(pattern = "_", " ") %>%
-    stringr::str_to_title()
+  # dist_type <- stringr::str_remove(atb$tibble_type, "tidy_") %>%
+  #   stringr::str_replace_all(pattern = "_", " ") %>%
+  #   stringr::str_to_title()
+  dist_type <- dist_type_extractor(atb$tibble_type)
 
   sub_title <- paste0(
     "Data Points: ", n, " - ",