Fix gurobi solution names

kkbrum · web-flow · commit 92d452124ea0 · 2022-01-27T10:57:35.000-05:00
diff --git a/R/balance_LP.R b/R/balance_LP.R
@@ -123,7 +123,8 @@ balance_LP <- function(z, X, importances, st, st_vals, S, q_s, N,
       return(NULL)
     }
     lpdetails <- o
-    names(o)[c(6,7)] <- c("optimum", "solution")
+    names(o)[names(o) == "objval"] <- "optimum"
+    names(o)[names(o) == "x"] <- "solution"
   }
 
   return(list(lpdetails = lpdetails, o = o))

Original file line number	Diff line number	Diff line change
`@@ -123,7 +123,8 @@ balance_LP <- function(z, X, importances, st, st_vals, S, q_s, N,`
`123`	`123`	`return(NULL)`
`124`	`124`	`}`
`125`	`125`	`lpdetails <- o`
`126`		`- names(o)[c(6,7)] <- c("optimum", "solution")`
	`126`	`+ names(o)[names(o) == "objval"] <- "optimum"`
	`127`	`+ names(o)[names(o) == "x"] <- "solution"`
`127`	`128`	`}`
`128`	`129`
`129`	`130`	`return(list(lpdetails = lpdetails, o = o))`