library(testthat)
library(lib5af)
context(datafr)
# GenData$`M proc`
# GenData$`C proc`
# GenData$`FP proc`
# GenData$`KD proc`
# GenData$`S proc`
# GenData$`V proc`
# GenData$`MP proc`
# GenData$`SD proc`
# GenData$`FI proc`
t_numeric<- function(x) {
if (class(x) != "numeric"){
stop("Not a number")}
}
test_that("Party is correct", {
tal<-GenData$new(path=path)
testthat::expect_named(c(GenData$`M tal`,
GenData$`C tal`,
GenData$`FP tal`,
GenData$`KD tal`,
GenData$`S tal`,
GenData$`V tal`,
GenData$`MP tal`,
GenData$`SD tal`,
GenData$`FI tal`))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.