R/all_constraints_wLoop.R

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

#'\code{all_constraints_wLoop}
#'
#' The list of all LP constraints with removed failed-to-write constraints that 
#' returns NaN
#' 
#' Enio Gjerga, 2020

all_constraints_wLoop <- function(c0=c0, c1=c1, c2=c2, c3=c3, c4=c4, c5=c5, 
                                  c6=c6, c7=c7, c8=c8, c9=c9){
  
  allConst <- c(c0, c1, c2, c3, c4, c5, c6, c7, c8, c9)
  
  allConstraints <- paste0("c", 1:length(allConst), ":\t", allConst, "\t \t")
  
  if(length(grep(pattern = "NaN", x = allConstraints)) > 0){
    return(allConstraints[-grep(pattern = "NaN", x = allConstraints)])
  }
  else{
    return(allConstraints)
  }
  
}