diff --git a/Data_Center_Visuals.r b/Data_Center_Visuals.r
index eae1a5d..cf4388b 100644
--- a/Data_Center_Visuals.r
+++ b/Data_Center_Visuals.r
@@ -3,6 +3,7 @@ library(scales)
 library(janitor)
 library(paletteer)
 source("Scripts/Return_Data_Center_Model_Inputs.r")
+CONST_END_YEAR <- 2029
 DATA_CENTER <- DATA_CENTER_INPUTS()
 DATA_CENTER <- rbind(DATA_CENTER,do.call(rbind, lapply(2031:2050,function(x){DATA_CENTER  %>% filter(Year==2030) %>% mutate(Year=x)})))
 GET_DATA_CENTER_RES <- function(DIR,EVENT,REGION='Wyoming'){
@@ -247,6 +248,7 @@ OP_EMP_SUMMARY <- EMP_SUMMARY %>% select(Occupation,Period,Wy_Employment,Wy_Peak
 
 ############Save results
 HEADER <- "Data Center_"
+EMP_MAIN_SUMMARY 
 write.csv(EMP_MAIN_SUMMARY ,paste0("./Results/",HEADER,"Employment_Summary.csv"),row.names=FALSE)
 write.csv(WY_NPV,paste0("./Results/",HEADER,"Wyoming_NPV_Values.csv"),row.names=FALSE)
 write.csv(US_NPV,paste0("./Results/",HEADER,"US_NPV_Values.csv"),row.names=FALSE)