EVOLUTION-MANAGER

Edit File: test-server.R

context("app") 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") ' } }} })