New issue with average.spec.se

[serbinsh]

Failing at this line and no longer seems to properly copy out the bad spectra to a file

R-FieldSpectra/R/average.spec.se.R

Line 374 in fce607d

spec.name <- gsub("-","_",droplevels(bad.spec[i,1]))

Error in UseMethod("droplevels") : 
  no applicable method for 'droplevels' applied to an object of class "character"
9.
droplevels(bad.spec[i, 1])
8.
is.factor(x)
7.
gsub("-", "_", droplevels(bad.spec[i, 1]))
6.
average.spec.se(settings.file=settings, outlier.cutoff=3.5, spec.type="Refl") at process_spectra.r#36
5.
eval(ei, envir)
4.
eval(ei, envir)
3.
withVisible(eval(ei, envir))
2.
source("~/Library/CloudStorage/OneDrive-NASA/Data/Projects/NASA/AVUELO/Spectra/NASA_GSFC/Gamboa_v2/PSR+3500_1576059/AVUELO_TownsendLeafSpectra_semiprocessed/LeafSpectra/Gamboa/20250212/process_spectra.r")
1.
source("~/Library/CloudStorage/OneDrive-NASA/Data/Projects/NASA/AVUELO/Spectra/NASA_GSFC/Gamboa_v2/PSR+3500_1576059/AVUELO_TownsendLeafSpectra_semiprocessed/LeafSpectra/Gamboa/20250212/process_spectra.r")

Need better error handling and figure out why this is no longer working