tests/testthat/test-tidy-epma.R

In atusy/qntmap: Enhance quantitative analysis of EPMA map

context("test-tidy-epma.R")

if (interactive()) setwd(here::here("tests/testthat"))

if (!exists("xmap")) source("setup.R")

test_that("cluster = NULL", {
  epma <- tidy_epma(qnt, xmap)
  expect_true(is.data.frame(epma))
  expect_true(all(is.na(epma$cls)))
  expect_true(all(is.na(epma$mem)))
})

test_that("cluster specified", {
  epma <- tidy_epma(qnt, xmap, cluster)
  expect_false(any(is.na(epma$cls)))
  expect_true(is.character(epma$cls))
  expect_false(any(is.na(epma$mem)))
  expect_true(is.numeric(epma$mem))
})


test_that("tidy_epma_for_quantify", {
  epma <- tidy_epma_for_quantify(
    qnt, xmap, cluster,
    maps_x = 100L,
    maps_y = 100L,
    elements = qnt$elm$elem,
    subcluster = FALSE,
    fine_phase = NULL,
    fine_th = .9
  )
  expect_true(all(epma$net >= 0))
  expect_true(is.character(epma$stg))
  expect_equal(epma$phase3, epma$phase_grouped)
  expect_true(all(is.finite(epma$mem)))
})

if (interactive()) setwd(here())