table_addSingleLocation: Add a single new known location record to a table

In MazamaScience/MazamaLocationUtils: Manage Spatial Metadata for Known Locations

Add a single new known location record to a table

Description

Incoming longitude and latitude values are compared against the incoming locationTbl to see if they are already within distanceThreshold meters of an existing entry. A new record is created for if the location is not already found in locationTbl.

Usage

table_addSingleLocation(
  locationTbl = NULL,
  longitude = NULL,
  latitude = NULL,
  distanceThreshold = NULL,
  stateDataset = "NaturalEarthAdm1",
  elevationService = NULL,
  addressService = NULL,
  verbose = TRUE
)

Arguments

locationTbl	Tibble of known locations.
longitude	Single longitude in decimal degrees E.
latitude	Single latitude in decimal degrees N.
distanceThreshold	Distance in meters.
stateDataset	Name of spatial dataset to use for determining state codes, Default: "NaturalEarthAdm1".
elevationService	Name of the elevation service to use for determining the elevation. Default: NULL. Accepted values: "usgs".
addressService	Name of the address service to use for determining the street address. Default: NULL. Accepted values: "photon".
verbose	Logical controlling the generation of progress messages.

Value

Updated tibble of known locations.

See Also

table_addLocation

table_removeRecord

table_updateSingleRecord

Examples

library(MazamaLocationUtils)

# Fail gracefully if any resources are not available
try({

  # Set up standard directories and spatial data
  spatialDataDir <- tempdir() # typically "~/Data/Spatial"
  initializeMazamaSpatialUtils(spatialDataDir)

  locationTbl <- get(data("wa_monitors_500"))
  
  nrow(locationTbl)

  # Coulee City, WA
  lon <- -119.290904
  lat <- 47.611942

  locationTbl <- 
    locationTbl %>%
    table_addSingleLocation(lon, lat, distanceThreshold = 500)
    
  nrow(locationTbl)
  
}, silent = FALSE)

MazamaScience/MazamaLocationUtils documentation built on Jan. 26, 2024, 3:16 p.m.