R/remove_multipart_transcripts.R

Defines functions remove_multipart_transcripts

remove_multipart_transcripts <- function(x) {
  if (identical(x$strand, rev(x$strand))) {
    return(x)
  } else {
    return(x[1, ])
  }
}
HajkD/metablastr documentation built on Sept. 14, 2023, 5:26 p.m.