Nothing
filter.country<-function(data,country)
{
if(!is.data.frame(data))
stop("Invalid input parameter specification: check data")
if(!is.character(country) || !grepl("^[a-zA-Z]+$",gsub(" ", "", country)))
stop("Invalid input parameter specification: check country format")
if(!("Country"%in%names(data)))
stop("Error: data does not contain column named Country")
if(!(country%in%as.character(data$Country)))
stop("No data for selected country")
data[as.character(data$Country)==country,]
}
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.