dir <- tempdir()
setwd(dir)
dir.create(sprintf("/upper",dir))
file.create("f1.png")
testthat::expect_message(
upper_extension("PNG"),
"Pas de probleme d'extension"
)
file.create("f2.PNG")
testthat::expect_error(
upper_extension("PNG"),
"Les fichiers suivants ont une majuscule:\n f2.PNG"
)
convert_extension("PNG")
testthat::expect_message(
upper_extension("PNG"),
"Pas de probleme d'extension"
)
testthat::expect_true(
file.exists("f2.png")
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.