dropped dim bug

topepo · topepo · commit e3a66b57c627 · 2018-04-26T23:27:55.000-04:00
diff --git a/R/engines.R b/R/engines.R
@@ -32,7 +32,7 @@ specifc_model <- function(x) {
 possible_engines <- function(object, ...) {
   cls <- specifc_model(object)
   key_df <- get(paste(cls, "engines", sep = "_"))
-  colnames(key_df[object$mode, ])
+  colnames(key_df[object$mode, , drop = FALSE])
 }
 
 check_engine <- function(object) {

Original file line number	Diff line number	Diff line change
`@@ -32,7 +32,7 @@ specifc_model <- function(x) {`
`32`	`32`	`possible_engines <- function(object, ...) {`
`33`	`33`	`cls <- specifc_model(object)`
`34`	`34`	`key_df <- get(paste(cls, "engines", sep = "_"))`
`35`		`- colnames(key_df[object$mode, ])`
	`35`	`+ colnames(key_df[object$mode, , drop = FALSE])`
`36`	`36`	`}`
`37`	`37`
`38`	`38`	`check_engine <- function(object) {`