fix bug about set value when writing gdx

lolow · Mar 7, 2016 · 9b40e08 · 9b40e08
1 parent aec452a
commit 9b40e08
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/gdxtools.R b/R/gdxtools.R
@@ -60,7 +60,7 @@ write.gdx <- function(file, params=list(), removeLST=T, usetempdir=T){
   fgms = file(gms, "w")
   # collect and write sets
   allsets = unique(unlist(lapply(params, names)))
-  allsets = subset(allsets, !allsets %in% c('*'))
+  allsets = subset(allsets, !allsets %in% c('*','value'))
   for(i in seq_along(allsets)){
     s = allsets[i]
     writeLines(paste("set", s, "/"), fgms)