x <- example_dataset()
# Filtering returns x, so pipe with observations() to see the result
x %>%
filter_observations(observationType == "animal") %>%
observations()
# Filtering on observations also affects associated media, but not deployments
x %>%
filter_observations(
scientificName == "Vulpes vulpes",
observationLevel == "event"
) %>%
media()
x %>%
filter_observations(
scientificName == "Vulpes vulpes",
observationLevel == "media"
) %>%
media()
# Filtering on multiple conditions (combined with &)
x %>%
filter_observations(
deploymentID == "577b543a",
scientificName %in% c("Martes foina", "Mustela putorius")
) %>%
observations()
# Filtering on datetimes is easiest with lubridate
library(lubridate, warn.conflicts = FALSE)
x %>%
filter_observations(
eventStart >= lubridate::as_datetime("2020-06-19 22:00:00"),
eventEnd <= lubridate::as_datetime("2020-06-19 22:10:00")
) %>%
observations()
Run the code above in your browser using DataLab