Merge pull request #358 from lindsaycarr/master

removing for loop - see comments on PR #357
USGS-R · Jun 20, 2016 · 193815e · 193815e
2 parents 10134a6 + 4cfc818
commit 193815e
Showing 1 changed file with 1 addition and 3 deletions.
diff --git a/R/correctionsataglance-data.R b/R/correctionsataglance-data.R
@@ -228,9 +228,7 @@ findOverlap <- function(dataList){
 
         #ordered by applied date for process order data
         if (isEmptyOrBlank(dataIn$applyDates)) {
-          for (i in 1:length(dataIn)) {
-            dataIn[i]$applyDates <- NA
-          }
+            dataIn$applyDates <- NA
         }
         dataIn_df <- as.data.frame(dataIn, stringsAsFactors = FALSE)
         if(any(names(dataIn) %in% 'corrLabel')){