Nothing
renamefields <-
function (dat, ID = "ID", x = "x", y = "y", Species = "Species")
{
cn <- names(dat)
m0 <- match(ID, cn, nomatch = 0)
m1 <- match(x, cn, nomatch = 0)
m2 <- match(y, cn, nomatch = 0)
m3 <- match(Species, cn, nomatch = 0)
cn[m0] <- "ID"
cn[m1] <- "x"
cn[m2] <- "y"
cn[m3] <- "Species"
names(dat) <- cn
return(dat)
}
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.