diff --git a/R/importWaterML1.r b/R/importWaterML1.r
index c78923d98b3fd49dd624cf4c6f637e785f2f2c85..4e138253975a68bc05631cac999e55f72d7a55ae 100644
--- a/R/importWaterML1.r
+++ b/R/importWaterML1.r
@@ -360,8 +360,12 @@ importWaterML1 <- function(obs_url,asDateTime=FALSE, tz=""){
   castFormula <- as.formula(paste(paste(sortingColumns, collapse="+"),"variable",sep="~"))
   mergedDF2 <- dcast(meltedmergedDF, castFormula, drop=FALSE)
   dataColumns2 <- !(names(mergedDF2) %in% sortingColumns)
-  mergedDF <- mergedDF2[rowSums(is.na(mergedDF2[,dataColumns2])) != sum(dataColumns2),]
-
+  if(sum(dataColumns2) == 1){
+    mergedDF <- mergedDF2[!is.na(mergedDF2[,dataColumns2]),]
+  } else {
+    mergedDF <- mergedDF2[rowSums(is.na(mergedDF2[,dataColumns2])) != sum(dataColumns2),]
+  }
+  
   if(length(dataColumns) > 1){
     mergedDF[,dataColumns] <- lapply(mergedDF[,dataColumns], function(x) as.numeric(x))
   } else {