Clean up import_nmr_spectra_data and its test code

[kaizadp]

PS: I didn't know df$sampleID <- basename(filename) was possible! Much cleaner than what I was using.