.is.sds <- function(x) 'sampleDataset' %in% class(x)
loadInput <- function (input) {
if (is.data.frame(input)) {
df = input
} else if (is.character(input)) {
df = read.csv(input, sep='\t')
} else {
stop("Input is not a tsv file or a data.frame")
}
return(df)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.