HenrikBengtsson / TopDom

R package: TopDom - An efficient and Deterministic Method for identifying Topological Domains in Genomes
https://cran.r-project.org/package=TopDom
20 stars 5 forks source link

ROBUSTNESS: Add explicit 'stringsAsFactors' arguments [rbind] #20

Closed HenrikBengtsson closed 4 years ago

HenrikBengtsson commented 4 years ago
$ pkg=TopDom; echo "$pkg:"; (cd "$pkg"; grep -E "^[ \t]*[^#].*rbind" -- */*.R | grep -vF stringsAsFactors;)
TopDom:
R/overlapScores.R:  do.call(rbind, args = x)
R/TopDom_0.0.1.R:        proc.regions = rbind(proc.regions, c(start=start, end=proc.set[j-1]) )
R/TopDom_0.0.1.R:      proc.regions = rbind(proc.regions, c(start=start, end=proc.set[j-1]) )
R/TopDom_0.0.1.R:    ret = rbind(ret, boundary)
R/TopDom_0.0.1.R:  ret = rbind(gap, domain)
R/TopDom_0.0.1.R:      stack.bdr = rbind(stack.bdr, ret[i, ])
R/TopDom_0.0.1.R:      new.bdr.set = rbind(new.bdr.set, new.bdr)
R/TopDom_0.0.1.R:  ret = rbind( ret[ ret[, "tag"]!="boundary", ], new.bdr.set )
R/TopDom_0.0.1.R:    ret = rbind(ret, boundary)
R/TopDom_0.0.1.R:  ret = rbind(gap, domain)
R/TopDom_0.0.2.R:        proc.regions = rbind(proc.regions, c(start=start, end=proc.set[j-1]) )
R/TopDom_0.0.2.R:      proc.regions = rbind(proc.regions, c(start=start, end=proc.set[j-1]) )
R/TopDom_0.0.2.R:    ret = rbind(ret, boundary)
R/TopDom_0.0.2.R:  ret = rbind(gap, domain)
R/TopDom_0.0.2.R:      stack.bdr = rbind(stack.bdr, ret[i, ])
R/TopDom_0.0.2.R:      new.bdr.set = rbind(new.bdr.set, new.bdr)
R/TopDom_0.0.2.R:  ret = rbind( ret[ ret[, "tag"]!="boundary", ], new.bdr.set )
R/TopDom_0.0.2.R:    ret = rbind(ret, boundary)
R/TopDom_0.0.2.R:  ret = rbind(gap, domain)
R/TopDom.R:        proc.regions <- rbind(proc.regions, c(start = start, end = proc.set[j - 1]))
R/TopDom.R:      proc.regions <- rbind(proc.regions, c(start = start, end = proc.set[j - 1]))
R/TopDom.R:    ret <- rbind(ret, boundary)
R/TopDom.R:  ret <- rbind(gap, domain)
R/TopDom.R:      stack.bdr <- rbind(stack.bdr, ret[i, ])
R/TopDom.R:      new.bdr.set <- rbind(new.bdr.set, new.bdr)
R/TopDom.R:  ret <- rbind(ret[ret[, "tag"] != "boundary", ], new.bdr.set)
R/TopDom.R:    ret <- rbind(ret, boundary)
R/TopDom.R:    ret <- rbind(gap, domain)
HenrikBengtsson commented 4 years ago

Nothing to do.