Nothing
## normfluodbf - R package that Cleans and Normalizes FLUOstar DBF and DAT Files
## Copyright (C) 2024 Tingwei Adeck
capture_output <- function(f, ...) {
sink(tempfile())
on.exit(sink())
f(...)
}
test_normfluodbf <- function(dbf, norm_scale){
out <- capture_output(normfluodbf, dbf, norm_scale)
expect_false(is.null(normfluodbf(dbf, norm_scale)))
}
test_that("test normfluodbf which is a modified version of my functions normfluordbf and norm_tidy_dbf", {
lipsum_214 <- system.file("extdata", "liposomes_214.dbf", package = "normfluodbf")
test_normfluodbf(lipsum_214, norm_scale = 'raw')
})
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.