Nothing
readInput <-
function(data){
# if data is character, i.e. a file path,
if(is.character(data)){
# if file exists
if(file.exists(data)){
DATA = as.matrix(read.table(data))
return(DATA)
} else {
stop(paste("input file path",data,"is not valid\n"))
}
}else{
# if data is already a matrix
#if(is.matrix(data)){
return(as.matrix(data))
}
# otherwise input data is incorrect :
stop(paste("input data",data,"is not valid\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.