R/constraints_auxilliary.R

In saezlab/CARNIVAL: A CAusal Reasoning tool for Network Identification (from gene expression data) using Integer VALue programming

## The list of all LP constraints with removed failed-to-write constraints that 
## returns NaN.
## 
## Enio Gjerga, 2020
concatenateConstraints <- function(constraintsText){

  allConstraints <- paste0("c", seq_len(length(constraintsText)),
                           ":\t", constraintsText, "\t \t")

  collectNan <- grep(pattern = "NaN|NA", x = allConstraints) 
  if(length(collectNan) > 0){
    allConstraints <- allConstraints[-collectNan] 
  }
  
  return(allConstraints)
}

createConstraintFreeForm <- function(...) {
  constraint <- paste(...)  
  return(constraint)
}

createConstraint <- function(variable1, sign, variable2, inequality, rightPart) { 
  constraint <- paste(variable1, sign, variable2, inequality, rightPart, sep = " ")  
  return(constraint)
}