Fix #56

spsanderson · Jan 31, 2022 · 43cc8a3 · 43cc8a3
1 parent aa227da
commit 43cc8a3
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 0 deletions.
diff --git a/NEWS.md b/NEWS.md
@@ -19,6 +19,7 @@ no longer importing.
 5. Fix #55 - Add parameter `.geom_jitter` to `tidy_autoplot()` function
 6. Fix #57 - Fix `tidy_autoplot()` for when the distribution is `tidy_empirical()`
 the legend argument would fail.
+7. Fix #56 - Add attributes of .n and .num_sims (1L for now) to `tidy_empirical()`
 
 # TidyDensity 0.0.1
 

diff --git a/R/empirical-tidy.R b/R/empirical-tidy.R
@@ -65,6 +65,8 @@ tidy_empirical <- function(.x){
         dplyr::mutate(q = q_vec$q)
 
     attr(df, ".x") <- .x
+    attr(df, ".n") <- n
+    attr(df, ".num_sims") <- 1L
     attr(df, "tibble_type") <- "tidy_empirical"
 
     # Return ----