Nothing
#' @importFrom sf st_set_geometry st_area
#' @importFrom dplyr mutate group_by summarise filter
#' @importFrom tidyr spread
#' @importFrom rlang enquo
#' @importFrom stats na.omit
intersection_prep = function(z){
z = na.omit(z)
z = mutate(z, area = as.numeric(st_area(z)))
z = filter(z, area > 0)
z = st_set_geometry(z, NULL)
z = group_by(z, map1, map2)
z = summarise(z, area = sum(area))
x_names = sort(unique(z$map1))
y_names = sort(unique(z$map2))
z = spread(z, map1, area, fill = 0)
z = z[-1]
z = as.matrix(z)
dimnames(z) = list(y_names, x_names)
return(z)
}
#' @importFrom rlang enquo
#' @importFrom dplyr select pull group_by summarise
#' @importFrom sf st_cast
vector_regions = function(vector_obj, attr_name){
attr_name = enquo(attr_name)
vector_obj = group_by(vector_obj, !!attr_name)
vector_obj = summarise(vector_obj, do_union = FALSE)
vector_obj = st_cast(vector_obj, "MULTIPOLYGON")
return(vector_obj)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.