test_that("fileExtension() works", {
paths <- c("C:/example/file.csv", "file2.txt", "D:/e/f/ghi.jkl.zip")
expect_equal(fileExtension(paths), c("csv", "txt", "zip"))
expect_equal(fileExtension("C:/NEWS"), "")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.