Tidy up code

Edit two comments and delete code that is no longer needed.

R/autoplot-filter-spct.r

@@ -1252,11 +1252,7 @@ autoplot.filter_spct <-
                 default = c("boxes", "labels", "summaries", "colour.guide", "peaks"))
     annotations <- decode_annotations(annotations,
                                       annotations.default)
-    # avoid warning in 'photobiology' (== 0.10.10)
-    if (is.character(norm) && norm == "update" && !is_normalized(object)) {
-      norm <- "skip"
-    }
-    # normalization needs to be redone if unit.out has changed
+    # normalization updated and quantity changed in one go
     object <- photobiology::normalize(x = object,
                                       range = range,
                                       norm = norm,

R/autoplot-response-spct.r

@@ -592,7 +592,7 @@ autoplot.response_spct <-
     if (is.character(norm) && norm == "update" && !is_normalized(object)) {
       norm <- "skip"
     }
-    # normalization needs to be redone if unit.out has changed
+    # normalization updated and base of expression changed in one go
     object <- photobiology::normalize(x = object,
                                       range = range,
                                       norm = norm,

R/autoplot-source-spct.r

@@ -766,11 +766,7 @@ autoplot.source_spct <-
                 default = c("boxes", "labels", "summaries", "colour.guide", "peaks"))
     annotations <- decode_annotations(annotations,
                                       annotations.default)
-    # avoid warning in 'photobiology' (== 0.10.10)
-    if (is.character(norm) && norm == "update" && !is_normalized(object)) {
-      norm <- "skip"
-    }
-    # normalization needs to be redone if unit.out has changed
+    # normalization updated and base of expression changed in one go
     object <- normalize(x = object,
                         range = range,
                         norm = norm,
@@ -878,7 +874,7 @@ autoplot.source_mspct <-
                                       use.hinges = TRUE,
                                       fill = NULL)
     }
-    # We apply the normalization to the collection if it is to be bound
+    # We apply the normalization and change of unit to the collection if it is to be bound
     # otherwise normalization is applied to the "parallel-summary" spectrum
     if (plot.data == "as.is") {
       object <- photobiology::normalize(object,