18 lines
377 B
R
18 lines
377 B
R
testServer(expr = {
|
|
# Set the `size` slider and check the output
|
|
session$setInputs(size = 6)
|
|
expect_equal(output$sequence, "1 2 3 4 5 6")
|
|
{{
|
|
if (isTRUE(rdir)) {
|
|
'
|
|
session$setInputs(size = 12)
|
|
expect_equal(output$sequence, "1 10 11 12 2 3 4 5 6 7 8 9")
|
|
'
|
|
} else {
|
|
'
|
|
session$setInputs(size = 12)
|
|
expect_equal(output$sequence, "1 2 3 4 5 6 7 8 9 10 11 12")
|
|
'
|
|
}
|
|
}}})
|