bafData <- function(cnv) {
tmp <- as.data.table(mcols(cnv$snp)[,c("t.AF", "t.DP", "seg")])
tmp[,idx:=1:nrow(tmp)]
return(tmp)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.