folder <- tempdir()
meta_file <- tempfile(fileext = ".csv")
metadata_in <- data.frame(sample = c("sample1", "sample2"), class = c("A", "B"))
utils::write.csv(metadata_in, meta_file, row.names = FALSE)
if (FALSE) {
read_dataset_dx(folder, filename.meta = meta_file)
}
Run the code above in your browser using DataLab