library("photobiology")
context("extract")
test_that("reflector_spct", {
my.spct <- reflector_spct(w.length = 400:450, Rfr = 0.5, Rfr.type = "total")
my_z.spct <- my.spct
my_z.spct$z <- 1
expect_equal(class(my.spct)[1], "reflector_spct")
expect_equal(class(my.spct[ 1, ])[1], "reflector_spct")
expect_equal(class(my.spct[ FALSE, ])[1], "reflector_spct")
expect_equal(class(my.spct[ , -1])[1], "numeric")
expect_equal(class(my.spct[ , 1])[1], "integer")
expect_equal(class(my.spct[ FALSE, 1])[1], "integer")
expect_equal(class(my_z.spct)[1], "reflector_spct")
expect_equal(class(my_z.spct[ 1, ])[1], "reflector_spct")
expect_equal(class(my_z.spct[ FALSE, ])[1], "reflector_spct")
expect_equal(class(my_z.spct[ , 1])[1], "integer")
expect_equal(class(my_z.spct[ , -1])[1], "tbl_df")
expect_warning(my_z.spct[ , -2])
expect_equal(suppressWarnings(class(my_z.spct[ , -2])[1]), "reflector_spct")
expect_warning(my_z.spct[ 1 , -2])
expect_equal(suppressWarnings(class(my_z.spct[ 1, -2])[1]), "reflector_spct")
expect_equal(getRfrType(my_z.spct), getRfrType(my.spct))
expect_equal(getRfrType(my.spct[1:10, ]), getRfrType(my.spct))
expect_equal(getRfrType(my.spct[FALSE, ]), getRfrType(my.spct))
expect_equal(getRfrType(my_z.spct[ , -3]), getRfrType(my.spct))
expect_equal(getRfrType(my_z.spct[-(1:5) , -3]), getRfrType(my.spct))
expect_equal(getRfrType(my_z.spct[ , -3]), getRfrType(my.spct))
expect_equal(nrow(my_z.spct[ , -3]), nrow(my.spct))
expect_equal(ncol(my_z.spct[ , -3]), ncol(my.spct))
expect_equal(ncol(my.spct[FALSE , ]), ncol(my.spct))
expect_equal(nrow(my.spct[FALSE , ]), 0)
})
context("replace")
test_that("reflector_spct", {
my.spct <- reflector_spct(w.length = 400:450, Rfr = 0.5, Rfr.type = "total")
my_z.spct <- my.spct
my_z.spct[1, 2] <- 1
expect_equal(class(my_z.spct), class(my.spct))
my_z.spct[ , 2] <- 1
expect_equal(class(my_z.spct), class(my.spct))
expect_warning(my_z.spct[ , 2] <- -1)
expect_equal(class(my_z.spct), class(my.spct))
expect_warning(my_z.spct[ , 2] <- -(my.spct[ , 2]))
expect_equal(class(my_z.spct), class(my.spct))
my_z.spct <- my.spct
expect_error(my_z.spct[ , 1] <- -(my.spct[ , 1]))
my_z.spct <- my.spct
expect_error(my_z.spct[ , 1] <- 0)
my_z.spct <- my.spct
expect_error(my_z.spct$w.length <- 0)
my_z.spct <- my.spct
expect_error(my_z.spct[1 , 1] <- my.spct[ 2, 1])
my_z.spct <- my.spct
my_z.spct[1, 2] <- 1
expect_equal(getRfrType(my_z.spct), getRfrType(my.spct))
my_z.spct <- my.spct
my_z.spct[ , 2] <- 1
expect_equal(getRfrType(my_z.spct), getRfrType(my.spct))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.