R/sidfex.fcst.search.rda2csv.R

In helgegoessling/SIDFEx: Tools for the Sea Ice Drift Forecast Experiment (SIDFEx)

sidfex.fcst.search.rda2csv <- function(rTab.in, headerlines, indexTable.path=NULL){
  # create and open the file connection
  datafile <- file(file.path(indexTable.path, "indexTable.csv"), open = 'wt')
  # if a header is defined, write it to the file
  writeLines(headerlines,con=datafile)
  # write the file using the defined function and required additional arguments
  write.csv(rTab.in, file=datafile, row.names = FALSE)
  close(datafile)
}