removing for loop - see comments on PR USGS-R#357

lindsayplatt · Jun 20, 2016 · 4cfc818 · 4cfc818
1 parent 10134a6
commit 4cfc818
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')){