coolerZoomify <- function( coolerFiles , fileThreads=1, balance=FALSE, threads=getOption("threads",1L) ){
numfiles <- length(coolerFiles)
cmdString <- paste(
"cooler", "zoomify",
if(balance){"--balance"},
"-p", fileThreads,
coolerFiles
)
res <- cmdRun(cmdString,threads=threads)
return(coolerFiles)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.