R/readin.R

In yanxianUCSB/jascor: Helpr R Scripts for JASCO CD Spectrometer

#' 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)
}