linting

Michael Chirico · Michael Chirico · commit 03b7898acf24 · 2020-04-28T00:07:19.000+08:00
diff --git a/R/pkg/R/types.R b/R/pkg/R/types.R
@@ -94,7 +94,7 @@ checkSchemaInArrow <- function(schema) {
   }
 
   # Both cases below produce a corrupt value for unknown reason. It needs to be investigated.
-  field_strings = sapply(schema$fields(), function(x) x$dataType.toString())
+  field_strings <- sapply(schema$fields(), function(x) x$dataType.toString())
   if (any(field_strings == "FloatType")) {
     stop("Arrow optimization in R does not support float type yet.")
   }

Original file line number	Diff line number	Diff line change
`@@ -94,7 +94,7 @@ checkSchemaInArrow <- function(schema) {`
`94`	`94`	`}`
`95`	`95`
`96`	`96`	`# Both cases below produce a corrupt value for unknown reason. It needs to be investigated.`
`97`		`- field_strings = sapply(schema$fields(), function(x) x$dataType.toString())`
	`97`	`+ field_strings <- sapply(schema$fields(), function(x) x$dataType.toString())`
`98`	`98`	`if (any(field_strings == "FloatType")) {`
`99`	`99`	`stop("Arrow optimization in R does not support float type yet.")`
`100`	`100`	`}`