remove the output variable we were not using (thanks to Deborah Siege…

…l for pointing this out)

src/R/finddistance.R

@@ -7,6 +7,5 @@ while(length(line <- readLines(f,n=1)) > 0) {
   contents <- Map(as.numeric, strsplit(line, ","))
   mydist <- gdist(contents[[1]][1], contents[[1]][2], contents[[1]][3], contents[[1]][4],
                   units="m", a=6378137.0, b=6356752.3142, verbose = FALSE)
-  output = paste(mydist, collapse=" ")
   write(mydist, stdout())
 }