R/readAODPmatch.R

Defines functions readAODPmatch

Documented in readAODPmatch

#########################
#### READ AODP MATCH ####
#########################
readAODPmatch <- function(filepath,
                          value = 0) {

  aodp <- data.table::fread(filepath, header = F,
                col.names = c("Target", "Source", "Percent_identity", "Length_target_ident", "Length_target_total", "Size_min_set", "Size_max_set"),
                na.strings = c("","NA"),
                colClasses = c("character", "character", "character", "integer",  "integer", "integer", "integer")
                  )
  aodp$Percent_identity <- gsub("%|<", "", aodp$Percent_identity)
  aodp$Percent_identity <- as.numeric(aodp$Percent_identity)
  aodp <- aodp[aodp$Percent_identity >= value,]

  class(aodp) <- c("aodpvisual", "data.frame")
  return(aodp)
}
anabeloff/AODPvisual documentation built on May 16, 2019, 6:56 p.m.