#' Internal function to identify the species with less than 3 records.
#'
#' @param occ A 'spOcc' object with 'SpatialPoints' features.
#' @noRd
f.clean <- function (occ){
options(digits=4)
sp.clean <- nrow(coordinates(occ@coords)) < 3
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.