Fixes on nc_close and on.exit usage.

istfer · Nov 14, 2023 · a3fc931 · a3fc931
1 parent 50b61ec
commit a3fc931
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/modules/data.land/R/pool_ic_netcdf2list.R b/modules/data.land/R/pool_ic_netcdf2list.R
@@ -20,8 +20,7 @@ pool_ic_netcdf2list <- function(nc.path){
     for(varname in names(vals)){
       vals[[varname]] <- ncdf4::ncvar_get(IC.nc,varname)
     }
-    ncdf4::nc_close(IC.nc)
-    on.exit()
+    on.exit(ncdf4::nc_close(IC.nc), add = FALSE) 
     return(list(dims = dims, vals = vals))
   }
   else{