R/sql.wrap.R

In heibl/megaptera: MEGAPhylogeny Techniques in R

## This code is part of the megaptera package
## © C. Heibl 2014 (last update 2014-12-17)

sql.wrap <- function(x, term = "spec", operator = "=", BOOL = "OR", regex = TRUE, by = 500) {
  
  operator <- match.arg(operator, c("=", "~"))
  if ( !is.numeric(x) ) {
    if ( regex ){
      x <- gsub("([(]|[)]|[+]|[.])", "[\\1]", x) # e.g. "Clivia_sp._RHA+CA_7b", "Oreobolus_sp._1_(Laegaard_70382)
      x <- gsub("'", ".", x) # e.g. "Gigantochloa_sp._'daluoensis'"
    }
    if ( operator == "=" | regex) x <- paste("'", x, "'", sep = "")
    else x <- paste("'^", x, "$'", sep = "")
  }
  if ( !is.null(term) ) x <- paste(term, operator, x, sep = "")
  if ( !is.null(BOOL) ){
    id <- seq(from = 1, to = length(x), by = 500)
    id <- paste(id, c(id[-1] - 1, length(x)), sep = ":")
    id <- lapply(id, function(obj) eval(parse(text = obj)))
    x <- sapply(id, function(obj, id) paste(obj[id], collapse = paste("", BOOL, "")), obj = x)
  }
  x
}