#' $Id: SeaBird.convert.to.lines.R 1747 2007-11-12 21:01:38Z adunn $
#'
#' @export
#'
"SeaBird.convert.to.lines"<-
function(filename)
{
# note blank lines are not included - I would rather they were but am not sure how
scan(filename, what = "", sep = "\n")
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.