diff --git a/R/importWaterML1.r b/R/importWaterML1.r
index dcf4d5a08a9d976a7befceaf7f9c59577e524505..2460a4ad73c8994483537d5628de1b932a949e29 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]),]