Nothing
checkdatastr <-
function (dat)
{
cn <- names(dat)
fn <- c("ID", "x", "y", "Species", "x_original", "y_original",
"Correction", "Modified", "Exclude","Reason")
m <- rep(0, length(fn))
for (i in 1:length(fn)) {
m[i] <- match(fn[i], cn, nomatch = 0)
}
present <- m > 0
n <- data.frame(Field = fn, Present = present)
return(n)
}
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.