tests/testthat/test-glimpse.R

In jasenfinch/metaboWorkflows: Workflow Project Templates for Metabolomics Analyses

test_that("glimpse works", {
  file_paths <- metaboData::filePaths('FIE-HRMS','BdistachyonEcotypes')
  sample_information <- metaboData::runinfo('FIE-HRMS','BdistachyonEcotypes')
  
  workflow_input <- inputFilePath(file_paths,sample_information)
  
  workflow_definition <- defineWorkflow(workflow_input,
                                        'FIE-HRMS fingerprinting',
                                        'Example project')
  
  pl <- glimpse(workflow_definition)
  
  expect_s3_class(pl,'visNetwork')
})