tests/testthat/test-shinytest2.R

In taxonomicallyinformedannotation/tima-r: Taxonomically Informed Metabolite Annotation

library(shinytest2)
library(timaR)

test_that("{shinytest2} recording: app", {
  get_file(
    url = "https://github.com/taxonomicallyinformedannotation/tima-example-files/raw/main/example_spectra_mini.mgf",
    export = "data/source/example_spectra.mgf"
  )
  get_file(
    url = "https://github.com/taxonomicallyinformedannotation/tima-example-files/raw/main/example_features.csv",
    export = "data/source/example_features.csv"
  )

  app <- AppDriver$new()
  app$upload_file(fil_spe_raw = "data/source/example_spectra.mgf")
  app$upload_file(fil_fea_raw = "data/source/example_features.csv")
  app$click("save")
  app$expect_values()
})