mapply() -> .mapply() microoptimization

Cases in osm_get_objects() require osm type names in list so not word it to change

R/osmapiR_objects.R

@@ -132,13 +132,14 @@ validate_osmapi_objects <- function(x, commited = TRUE) {
     lat = "character", lon = "character", members = "list", tags = "list"
   )
   sel_cols <- intersect(names(x), names(class_columns))
-  mapply(
+  .mapply(
     function(col, cl, col_name) {
       if (!inherits(col, cl)) {
         stop("Column `", col_name, "` is not of `", cl, "` type.")
       }
     },
-    col = x[sel_cols], cl = class_columns[sel_cols], col_name = sel_cols
+    dots = list(col = x[sel_cols], cl = class_columns[sel_cols], col_name = sel_cols),
+    MoreArgs = NULL
   )
 
   ok_members <- vapply(

R/osmapi_elements.R

@@ -802,14 +802,16 @@ fetch_objects_batches <- function(osm_type, osm_ids, nchar_base, format, tags_in
     ids_batch[length(ids_batch) + 1] <- sel_pos
   }
 
-  obj_batch <- mapply(
+  obj_batch <- .mapply(
     function(from, to) {
       ids <- osm_ids[from:to]
       osm_fetch_objects(osm_type = osm_type, osm_ids = ids, format = format) # version is already part of osm_ids
     },
-    from = ids_batch[-length(ids_batch)],
-    to = c(ids_batch[-c(1, length(ids_batch))] - 1, length(osm_ids)),
-    SIMPLIFY = FALSE
+    dots = list(
+      from = ids_batch[-length(ids_batch)],
+      to = c(ids_batch[-c(1, length(ids_batch))] - 1, length(osm_ids))
+    ),
+    MoreArgs = NULL
   )
 
   ## Unite batches

inst/WORDLIST

@@ -210,6 +210,7 @@ minlon
 mis
 misformed
 mispos
+MoreArgs
 mozilla
 msg
 municipis