file.exists(path) is not TRUE

`actual`:   FALSE
`expected`: TRUE

test_that("descriptiveTableMunich2019dataset() return a tabe1 object without saving anything", {
t1 <- descriptiveTableMunich2019dataset(savePath = NULL)
test_that("descriptiveTableMunich2019dataset(savePath = 'tables/') return a table1 object and save a png file", {
path <- file.path(paste0(tempdir(), '/tables'), "")
dir.create(path, recursive = TRUE, showWarnings = FALSE)
t1 <- descriptiveTableMunich2019dataset(savePath = path)
test_that("descriptiveTableMunich2019dataset(savePath = 'tables/munich_test_table.html') return a table1 object and save a html file", {
dir.create(dirname(path), recursive = TRUE, showWarnings = FALSE)
test_that("descriptiveTableMunich2019dataset(savePath = 'munich_test_table.pdf') return a table1 object and save a pdf file", {
test_that("descriptiveTableMunich2019dataset(savePath = 'imgs') return a table1 object and generates a 'Directory not found' warning'", {
expect_warning(t1 <- descriptiveTableMunich2019dataset(savePath = path))
test_that("descriptiveTableMunich2019dataset(savePath = 'munich_test_table.jpeg') return a table1 object and generates a 'Extension not supported' warning", {

"descriptiveTableMunich2019dataset() return a tabe1 object without saving anything"
"descriptiveTableMunich2019dataset(savePath = 'tables/') return a table1 object and save a png file"
"descriptiveTableMunich2019dataset(savePath = 'tables/munich_test_table.html') return a table1 object and save a html file"
"descriptiveTableMunich2019dataset(savePath = 'munich_test_table.pdf') return a table1 object and save a pdf file"
"descriptiveTableMunich2019dataset(savePath = 'imgs') return a table1 object and generates a 'Directory not found' warning'"
"descriptiveTableMunich2019dataset(savePath = 'munich_test_table.jpeg') return a table1 object and generates a 'Extension not supported' warning"

descriptiveTableMunich2019dataset(savePath = 'munich_test_table.pdf') return a table1 object and save a pdf file

test_that("descriptiveTableTainan2020dataset() return a tabe1 object without saving anything", {
t1 <- descriptiveTableTainan2020dataset(savePath = NULL)
test_that("descriptiveTableTainan2020dataset(savePath = 'tables/') return a table1 object and save a png file", {
t1 <- descriptiveTableTainan2020dataset(savePath = path)
test_that("descriptiveTableTainan2020dataset(savePath = 'tables/tainan_test_table.html') return a table1 object and save a html file", {
test_that("descriptiveTableTainan2020dataset(savePath = 'tainan_test_table.pdf') return a table1 object and save a pdf file", {
test_that("descriptiveTableTainan2020dataset(savePath = 'imgs') return a table1 object and generates a 'Directory not found' warning'", {
expect_warning(t1 <- descriptiveTableTainan2020dataset(savePath = path))
test_that("descriptiveTableTainan2020dataset(savePath = 'tainan_test_table.jpeg') return a table1 object and generates a 'Extension not supported' warning", {