R/SeaBird.make.filename.R

In cttedwards/seabird2: Read and write SeaBird files in R

#' $Id: SeaBird.make.filename.R 1834 2007-12-02 21:32:26Z adunn $
#'
#' @export
#'
"SeaBird.make.filename"<-
function(file,path="")
{
  if(path != "") {
    plc<-substring(path, nchar(path))
    if(!(plc== "\\" | plc=="/")) path <- paste(path, "/", sep = "")
  }
  filename<-paste(path, file, sep = "")
  return(filename)
}