added new lable function

tidymodels · Jul 3, 2019 · 8c24fb1 · 8c24fb1
1 parent 4a06bdb
commit 8c24fb1
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 4 deletions.
diff --git a/R/lables.R b/R/lables.R
@@ -140,14 +140,14 @@ pretty.nested_cv <- function(x, ...) {
   print(class(x))
   details <- attributes(x)
 
-  if (is_lang(details$outside)) {
+  if (is_call(details$outside)) {
     class(x) <- class(x)[!(class(x) == "nested_cv")]
     outer_label <- pretty(x)
   } else {
     outer_label <- paste0("`", deparse(details$outside), "`")
   }
 
-  inner_label <- if (is_lang(details$inside))
+  inner_label <- if (is_call(details$inside))
     pretty(x$inner_resamples[[1]])
   else
     paste0("`", deparse(details$inside), "`")

diff --git a/man/add_resample_id.Rd b/man/add_resample_id.Rd