Fix bug in set input cols

dkincaid · dkincaid · commit 4233e25a3318 · 2021-11-10T07:41:45.000-06:00
diff --git a/R/utils.R b/R/utils.R
@@ -7,7 +7,7 @@
 #' 
 #' @export
 nlp_set_input_cols <- function(jobj, input_cols) {
-  newobj <- sparklyr:::ml_set_param(jobj, "inputCols", output_col)
+  newobj <- sparklyr:::ml_set_param(jobj, "inputCols", input_col)
   return(newobj)
   #invoke(spark_jobj(jobj), "setInputCols", cast_string_list(input_cols))
 }

Original file line number	Diff line number	Diff line change
`@@ -7,7 +7,7 @@`
`7`	`7`	`#'`
`8`	`8`	`#' @export`
`9`	`9`	`nlp_set_input_cols <- function(jobj, input_cols) {`
`10`		`- newobj <- sparklyr:::ml_set_param(jobj, "inputCols", output_col)`
	`10`	`+ newobj <- sparklyr:::ml_set_param(jobj, "inputCols", input_col)`
`11`	`11`	`return(newobj)`
`12`	`12`	`#invoke(spark_jobj(jobj), "setInputCols", cast_string_list(input_cols))`
`13`	`13`	`}`