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, col.names = T, row.names = F){
write.table(x, file = filename, sep = "\t", col.names = col.names, row.names = row.names, quote = F)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.