minor docs, testing multiple pivot_longers

Author: dsweber2

R/quantile_pred-methods.R

@@ -120,7 +120,7 @@ vec_proxy_equal.quantile_pred <- function(x, ...) {
 #' Given a [hardhat::quantile_pred] object, users may wish to compute additional
 #' `quantile_levels` that are not part of the object. This function attempts
 #' to estimate these quantities under some assumptions. Interior probabilities,
-#' those contained within, existing probabilities are interpolated in a manner
+#' those contained within existing probabilities are interpolated in a manner
 #' controled by the `middle` argument. Those outside existing probabilities
 #' are extrapolated under the assumption that the tails of the distribution
 #' decays exponentially. Optionally, one may constrain _all_ quantiles to be

man/quantile.quantile_pred.Rd

@@ -22,6 +22,11 @@ test_that("pivotting wider still works if there are duplicates", {
   tb <- tibble(.pred = quantile_pred(rbind(1:3, 1:3), c(.1, .5, .9)))
   res <- tibble(`0.1` = c(1, 1), `0.5` = c(2, 2), `0.9` = c(3, 3))
   expect_equal(tb %>% pivot_quantiles_wider(.pred), res)
+  res_longer <- tibble(
+    .pred_value = rep(1:3, 2),
+    .pred_quantile_level = rep(c(0.1, 0.5, 0.9), 2)
+  )
+  expect_equal(tb %>% pivot_quantiles_longer(.pred), res_longer)
 })