Nothing
context("test-generate_usplot.R")
test_that("running US analysis app returns the proper plot",
{
modelsettings = list()
modelsettings$Smin = 1000
modelsettings$Smax = 1200
modelsettings$Imin = 1
modelsettings$Imax = 10
modelsettings$bmin = 1e-03
modelsettings$bmax = 1e-2
modelsettings$gmean = 1
modelsettings$gvar = 0.01
modelsettings$mmin = 0
modelsettings$mmax = 0.1
modelsettings$nmin = 0
modelsettings$nmax = 10
modelsettings$wmin = 0
modelsettings$wmax = 0.1
modelsettings$samples = 30
modelsettings$rngseed = 100
modelsettings$tstart = 0
modelsettings$tfinal = 200
modelsettings$dt = 0.1
modelsettings$modeltype = '_usanalysis_'
modelsettings$nplots = 3
modelsettings$ncols = 3
modelsettings$simfunction = 'simulate_SIR_usanalysis'
modelsettings$plotscale = 'n'
modelsettings$samplepar = 'n'
#test boxplots
modelsettings$plottype = 'Boxplot'
result = run_model(modelsettings)
usplot = generate_ggplot(result)
testthat::expect_is( usplot, "gtable" )
usplot = generate_plotly(result)
testthat::expect_is( usplot, "plotly" )
ustext = generate_text(result)
testthat::expect_is( generate_text(result), "html" )
testthat::expect_is( generate_text(result), "character" )
#test scatterplots
modelsettings$plottype = 'Scatterplot'
result = run_model(modelsettings)
testthat::expect_is( generate_ggplot(result), "gtable" )
testthat::expect_is( generate_plotly(result), "plotly" )
testthat::expect_is( generate_text(result), "html" )
testthat::expect_is( generate_text(result), "character" )
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.