file.exists(file.path(output_dir, paste0(dir_foldername, "_ontology_data-output.ttl"))) is not TRUE

`actual`:   FALSE
`expected`: TRUE 
TTL output file is missing for PV data

test_that("The output files are correctly generated for PV data", {
# Copy CSV files from the package's extdata to the temporary directory
extdata_path <- system.file("extdata", "PV", package = "FAIRmaterials")
file.copy(from = list.files(extdata_path, full.names = TRUE),
# Process the CSV files in the PV folder
# Check if the expected TTL output file exists
"TTL output file is missing for PV data")
# Check if the expected JSON-LD output file exists
"JSON-LD output file is missing for PV data")
# Check if the expected SVG plot output file exists
"SVG plot output file is missing for PV data")
# Clean up: Remove temporary directory and all contents
test_that("The output files are correctly generated for XRay data", {
extdata_path <- system.file("extdata", "XRay", package = "FAIRmaterials")
# Process the CSV files in the XRay folder
"TTL output file is missing for XRay data")
"JSON-LD output file is missing for XRay data")
"SVG plot output file is missing for XRay data")
test_that("Output files are correctly generated and different with external ontology info for XRay data", {
original_ttl <- readLines(file.path(output_dir,  paste0(dir_foldername, "_ontology_data-output.ttl")))
original_jsonld <- readLines(file.path(output_dir,  paste0(dir_foldername, "_ontology_data-output.jsonld")))
# Re-run processing with external ontology info
new_ttl <- readLines(file.path(output_dir, paste0(dir_foldername_comp, "_ontology_data-output.ttl")))
new_jsonld <- readLines(file.path(output_dir, paste0(dir_foldername_comp, "_ontology_data-output.jsonld")))
# Assert that files have changed as expected
"TTL file content should change with external ontology information")
"JSON-LD file content should change with external ontology information")
test_that("Output files are correctly generated and different with value type inclusion for XRay data", {
# Assert that SVG files have changed as expected
"SVG plot content should change with value type inclusion")
test_that("The output files are correctly generated for merged data", {
extdata_path <- system.file("extdata", package = "FAIRmaterials")
# Process the CSV files in the mereged folder
# Check if the expected TTL output file exists in subdirectories
sub_dirs <- list.dirs(output_dir, recursive = TRUE, full.names = TRUE)
paste("TTL output file is missing in", sub_dir_foldername))
paste("JSON-LD output file is missing in", sub_dir_foldername))
paste("SVG plot output file is missing in", sub_dir_foldername))
"JSON-LD output file is missing in data")
"SVG plot output file is missing in data")