R/subsetters.R

In abarbour/yhs.catalog: Yang, Hauksson, and Shearer (2012) Refined Focal Mechanism Catalog for Southern California

#' Extract quakes in the Salton trough
#' @export
#' @param ... additional parameters to
#' @examples
#' salt <- salton_trough_yhs()
#' plot(Lat.deg ~ Lon.deg, salt, pch=".", asp=1.19)
#' lines(saltonsea)
salton_trough_yhs <- function(...){
  Lat.deg <- Lat.deg <- Lon.deg <- Lon.deg <- NULL
  ne <- new.env()
  utils::data('yhs', package='yhs.catalog', envir=ne) 
  get("yhs", envir=ne) %>% 
    dplyr::filter(Lat.deg > 32.5 & Lat.deg < 33.7 & Lon.deg > -116.3 & Lon.deg < -115.0)
}