R/get.constr.type.R

In lpSolveAPI: R Interface to 'lp_solve' Version 5.5.2.0

get.constr.type <- function(lprec, constraints = 1:m, as.char = TRUE) {
  m <- dim(lprec)[1]

  if (m < 1) {
    constraints <- integer(0)
  }

  types <- .Call(RlpSolve_get_constr_type, lprec, as.integer(constraints))

  if (as.char) {
    types <- c("free", "<=", ">=", "=")[types + 1]
  }

  types
}