fix error handling

USEPA · Oct 10, 2024 · e226010 · e226010
1 parent 78a6536
commit e226010
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/examples/CalculateStateCBE.Rmd b/examples/CalculateStateCBE.Rmd
@@ -68,7 +68,7 @@ for(y in years) {
    modelname <- paste0(state, modelstub, substr(y,3,4))
    name_for_list <- paste0(state,"-",toString(y))
    file_path <- file.path("..","models",paste0(modelname,".rds"))
-   if(!exists(file_path)) {
+   if(!file.exists(file_path)) {
      stop("Please first build or download the requested model.")
    }
    models[[name_for_list]] <- readRDS(file_path)