From ac3a9cfd3eb47f103844871f933c94419bbde61b Mon Sep 17 00:00:00 2001
From: unknown <ldecicco@usgs.gov>
Date: Wed, 1 Apr 2015 16:58:24 -0500
Subject: [PATCH] Found a unique case where the dcast had a duplicated row.
---
R/importWaterML1.r | 5 +++--
1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/R/importWaterML1.r b/R/importWaterML1.r
index dcf4d5a0..2460a4ad 100644
--- a/R/importWaterML1.r
+++ b/R/importWaterML1.r
@@ -408,9 +408,10 @@ importWaterML1 <- function(obs_url,asDateTime=FALSE, tz=""){
meltedmergedDF <- melt(mergedDF,id.vars=sortingColumns)
meltedmergedDF <- meltedmergedDF[!is.na(meltedmergedDF$value),]
-
+ rownames(meltedmergedDF) <- NULL
+ meltedmergedDF <- meltedmergedDF[!duplicated(meltedmergedDF),]
castFormula <- as.formula(paste(paste(sortingColumns, collapse="+"),"variable",sep="~"))
- mergedDF2 <- dcast(meltedmergedDF, castFormula, drop=FALSE)
+ mergedDF2 <- dcast(meltedmergedDF, castFormula, drop=FALSE, value.var = "value")
dataColumns2 <- !(names(mergedDF2) %in% sortingColumns)
if(sum(dataColumns2) == 1){
mergedDF <- mergedDF2[!is.na(mergedDF2[,dataColumns2]),]
--
GitLab