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) {
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)
}
......
Markdown is supported
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