Nothing
#' Extract numeric case IDs by pump neighborhood.
#'
#' @param x An object created by \code{neighborhoodEuclidean()}, \code{neighborhoodVoronoi()} or \code{neighborhoodWalking()}.
#' @param case Character. "address" or "fatality"
#' @return An R list of numeric ID of cases by pump neighborhoods.
#' @export
#' @examples
#' \dontrun{
#' pumpCase(neighborhoodEuclidean())
#' pumpCase(neighborhoodVoronoi())
#' pumpCase(neighborhoodWalking())
#' }
pumpCase <- function(x, case) UseMethod("pumpCase", x)
pumpCase.default <- function(x, case) NULL
#' @export
pumpCase.euclidean <- function(x, case = "address") {
pumps <- sort(unique(x$nearest.pump))
out <- lapply(pumps, function(p) {
x$anchors[x$nearest.pump == p]
})
stats::setNames(out, paste0("p", pumps))
}
#' @export
pumpCase.voronoi <- function(x, case = "address") {
output <- x$statistic.data
if (x$case.location == "address") {
lapply(output, function(x) cholera::fatalities.address$anchor[x == 1])
} else if (x$case.location == "nominal") {
lapply(output, function(x) cholera::fatalities$case[x == 1])
}
}
#' @export
pumpCase.walking <- function(x, case = "address") {
if (case == "address") {
x$cases
} else if (case == "fatality") {
lapply(x$cases, function(dat) {
cholera::anchor.case[cholera::anchor.case$anchor %in% dat, "case"]
})
} else stop('case must either be "address" or "fatality"')
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.