tests/test_extname.R

library(ribiosUtils)

stopifnot(identical(extname("mybook.pdf"), "pdf"))
stopifnot(identical(extname("sequence.in.fasta"), "fasta"))
stopifnot(identical(extname(c("/path/mybook.pdf", "test.doc")),
                    c("pdf", "doc")))
                            
stopifnot(identical(extname("README"), NA))
stopifnot(identical(extname("/path/my\ home/Holiday Plan.txt"), "txt"))

Try the ribiosUtils package in your browser

Any scripts or data that you put into this service are public.

ribiosUtils documentation built on March 13, 2020, 2:54 a.m.