From 5c12c14f8dd16dbf8f1e80d94be65e600a6911ae Mon Sep 17 00:00:00 2001
From: syounkin <syounkin@wisc.edu>
Date: Thu, 21 Nov 2024 15:13:37 -0600
Subject: [PATCH] Bug fix in WI-schools-cycle.Rmd

---
 WI-schools-cycle.Rmd | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/WI-schools-cycle.Rmd b/WI-schools-cycle.Rmd
index 5e75b19..bd8f410 100644
--- a/WI-schools-cycle.Rmd
+++ b/WI-schools-cycle.Rmd
@@ -67,7 +67,7 @@ gridList <- list()
 routesList <- list()
 
 indexVec <- 1:nrow(WI_schools)
-#indexVec <- 1:50
+
 jj <- 1;
 bad.school.vec <- c()
 
@@ -131,7 +131,9 @@ for(j in indexVec){
 
 }
 
-WI_schools <- WI_schools[-bad.school.vec,]
+if(length(bad.school.vec) > 0){
+    WI_schools <- WI_schools[-bad.school.vec,]
+}
 
 saveRDS(WI_schools, "./R/data/WI_schools.rds")
 saveRDS(gridList, "./R/data/gridList.rds")