context('Create directories')
library(EMLassemblyline)
# Directories exist -----------------------------------------------------------
testthat::test_that('Directories exist', {
# Existing directories result in error
expect_error(
suppressMessages(
template_directories(
path = system.file(
'/examples',
package = 'EMLassemblyline'
),
dir.name = 'templates'
)
)
)
})
# Directories don't exist -----------------------------------------------------
testthat::test_that("Directories don't exist", {
# Normal use results in directory structure
suppressMessages(
template_directories(
path = tempdir(),
dir.name = 'edi_101'
)
)
expect_true(
dir.exists(
paste0(
tempdir(),
'/edi_101'
)
)
)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.