my_custom_geom <- function(
mapping = ggplot2::aes(),
data = NULL,
stat = "my_custom_stat",
position = "identity",
...,
inset = NA,
map_base = "normal",
map_inset = "auto",
na.rm = TRUE,
inherit.aes = TRUE
) {
params <- rlang::list2(na.rm = na.rm, ...)
build_sf_inset_layers(
data = data, mapping = mapping,
stat = stat, position = position,
show.legend = show.legend,
inherit.aes = inherit.aes,
params = params,
inset = inset,
map_base = map_base,
map_inset = map_inset
)
}
Run the code above in your browser using DataLab