Add the netcdf variable name to the attributes table

amoeba · amoeba · commit 64665ebd8cc1 · 2017-02-24T11:26:50.000-09:00
diff --git a/R/attributes.R b/R/attributes.R
@@ -18,9 +18,10 @@ get_ncdf4_attributes <- function(nc) {
   }
 
   attributes <- names(nc$var)
-  result <- data.frame()
+  result <- data.frame(attributeName=NA)
 
   for (i in seq_along(attributes)) {
+    result[i,"attributeName"] <- attributes[i]
     attribute <- ncdf4::ncatt_get(nc, attributes[i])
     names <- names(attribute)
 

Original file line number	Diff line number	Diff line change
`@@ -18,9 +18,10 @@ get_ncdf4_attributes <- function(nc) {`
`18`	`18`	`}`
`19`	`19`
`20`	`20`	`attributes <- names(nc$var)`
`21`		`- result <- data.frame()`
	`21`	`+ result <- data.frame(attributeName=NA)`
`22`	`22`
`23`	`23`	`for (i in seq_along(attributes)) {`
	`24`	`+ result[i,"attributeName"] <- attributes[i]`
`24`	`25`	`attribute <- ncdf4::ncatt_get(nc, attributes[i])`
`25`	`26`	`names <- names(attribute)`
`26`	`27`