# create temporary directory to write out
file <- paste0(tempdir(),"/eem_export/")
dir.create(file)
# run eem_export to write one csv file for each sample
eem_export(file, format = "csv", eem_list)
# show content of output directory
dir(file)
Run the code above in your browser using DataLab