tests/testthat/test_sensitivity.R

In ideas-lab-nus/epluspar: Conduct Parametric Analysis on 'EnergyPlus' Models

context("Sensitivity")

# Sensitivity {{{
test_that("Sensitivity", {
    skip_if_not(eplusr::is_avail_eplus(8.8))

    # read idf
    example <- copy_example()
    sen <- SensitivityJob$new(example$idf, example$epw)

    expect_error(sen$param(GP01 = list(Thickness = c(0, 1))))
    expect_error(sen$param(GP01 = list(Thickness = c(2, 2, 1))))
    expect_error(sen$param(GP01 = list(Thickness = c(1, 2, 0))))
    expect_error(sen$param(GP01 = list(Thickness = c(1, 2, 1.1))))
    expect_error(
        sen$param(
            GP01 = list(Roughness = c("VeryRough", "Rough", "MediumRough", "Smooth"))
        )
    )

    expect_silent(
        sen$param(
            GP01 = list(Thickness = c(min = 0.01, max = 1, levels = 5)),
            `Supply Fan 1` = list(Fan_Total_Efficiency = c(0.1, 1.0, 5)),
            `Pump:VariableSpeed` := list(motor_efficiency = c(0.5, 0.8, 5)),
            .("space1-1 lights 1", "space2-1 lights 1") := list(lighting_level = c(600, 1500, 5)),
            .names = c("thickness", "fan_eff", "pump_eff", "ll"),
            .r = 1, .grid_jump = 1
        )
    )
    expect_equal(length(sen$models()), 5L)

    # support Schedule:Compact
    expect_silent(
        sen$param(
            GP01 = list(Thickness = c(min = 0.01, max = 1, levels = 5)),
            ActSchd = list(Field_4 = c(30, 120, 5)),
            .r = 1, .grid_jump = 1
        )
    )
    expect_is(sen$samples(), "data.table")
    expect_equal(nrow(sen$samples()), 3)
})
# }}}