Use object attribute instead of argument

apache · Apr 14, 2015 · 5a553e7 · 5a553e7
1 parent 71372d9
commit 5a553e7
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/pkg/R/schema.R b/pkg/R/schema.R
@@ -25,7 +25,7 @@ structType <- function(x, ...) {
 structType.jobj <- function(x) {
   obj <- structure(list(), class = "structType")
   obj$jobj <- x
-  obj$fields <- function() { lapply(callJMethod(x, "fields"), structField) }
+  obj$fields <- function() { lapply(callJMethod(obj$jobj, "fields"), structField) }
   obj
 }