Nothing
#.......................................
# skip a test if python is not available [ see: https://github.com/rstudio/reticulate/tree/master/tests/testthat ]
#.......................................
skip_test_if_no_python <- function() {
if (!reticulate::py_available(initialize = FALSE))
testthat::skip("Python bindings not available for testing")
}
#................................................................
# helper function to skip tests if we don't have the 'foo' module
#................................................................
skip_test_if_no_module <- function(MODULE) { # MODULE is of type character string ( length(MODULE) >= 1 )
if (length(MODULE) == 1) {
module_exists <- reticulate::py_module_available(MODULE)}
else {
module_exists <- sum(as.vector(sapply(MODULE, function(x) reticulate::py_module_available(x)))) == length(MODULE)
}
if (!module_exists) {
testthat::skip(paste0(MODULE, " is not available for testthat-testing"))
}
}
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.