Nothing
get_germlineset <- function(sifgerm,pacbamfolder_bychrom,chrom){
germlineset = c()
chrom <- gsub(chrom,pattern = 'chr',replacement = '')
for(id in 1:nrow(sifgerm)){
thisSample=sifgerm[id,]
name = gsub(basename(thisSample$germline.bam),pattern = ".bam",replacement = "")
thisPileup.file = list.files(file.path(pacbamfolder_bychrom,name,"pileup"),full.names = TRUE,pattern = paste0("_chr",chrom,"\\.pileup$"))
germlineset = c(germlineset,thisPileup.file)
}
germlineset <- unique(germlineset)
return(germlineset)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.