From 373e2f3791e9791e994d8ec820a976f01ccfa92b Mon Sep 17 00:00:00 2001
From: Philipp Baumann <philipp.baumann@usys.ethz.ch>
Date: Tue, 17 Dec 2019 16:42:09 +0100
Subject: [PATCH] Support relabeling mean spectra (`lb_spc_mean`)

---
 R/plot-spc-extended.R | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/R/plot-spc-extended.R b/R/plot-spc-extended.R
index 38f8be7..6c691b5 100644
--- a/R/plot-spc-extended.R
+++ b/R/plot-spc-extended.R
@@ -288,6 +288,7 @@ relabel_spc_types <- function(lb_sc_sm = "Reflectance sample (<ScSm>)",
                               lb_spc_nocomp = "Abs. before atm. comp.",
                               lb_spc = "Absorbance",
                               lb_spc_rs = "Resampled Abs.",
+                              lb_spc_mean = "Mean Abs.",
                               lb_spc_pre = "Preprocessed Abs.") {
   ggplot2::as_labeller(
     x = c(
@@ -297,6 +298,7 @@ relabel_spc_types <- function(lb_sc_sm = "Reflectance sample (<ScSm>)",
       "spc_nocomp" = lb_spc_nocomp,
       "spc" = lb_spc,
       "spc_rs" = lb_spc_rs,
+      "spc_mean" = lb_spc_mean,
       "spc_pre" = lb_spc_pre
     )
   )