x <- data.frame(species = letters[1:10],
decimalLongitude = c(runif(99, -180, 180), 37.577800),
decimalLatitude = c(runif(99, -90,90), 55.710800))
#large buffer for demonstration, using geod = FALSE for shorter runtime
cc_inst(x, value = "flagged", buffer = 10, geod = FALSE)
if (FALSE) {
#' cc_inst(x, value = "flagged", buffer = 50000) #geod = T
}
Run the code above in your browser using DataLab