add expect warn, remove complex requirement

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

Hide file tree

Showing 2 changed files with 2 additions and 3 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.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/tests/testthat/test-match_spec.R b/tests/testthat/test-match_spec.R
@@ -19,8 +19,7 @@ test_that("cor_spec returns a data.table with correct columns", {
     matches <- cor_spec(unknown,library =  test_lib)
     unknown2 <- unknown
     unknown2$wavenumber[1:3] <- unknown2$wavenumber[1:3] +1
-    matches2 <- cor_spec(unknown2,library =  test_lib)
-
+    expect_warning(matches2 <- cor_spec(unknown2,library =  test_lib))
     expect_true(inherits(matches, "matrix"))
     expect_identical(dim(matches), c(ncol(test_lib$spectra), ncol(unknown$spectra)))
     top_matches <- max_cor_named(cor_matrix = matches, na.rm = T)