read_tsv <- function(path, ...){
file <- data.table::fread(input=path, sep="\t", header=T, quote="\"", check.names=F, ...)
return(file)
}
write_tsv <-
function(x, filename){
write.table(x, file = filename, sep = "\t", col.names = T, row.names = F, quote = F)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.