concat_maps.R

concat_maps.R

concat_maps <- function(...) {
  rdeck_maps <- list(...)
  rdeck_map_names <- names(rdeck_maps)
  rdeck_map_names[nzchar(rdeck_map_names) == 0] <- "Base layers"
  # set up init for reduce
  container <- rdeck_maps[[1]]
  container$x$layers <-
    map(container$x$layers, function(layer) {
      layer$group_name <- rdeck_map_names[[1]]
      layer$visibility_toggle <- TRUE
      layer$visible <- TRUE
      layer
    })

  reduce2(rdeck_maps[-1], rdeck_map_names[-1],
    .init = container,
    .f = function(merged_map, a_map, a_map_name) {
      renamed_layers <-
        map(a_map$x$layers, function(layer) {
          layer$group_name <- a_map_name
          layer$visibility_toggle <- TRUE
          layer$visible <- FALSE
          layer
        })
        merged_map$x$layers <-
          c(merged_map$x$layers, renamed_layers)
        merged_map
    })
}