R/AttributesModifier.R

In SamanthaRoseCoy/task09: Package that adds a header to a .gff smrtanalysis output

#' AttributesModifier
#'
#' Imports the processed data from the commandline smrtanalysis pipeline.
#' This data has been subjected to ipdSummary.py and MotifMaker (with the
#' reprocess command) to generate a GFF file containing the genomic site
#' for each motif and non-motif associated DNA modification.  This dataset
#' given headers for each column for downstream processing.
#'
#' @param Infile Smrtanalysis output (.gff)
#' @return A dataframe containing a header row for each column.
#' @export
#' @examples
#' AttributesModifier

AttributesModifier <- function(Infile){
  gff_file <-read.delim(Infile, header = F, sep = "\t", comment.char="#")
  colnames(gff_file) <- c("Seqid", "Source", "Type", "Start", "End", "Score", "Strand", "Phase", "Attributes")
return(gff_file)
}