tests/testthat/tests/testFunBranin.R

app <- ShinyDriver$new("../", seed = 1)
app$snapshotInit("testFunBranin")

app$setInputs(objectiveFunction = "funBranin")
app$setInputs(tabs = "spotConfig")
try(app$setInputs(tabs = "runMode"), silent = T)
app$setInputs(runCreateDOE = "click")
app$setInputs(evaluateData = "click")
app$snapshot(list(output = "resultTable"))

Try the spotGUI package in your browser

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

spotGUI documentation built on March 31, 2021, 1:06 a.m.