Commit 5b84ea33 authored by David Watkins's avatar David Watkins
Browse files

comments

parent 8b6a72ac
...@@ -170,10 +170,7 @@ parseWaterML2Timeseries <- function(input, asDateTime) { ...@@ -170,10 +170,7 @@ parseWaterML2Timeseries <- function(input, asDateTime) {
#from the default metadata section #from the default metadata section
#append to existing attributes if they aren't empty #append to existing attributes if they aren't empty
# attr(df, "defaultQualifier") <- defaultQuals mdAttribs <- list(defaultQualifier=defaultQuals, defaultUOM=defaultUOM,
# attr(df, "defaultUOM") <- defaultUOM
# attr(df, "gmlID") <- gmlID
mdAttribs <- list(defaultQualifier=defaultQuals, defaultUOM=defaultUOM,
gmlID=gmlID) #all attributes must have names gmlID=gmlID) #all attributes must have names
mdAttribs_use <- mdAttribs[sapply(mdAttribs, function(x){length(x) > 0})] mdAttribs_use <- mdAttribs[sapply(mdAttribs, function(x){length(x) > 0})]
attributes(df) <- append(attributes(df), mdAttribs_use) attributes(df) <- append(attributes(df), mdAttribs_use)
......
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