fix bugs on extracting sets

lolow · Mar 10, 2016 · 929af05 · 929af05
1 parent 7c3e8ad
commit 929af05
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/R/gdx.R b/R/gdx.R
@@ -68,7 +68,10 @@ extract.gdx <- function(x, item, field = "l", addgdxname = F, ...) {
   } else if(item %in% x$parameters$name){
     res = gdxrrw::rgdx(x$filename, list(name = item), squeeze = F)
     text = x$parameters$text[item==x$parameters$name]
-  } else {
+  } else if(item %in% x$sets$name){
+    res = gdxrrw::rgdx(x$filename, list(name = item), squeeze = F)
+    text = x$sets$text[item==x$sets$name]
+  }else {
     warning("item not found")
     return(NULL)
   }