restore new_names arg

tidymodels · Jul 22, 2021 · c1bc951 · c1bc951
1 parent 1e29614
commit c1bc951
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/NEWS.md b/NEWS.md
@@ -2,7 +2,7 @@
 
 To be release as broom 0.7.9.
 
-* Fixed confidence intervals in `tidy.crr()` which are exponentiated when `exponentiate = F` (`#1023` by `@leejasme`)
+* Fixed confidence intervals in `tidy.crr()`, which were previously exponentiated when `exponentiate = FALSE` (`#1023` by `@leejasme`)
 
 # broom 0.7.8
 

diff --git a/R/cmprsk-tidiers.R b/R/cmprsk-tidiers.R
@@ -41,7 +41,7 @@ tidy.crr <- function(x, exponentiate = FALSE, conf.int = FALSE,
   if (conf.int) {
     ci <- as_tidy_tibble(
       log(s$conf.int),
-      new_names = c("estimate", "estimate_neg", "conf.low", "conf.high"))[, -c(2, 3)]
+      new_names = c("estimate_exp", "estimate_neg_exp", "conf.low", "conf.high"))[, -c(2, 3)]
     ret <- dplyr::left_join(ret, ci, by = "term")
   }