directory <- tempdir()
spectra <- getSpectraInTimeExample()
saveSpectra( spectra , directory )
experimentName <- getExperimentName( spectra )
file <- file.path( directory , paste0( experimentName , ".txt") )
spectraRead <- readSpectra( file )
unlink( directory )
Run the code above in your browser using DataLab