#' standard readin funciton
#'
#' This function readin ASCII exported from the SpectraManager.exe
#'
#' @param first.row
#' @param last.row
#' @param ascii.file a ASCII export from the SpectraManager.exe
#'
#' @keywords Spectramanager
#' @export
#' @examples
#' xy.data <- readin('exported.txt')
readin <- function(ascii.file, first.row = 'XYDATA', last.row = '##### Extended Information') {
rd <- read.delim(file = ascii.file,
header = F,
sep = '\t', stringsAsFactors = F)
xy.data <-
rd[(which(rd$V1 == first.row) + 1):(which(rd$V1 == last.row) - 1),]
for(i in 1:ncol(xy.data)) {
xy.data[, i] <- as.numeric(xy.data[, i])
}
return(xy.data)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.