overlay_trial_sites: Add trial sites to dynamic map
In Michael-Stevens-27/silverblaze: Geographic Profiling in R

Add trial sites to dynamic map

overlay_trial_sites(
  myplot,
  project,
  fill = TRUE,
  fill_colour = c(grey(0.5), "red"),
  fill_opacity = 0.5,
  border = FALSE,
  border_colour = "black",
  border_weight = 1,
  border_opacity = 1,
  legend = FALSE,
  site_radius = 20,
  plot_type = "piecharts"
)

`myplot`	dynamic map produced by `plot_map()` function
`project`	an RgeoProfile project, as produced by the function `rgeoprofile_project()`.
`fill`	whether to fill circles.
`fill_colour`	colour of circle fill.
`fill_opacity`	fill opacity.
`border`	whether to add border to circles.
`border_colour`	colour of circle borders.
`border_weight`	thickness of circle borders.
`border_opacity`	opacity of circle borders.
`legend`	whether to add a legend for site count.
`site_radius`	radius in Km shown at each site
`plot_type`	plot trial sites as circles or piecharts

#\dontshow{p <- rgeoprofile_file("tutorial2_project.rds")}
#plot1 <- plot_map()
#plot1 <- overlay_trial_sites(plot1, project = p, fill_opacity = 0.9, fill = TRUE,
#                           fill_colour = c(grey(0.7), "red"), border = c(FALSE, TRUE),
#                           border_colour = "black",border_weight = 0.5)
#plot1