tests/testthat/test-generate_shinyinput.R

context("test-generate_shinyinput.R")


test_that("generate_shinyinput correctly produces a shiny input structure",
{
            
            packagename = 'DSAIDE'
            otherinputs = NULL
            mbmodel = 'simulate_sir_ode'
                
            inputs = generate_shinyinput(mbmodel, otherinputs, packagename)
            #this element of the tag list needs to contain the word susceptible
            expect_true(grepl('Susceptible',inputs[[2]][[1]][[3]]))

})

Try the DSAIDE package in your browser

Any scripts or data that you put into this service are public.

DSAIDE documentation built on July 4, 2019, 5:04 p.m.