context("test pool provider")
test_that("synapser uses Synapse Python Client pool provider for single thread", {
callback <- function(name, def) {
setGeneric(name, def)
}
reticulate::py_run_string("import sys")
reticulate::py_eval(sprintf("sys.path.insert(0, '%s')", getwd()))
reticulate::py_run_string("import testPoolProvider")
generateRWrappers(pyPkg = "testPoolProvider",
container = "testPoolProvider",
setGenericCallback = callback)
test()
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.