Replaces summarise_each with summarise_all due to dplyr function depr…

…ecation
andrewzm · Apr 20, 2017 · c8bfcef · c8bfcef
1 parent eccfe1f
commit c8bfcef
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/geometryfns.R b/R/geometryfns.R
@@ -1040,7 +1040,7 @@ setMethod("map_data_to_BAUs",signature(data_sp="SpatialPoints"),
                   ## BAU names are sought)
                   if(average_in_BAU)
                       Data_in_BAU <- group_by(data_over_sp,BAU_name) %>%  # group by BAU
-                      summarise_each(funs(.safe_mean(.))) %>%             # apply safe mean to each column BAU
+                      summarise_all(.safe_mean) %>%             # apply safe mean to each column BAU
                       as.data.frame()                                     # convert to data frame
                   else Data_in_BAU <- data_over_sp                        # otherwise don't average
               })                                                          # end timer