removing examples that trigger false positive in CRAN tests

NEWS.md

@@ -1,4 +1,4 @@
-# aqp 2.2 (2025-02-06)
+# aqp 2.2 (2025-02-11)
  * CRAN release
  * fix for `hz_segment()` and `NCSP()` with _data.table_ `SoilProfileCollection` objects (#320)
  * fix for `generalize.hz()` to handle missing depths better and added `na.rm` argument (#321)

R/spec2Munsell.R

@@ -34,51 +34,6 @@
 #' 
 #' CIE. (n.d.). CIE 15:2004 Tables Data. Retrieved from https://law.resource.org/pub/us/cfr/ibr/003/cie.15.2004.tables.xls
 #' 
-#' @examples
-#' 
-#' # Munsell reference spectra
-#' data("munsell.spectra.wide")
-#' 
-#' # convert to closest Munsell chip
-#' # sRGB -> Munsell conversion via col2Munsell()
-#' spec2Munsell(munsell.spectra.wide[, '10YR 3/3'])
-#' 
-#' # attempt several
-#' cols <- c('10YR 6/2', '5YR 5/6', '10B 4/4', '5G 4/4', '2.5Y 8/2', '10YR 3/3', '7.5YR 2.5/2')
-#' 
-#' # most are exact or very close
-#' z <- do.call(
-#'   'rbind',
-#'   lapply(cols, function(i) {
-#'     spec2Munsell(munsell.spectra.wide[, i])  
-#'   })
-#' )
-#' 
-#' # format Munsell notation from pieces
-#' z$m <- sprintf("%s %s/%s", z$hue, z$value, z$chroma)
-#' 
-#' if (requireNamespace("colorspace")) {
-#' 
-#'   # compare
-#'   colorContrastPlot(
-#'     m1 = cols, 
-#'     m2 = z$m, 
-#'     labels = c('original', 'spectral\ninterpretation')
-#'   )
-#'   
-#' }
-#' 
-#' if (requireNamespace("gower")) {
-#' 
-#'   # mix colors, return spectra, convert to color
-#'   cols <- c('10YR 6/2', '5YR 5/6', '10B 4/4')
-#'   res <- mixMunsell(cols, keepMixedSpec = TRUE, mixingMethod = 'reference')
-#' 
-#'   # note that they are slightly different
-#'   res$mixed
-#'   spec2Munsell(res$spec)
-#' 
-#' }
 #' 
 spec2Munsell <- function(x, res = 10, convert = TRUE, SO = c('CIE1931', 'CIE1964'), illuminant = c('D65', 'F2'), ...) {