Fixed bug in reporting missing file name

rscripts/process_ships.R

@@ -107,7 +107,7 @@ for ( year in my_args[1]:my_args[2] ) {
       if ( !file.exists(fn.in)) cat("main file",fn.in, "file does not exist stopping","\n")
       if ( !file.exists(fn.in)) stop(paste("process_ships, main file",fn.in,"missing"))
       if ( !file.exists(fn.plus)) stop(paste("process_ships, forward file",fn.plus,"missing"))
-      if ( !file.exists(fn.minus)) stop(paste("process_ships, backward file",fn.plus,"missing"))
+      if ( !file.exists(fn.minus)) stop(paste("process_ships, backward file",fn.minus,"missing"))
       mdata<-icoads.utils::rbind_files(files.want)
     } else {
       if ( !file.exists(fn.in) & file.exists(fn.out) ) file.remove(fn.out)