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

descriptiveTableTainan2020dataset(savePath = 'tainan_test_table.pdf') return a table1 object and save a pdf file

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

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

descriptiveTableUtrecht2019dataset(savePath = 'utrecht_test_table.pdf') return a table1 object and save a pdf file