context("graphs")
test_that("test graph", {
fb_opts <- setFlowbasedPath(model = "model2017")
res <- plotFB(1,1,"FR","NL")
expect_true("combineWidgets" %in% class(res))
res <- plotFB(1,1,"NL","FR")
expect_true("combineWidgets" %in% class(res))
})
test_that("test plotNetPositionFB", {
dta <- antaresRead::readAntares(areas = c("fr", "be", "de", "nl"),
links = c("be - de","be - fr","be - nl",
"de - fr","de - nl"), mcYears = 2,
select = c("LOLD", "UNSP. ENRG",
"DTG MRG", "UNSP. ENRG", "BALANCE", "FLOW LIN."),
opts = testSt , showProgress = FALSE)
## plot a domain and the matching output points
res <- plotNetPositionFB(fb_opts = testSt,
data = dta,
dayType = 1, hour =19:20,
country1 = "BE", country2 = "FR")
expect_true("combineWidgets" %in% class(res))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.