typo

tdhock · tdhock · commit 8ac051827b53 · 2015-03-16T17:42:42.000-04:00
diff --git a/R/trace_generation.R b/R/trace_generation.R
@@ -442,7 +442,7 @@ group2NA <- function(g, geom) {
     poly.na.list[[paste(i, "forward")]] <-
       rbind(no.group, retrace.first, na.row)
   }
-  if(retrace.first.points)){
+  if(retrace.first.points){
     backward.i <- rev(forward.i[-1])[-1]
     for(i in backward.i){
       no.group <- poly.list[[i]][1, !is.group, drop=FALSE]

Original file line number	Diff line number	Diff line change
`@@ -442,7 +442,7 @@ group2NA <- function(g, geom) {`
`442`	`442`	`poly.na.list[[paste(i, "forward")]] <-`
`443`	`443`	`rbind(no.group, retrace.first, na.row)`
`444`	`444`	`}`
`445`		`- if(retrace.first.points)){`
	`445`	`+ if(retrace.first.points){`
`446`	`446`	`backward.i <- rev(forward.i[-1])[-1]`
`447`	`447`	`for(i in backward.i){`
`448`	`448`	`no.group <- poly.list[[i]][1, !is.group, drop=FALSE]`