better warning for non numeric vector in wavenumbers

wincowgerDEV · Aug 25, 2023 · be48968 · be48968
1 parent 9908782
commit be48968
Show file tree

Hide file tree

Showing 5 changed files with 18 additions and 15 deletions.
diff --git a/R/as_OpenSpecy.R b/R/as_OpenSpecy.R
@@ -253,7 +253,7 @@ as_OpenSpecy.default <- function(x, spectra,
                                  coords = "gen_grid",
                                  session_id = FALSE,
                                  ...) {
-  if (!is.numeric(x) && !is.complex(x) && !is.vector(x))
+  if (!is.numeric(x) || !is.complex(x) || !is.vector(x))
     stop("'x' must be numeric vector", call. = F)
   if (!inherits(spectra, c("data.frame", "matrix")))
     stop("'spectra' must inherit from data.frame or matrix", call. = F)

diff --git a/R/manage_spec.R b/R/manage_spec.R
@@ -98,21 +98,21 @@ c_spec.list <- function(x, range = NULL, res = 5, ...) {
 }
 
 
-#' @rdname process_spec
+#' @rdname manage_spec
 #'
 #' @export
 sample_spec <- function(x, ...) {
   UseMethod("sample_spec")
 }
 
-#' @rdname process_spec
+#' @rdname manage_spec
 #'
 #' @export
 sample_spec.default <- function(x, ...) {
   stop("object 'x' needs to be of class 'OpenSpecy'")
 }
 
-#' @rdname process_spec
+#' @rdname manage_spec
 #'
 #' @export
 sample_spec.OpenSpecy <- function(x, ...) {

diff --git a/R/match_spec.R b/R/match_spec.R
@@ -244,3 +244,6 @@ filter_spec.OpenSpecy <- function(x, logic, ...) {
 
   return(x)
 }
+
+
+
diff --git a/man/manage_spec.Rd b/man/manage_spec.Rd
diff --git a/man/process_spec.Rd b/man/process_spec.Rd