diff --git a/workspace/NHD_navigate.Rmd b/workspace/NHD_navigate.Rmd
index f9415a07550c76d14b8b9ccaeb7101171a2b3ff9..7df992d4d430054c3e121b5fcb22a6f43c0a559d 100644
--- a/workspace/NHD_navigate.Rmd
+++ b/workspace/NHD_navigate.Rmd
@@ -139,7 +139,7 @@ if(needs_layer(out_gpkg, TE_pois)) {
 if(needs_layer(out_gpkg, NID_pois)) {
   
   # Read in Thermoelectric shapefile
-  NID_fac <- read.csv(paste0(data_paths$NID_points_path, "/NID_attributes_20170612.txt")) %>% 
+  NID_fac <- read.csv(file.path(data_paths$NID_points_path, "/NID_attributes_20170612.txt")) %>% 
     filter(ONNHDPLUS == 1, grepl(paste0("^", hydReg, ".*"), .data$VPU))  %>%
     switchDiv(., nhd)