if (FALSE) {
x <- data.frame(species = letters[1:10],
decimalLongitude = c(runif(99, -180, 180), -47.882778),
decimalLatitude = c(runif(99, -90, 90), -15.793889))
cc_cap(x)
cc_cap(x, value = "flagged")
}
Run the code above in your browser using DataLab