R/writeMetadata.R

Defines functions writeMetadata

Documented in writeMetadata

writeMetadata <- function(x, filename = "Metadata", format = c("R", "csv"), ...){
  
  nam <- deparse(substitute(x))
  format <- match.arg(format)
  
  assign(nam,x)
  
  switch(format,
         R = save(list = eval(nam), file = paste(filename, ".Rdata", sep = ""), ...),
         csv = write.table(x, file = paste(filename, ".csv", sep = ""), sep = ",",
                           row.names = FALSE, ...))
}

Try the MALDIrppa package in your browser

Any scripts or data that you put into this service are public.

MALDIrppa documentation built on March 29, 2022, 1:05 a.m.