Commit 70e1bb98 authored by Nicolau Manubens's avatar Nicolau Manubens
Browse files

Adding global attribute feature.

parent 324a227e
...@@ -323,6 +323,12 @@ ArrayToNc <- function(arrays, file_path) { ...@@ -323,6 +323,12 @@ ArrayToNc <- function(arrays, file_path) {
var_counter <- var_counter + 1 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) nc_close(ncdf_object)
invisible(NULL) invisible(NULL)
} }
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment