This map is useful to compare and update WAStD with and from WAMTRAM sites.

map_wastd_wamtram_sites(wastd_areas, wastd_sites, wamtram_sites)

Arguments

wastd_areas

Areas from wastd_data.

wastd_sites

Sites from wastd_data.

wamtram_sites

Sites from wamtram_data.

Value

A leaflet map

See also

Other wastd: add_nest_labels(), disturbance_by_season(), filter_alive(), filter_dead(), filter_disturbance(), filter_predation(), ggplot_disturbance_by_season(), ggplot_emergence_success(), ggplot_hatching_success(), ggplot_hatchling_misorientation(), ggplot_nesting_success_per_area_season_species_pct(), ggplot_nesting_success_per_area_season_species(), ggplot_sighting_status_per_area_season_species(), ggplot_total_emergences_per_area_season_species(), ggplot_track_success_by_date(), ggplot_track_successrate_by_date(), hatching_emergence_success_area(), hatching_emergence_success_site(), hatching_emergence_success(), map_dist(), map_fanangles(), map_mwi(), map_nests(), map_tracks(), map_wastd(), nesting_success_per_area_day_species(), nesting_success_per_area_season_species(), nesting_type_by_area_season_age_species(), nesting_type_by_area_season_species(), nesting_type_by_season_age_species(), nesting_type_by_season_calendarday_age_species(), nesting_type_by_season_calendarday_species(), nesting_type_by_season_day_species(), nesting_type_by_season_species(), nesting_type_by_season_week_age_species(), nesting_type_by_season_week_site_species(), nesting_type_by_season_week_species(), nesting_type_by_site_season_age_species(), nesting_type_by_site_season_species(), parse_animal_encounters(), parse_area_sf(), parse_area(), parse_encounterobservations(), parse_surveys(), parse_turtle_nest_encounters(), print.wastd_api_response(), sighting_status_per_area_season_species(), sighting_status_per_site_season_species(), summarise_hatching_and_emergence_success(), summarise_wastd_data_per_day_site(), total_emergences_per_area_season_species(), total_emergences_per_site_season_species(), track_success_by_species(), track_success(), tracks_ts()

Examples

if (FALSE) {
library(wastdr)

# From canned data
wastd_sites <- wastdr::download_wastd_sites()
load("inst/wamtram_data.RData")
w2_data <- wamtram_data
map_wastd_wamtram_sites(wastd_sites$localities, wastd_sites$sites, w2_data$sites)


# From live data
ws <- wastdr::download_wastd_sites()

# split rows by place code, map only what place codes are not in wastd yet
map_wastd_wamtram_sites(areas, sites, w2_data$sites)
}