Nothing
readin <-
function (f.name, folder)
{
name <- scan(file = file.path(folder, f.name), quiet = TRUE,
what = "character", nlines = 1)
pop <- matrix(scan(file = file.path(folder, f.name), skip = 1,
quiet = TRUE), ncol = length(name), byrow = TRUE)
colnames(pop) <- name
pop
}
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.