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"
)

Arguments

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

Examples

#\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