R/mgsread.RLINE_receptors.R

In michellegrace/mgs.dispersion: This reads and plots dispersion related inputs and outputs.

#' read RLINE receptor file
#'
#' @param infile name of recpeor file used in RLINE run
#'
#' @export mgsread.RLINE_receptors
#########################################################################

#function to read RLINE receptor file

mgsread.RLINE_receptors <- function(infile){
  
  var_name <- c("X","Y","Z")
  
  #read in data
  data <- read.table(infile,skip=3,col.names=var_name,fill=FALSE)
  return(data)
  
}