R/table.R

In abelcastilloavant/csmpi: csmpi (http://github.com/abelcastilloavant/csmpi)

read_table <- function(filename, params) {
  params <- subset_by_function(read.table, params)
  do.call(read.table, c(list(filename), params))
}

write_table <- function(obj, filename, params) {
  if (!is.data.frame(obj)) {
    stop("Object provided is not a dataframe, cannot write to table format.")
  }

  params                  <- subset_by_function(read.table, params)
  params$stringsAsFactors <- FALSE
  do.call(write.table, c(list(obj, filename), params))
}

table_interface <- DiskInterface$new(read_table, write_table)