R/input_functions.R

In joshuamschmidt/multiPermr: What the Package Does in One 'Title Case' Line

gtf_reader <- function(gtf_file){
  # col 9 must be gene name info....
  gtf <- fread(gtf_file)
  gtf[,gene:=tstrsplit(x=V9, split=';|"| ',keep = 3)]
  return(gtf[,.(chr=V1,start=V4,end=V5,gene)])
}