#########################
#### 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)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.