meta_file <- tempfile(fileext = ".csv")
metadata_in <- data.frame(
class = c("A", "B", "A"),
batch = c("b1", "b1", "b2"),
row.names = c("s1", "s2", "s3")
)
utils::write.csv(metadata_in, meta_file)
read_metadata(meta_file, header.row = TRUE)
Run the code above in your browser using DataLab