Merge branch 'master' of github.com:tidymodels/parsnip into time-elapsed

Author: patr1ckm

DESCRIPTION

@@ -30,7 +30,7 @@ Imports:
     globals,
     vctrs (>= 0.2.0)
 Roxygen: list(markdown = TRUE)
-RoxygenNote: 6.1.1
+RoxygenNote: 6.1.99.9001
 Suggests: 
     testthat,
     knitr,

NEWS.md

@@ -13,6 +13,9 @@ parsnip model object, and is printed when the model object is printed.
 
 * A bug was fixed related to the column names generated by `multi_predict()`. The top-level tibble will always have a column named `.pred` and this list column contains tibbles across sub-models. The column names for these sub-model tibbles will have names consistent with `predict()` (which was previously incorrect). See [43c15db](https://github.com/tidymodels/parsnip/commit/43c15db377ea9ef27483ff209f6bd0e98cb830d2).
 
+# [A bug](https://github.com/tidymodels/parsnip/issues/174) was fixed
+standardizing the column names of `nnet` class probability predictions.
+
 # parsnip 0.0.3.1
 
 Test case update due to CRAN running extra tests [(#202)](https://github.com/tidymodels/parsnip/issues/202)

R/aaa_multi_predict.R

@@ -93,7 +93,6 @@ has_multi_predict.workflow <- function(object, ...) {
 }
 
 
-#' @rdname has_multi_predict
 #' @export
 #' @rdname has_multi_predict
 multi_predict_args <- function(object, ...) {

R/boost_tree.R

@@ -147,7 +147,6 @@ print.boost_tree <- function(x, ...) {
 # ------------------------------------------------------------------------------
 
 #' @export
-#' @inheritParams boost_tree
 #' @param object A boosted tree model specification.
 #' @param ... Not used for `update()`.
 #' @param fresh A logical for whether the arguments should be

R/fit.R

@@ -178,7 +178,6 @@ fit.model_spec <-
 #' @rdname fit
 #' @export
 #' @export fit_xy.model_spec
-#' @inheritParams fit.model_spec
 fit_xy.model_spec <-
   function(object,
            x = NULL,

R/mlp.R

@@ -381,7 +381,7 @@ nnet_softmax <- function(results, object) {
 
   results <- apply(results, 1, function(x) exp(x)/sum(exp(x)))
   results <- t(results)
-  names(results) <- paste0(".pred_", object$lvl)
+  colnames(results) <- object$lvl
   results <- as_tibble(results)
   results
 }

R/nearest_neighbor.R

@@ -23,7 +23,6 @@
 #'  here (`NULL`), the values are taken from the underlying model
 #'  functions. If parameters need to be modified, `update()` can be used
 #'  in lieu of recreating the object from scratch.
-#' @inheritParams boost_tree
 #' @param mode A single character string for the type of model.
 #' Possible values for this model are `"unknown"`, `"regression"`, or
 #' `"classification"`.