Adding global attribute feature.

R/ArrayToNc.R

@@ -323,6 +323,12 @@ ArrayToNc <- function(arrays, file_path) {
       var_counter <- var_counter + 1
     }
   }
+  # Adding global attributes
+  if (length(global_attrs) > 0) {
+    for (attr_name in names(global_attrs)) {
+      ncatt_put(ncdf_object, 0, attr_name, global_attrs[[attr_name]])
+    }
+  }
   nc_close(ncdf_object)
   invisible(NULL)
 }