R/export.R

In rsheets/linen: Spreadsheet Data Structures

## This is the stupid exporter.  We'll get a decent exporter
## implemented later, but there's no great rush.  And things like
## TableToLongForm actually want a big table of text values so that's
## all cool.

to_values <- function(x) {
  ## This is duplicated from the unmerge_headers function but we'll
  ## want to separate that out at some point.
  i <- x$lookup
  ret <- array(lapply(x$cells$value[i], function(x) x %||% NA),
               dim(i))
  colnames(ret) <- x$header
  ret
}