R/methods-SffHeader.R

In msettles/rSFFreader: rSFFreader reads in sff files generated by Roche 454 and Life Sciences Ion Torrent sequencers

### Accessor functions
setMethod(header, 
	        signature="SffHeader", 
	        function(object) object@header
)

## show
setMethod(show, 
          signature="SffHeader",
	        function(object) {
	          cat("class: ", class(object), "\n", sep="")
#           sapply(header(object), function(x) cat("file:",x$filename,"; number of reads:",x$number_of_reads,"; numer of flows:",x$number_of_flows,"\n"))
})

## detail
setMethod(detail,
	        signature="SffHeader",
	        function(x, ...) {
	          cat("class: ", class(x), "\n", sep="")
            cat("\nheader information:\n")
            show(header(x))   
})