Browse code

minor fix

Simone authored on 20/09/2018 15:56:54
Showing1 changed files

... ...
@@ -106,7 +106,7 @@ export_gmql <- function(samples, dir_out, is_gtf)
106 106
         lapply(samples,function(x,dir){
107 107
             #anonymusFile <- file()
108 108
             sample_name <- file.path(dir,paste0("S_",cnt(),".gtf"))
109
-            g <- rtracklayer::export(x,format = "gtf",is.na)
109
+            g <- rtracklayer::export(x,format = "gtf")
110 110
             #lines <- readLines(sample_name)
111 111
             lines <- g[-(1:3)] #delete first 3 lines
112 112
             writeLines(lines,sample_name)