Fixed lookup in schema.R

Oscar D. Lara Yejas · Oscar D. Lara Yejas · commit a031aed7ee65 · 2015-11-10T01:44:29.000Z
diff --git a/R/pkg/R/schema.R b/R/pkg/R/schema.R
@@ -115,7 +115,7 @@ structField.jobj <- function(x) {
 }
 
 checkType <- function(type) {
-  if (type %in% names(PRIMITIVE_TYPES)) {
+  if (!is.null(PRIMITIVE_TYPES[[type]])) {
     return()
   } else {
     # Check complex types

Original file line number	Diff line number	Diff line change
`@@ -115,7 +115,7 @@ structField.jobj <- function(x) {`
`115`	`115`	`}`
`116`	`116`
`117`	`117`	`checkType <- function(type) {`
`118`		`- if (type %in% names(PRIMITIVE_TYPES)) {`
	`118`	`+ if (!is.null(PRIMITIVE_TYPES[[type]])) {`
`119`	`119`	`return()`
`120`	`120`	`} else {`
`121`	`121`	`# Check complex types`