updated vignette for custom models

Author: topepo

DESCRIPTION

@@ -1,5 +1,5 @@
 Package: parsnip
-Version: 0.0.2
+Version: 0.0.2.9000
 Title: A Common API to Modeling and Analysis Functions
 Description: A common interface is provided to allow users to specify a model without having to remember the different argument names across different functions or computational engines (e.g. 'R', 'Spark', 'Stan', etc). 
 Authors@R: c(

NEWS.md

@@ -2,9 +2,9 @@
 
 ## Breaking Changes
 
- * The method that `parsnip` stores the model information has changed. Any custom models from previous versions will need to use the new method for registering models. 
+ * The method that `parsnip` stores the model information has changed. Any custom models from previous versions will need to use the new method for registering models. The methods are detailed in `?get_model_env()` and the [package vignette for adding models](https://tidymodels.github.io/parsnip/articles/articles/Scratch.html).
  * The mode need to be declared for models that can be used for more than one mode prior to fitting and/or translation). 
- * For `surv_reg()`, the engine that uses the `survival` package is now called `survival` instead of `survreg`. 
+ * For `surv_reg()`, the engine that uses the `survival` package is now called `survival` instead of `survreg`.  
 
 ## New Features
 

R/aaa_models.R

@@ -108,7 +108,6 @@ get_model_env <- function() {
 #' show_model_info("rand_forest")
 #'
 #' # Access the model data:
-#'
 #' current_code <- get_model_env()
 #' ls(envir = current_code)
 #'
@@ -653,7 +652,7 @@ show_model_info <- function(model) {
       cat(sep = "")
     cat("\n")
   } else {
-    cat(" no registered engines yet.")
+    cat(" no registered engines.\n\n")
   }
 
   args <- current[[paste0(model, "_args")]]
@@ -677,7 +676,7 @@ show_model_info <- function(model) {
       cat(sep = "")
     cat("\n")
   } else {
-    cat(" no registered arguments yet.")
+    cat(" no registered arguments.\n\n")
   }
 
   fits <- current[[paste0(model, "_fit")]]
@@ -690,7 +689,7 @@ show_model_info <- function(model) {
       print(row.names = FALSE)
     cat("\n")
   } else {
-    cat(" no registered fit modules yet.")
+    cat(" no registered fit modules.\n\n")
   }
 
   preds <- current[[paste0(model, "_predict")]]
@@ -705,7 +704,7 @@ show_model_info <- function(model) {
       print(row.names = FALSE)
     cat("\n")
   } else {
-    cat(" no registered prediction modules yet.")
+    cat(" no registered prediction modules.\n\n")
   }