tests/testthat/helper.R

In antonvsdata/notame: Workflow for non-targeted LC-MS metabolic profiling

test_plot_saving_helper <- function(func, title) {
  prefix <- paste0(tempdir(), "\\test\\")
  tmp <- example_set[1:5]
  tmp$Metabolite_name <- c("Glucose", "Threoline", "5-AVAB", "1/2 acid", "20:0 carbon chain")
  func(drop_qcs(tmp), file_path = prefix, format = "emf", title = title)
  if (is.null(title)) {
    expect_equal(all(list.files(path = prefix) %in% paste0(featureNames(tmp), ".emf")), TRUE)
  } else if (title == "Metabolite_name") {
    expect_equal(all(
      list.files(path = prefix) %in% paste0(featureNames(tmp), "_", fData(tmp)$Metabolite_name, ".emf")
    ), TRUE)
  } else {
    expect_equal(all(list.files(path = prefix) %in% paste0(featureNames(tmp), ".emf")), TRUE)
  }
  unlink(prefix, recursive = TRUE)
}


test_file_extension_helper <- function(fileext) {
  p <- ggplot()
  file <- tempfile(fileext = fileext)
  save_plot(p, file)
  expect_equal(file.exists(file), TRUE)
  unlink(file)
}