Nothing
test_that("format_filenames", {
files_dir <- system.file("extdata", "demo/format", package = "ngstk")
pattern <- "*.txt"
x <- format_filenames(files_dir = files_dir, pattern = pattern, prefix = "hg38_")
x <- unname(x)
x <- sort(x)
x <- basename(x)
expect_that("hg38_cancer_circrna.txt" %in% x, equals(TRUE))
expect_that("hg38_cancer_circrna_mre.txt" %in% x, equals(TRUE))
expect_that("hg38_common_circrna.txt" %in% x, equals(TRUE))
x <- format_filenames(files_dir = files_dir, pattern = pattern, prefix = "hg38_",
toupper = TRUE)
x <- unname(x)
x <- sort(x)
x <- basename(x)
expect_that(toupper("hg38_cancer_circrna.txt") %in% x, equals(TRUE))
x <- format_filenames(files_dir = files_dir, pattern = pattern, prefix = "hg38_",
toupper = TRUE, tolower = TRUE)
x <- unname(x)
x <- sort(x)
x <- basename(x)
expect_that("hg38_cancer_circrna.txt" %in% x, equals(TRUE))
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.