1 2 | Rsamtools_view(sam_name, sam_directory = ".", sam_end = ".sam",
parallel_num = 8, flag_filter = 2816)
|
1 2 3 4 5 6 7 | sam_filenames <- gsub(".sam","",grep(".sam$",list.files(),value = T) )
sapply(
sam_filenames,
function(x){
Rsamtools_view(x,flag_filter = 2816) %>% Rnohup(.,paste0(x,"_samfilter") )
}
)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.