diff --git a/R/getWaterML1Data.r b/R/getWaterML1Data.r index 07a874c1c589591ef163c4ef2ad6b4860a085925..4651109611b562ff6734483b55c89747c634f75e 100644 --- a/R/getWaterML1Data.r +++ b/R/getWaterML1Data.r @@ -137,7 +137,9 @@ getWaterML1Data <- function(obs_url){ if (1 == i & valuesIndex[1] == j){ mergedDF <- df } else { - mergedDF <- merge(mergedDF, df,by=c("agency_cd","site_no","datetime","tz_cd"),all=TRUE) + similarNames <- intersect(names(mergedDF), names(df)) + mergedDF <- merge(mergedDF, df,by=similarNames,all=TRUE) +# mergedDF <- merge(mergedDF, df,by=c("agency_cd","site_no","datetime","tz_cd"),all=TRUE) } } }