| GetOverpasses {spectator} | R Documentation |
Gets overpasses for an area of interest
Description
Retrieves the footprint polygons of past and/or (near)future overpasses of specified satellites over an area of interest.
Usage
GetOverpasses(
aoi,
satellites = NULL,
days_before = 0,
days_after = 7,
acquisitions = TRUE,
api_key = Sys.getenv("spectator_earth_api_key")
)
Arguments
aoi |
' |
satellites |
character vector, if specified only the listed satellites will be retrieved,
if |
days_before |
integer indicating the number of days before the current date for which overpasses should be computed. Default: 0 |
days_after |
integer indicating the number of days after the current date for which overpasses should be computed. Default: 7 |
acquisitions |
logical indicating if only the overpasses when the data acquisition will take place should be reported. Default: TRUE |
api_key |
character containing your API key. Default: |
Details
This function requires an API key that is automatically generated for every registered account at
https://app.spectator.earth. You can find it under 'Your profile' (bottom left button).
By default, the API key is retrieved from the environment variable spectator_earth_api_key,
but you can choose any other way of providing it (it is recommended NOT to include it in your scripts).
Value
Object of class 'sf' with 'POLYGON' geometry type and attributes
idinteger identifier
acquisitionslogical whether the overpass collects the data
datePOSIXct timestamp of the overpass (UTC - to be checked)
satellitecharacter satellite name
Source
https://api.spectator.earth/#satellite-overpasses
Examples
if(interactive()){
library(sf)
# get the Luxembourg country shape as area of interest
boundary <- read_sf(system.file("extdata", "luxembourg.geojson", package = "spectator"))
# look for Sentinel-2 A and B, use shorthand notation, default time frame
pass <- GetOverpasses(boundary, satellites = "S-2", acquisitions = TRUE)
# do some nice graphs
library(maps)
days <- range(as.Date(pass$date))
satellites <- sort(unique(pass$satellite))
map(database = "world", region = c("Belgium", "Netherlands", "Germany", "Luxembourg",
"France", "Switzerland"), col = "lightgrey", fill = TRUE)
plot(sf::st_geometry(boundary), add = TRUE, col = "red", border = FALSE)
plot(sf::st_geometry(pass), add = TRUE)
title(main = sprintf("%s overpasses for period %s", paste(satellites, collapse = "/"),
paste(days, collapse = ":")))
}