x <- data.frame(species = letters[1:10],
decimalLongitude = c(runif(106, -180, 180), NA, "13W33'", "67,09", 305),
decimalLatitude = runif(110, -90,90))
cc_val(x)
cc_val(x, value = "flagged")
Run the code above in your browser using DataLab