Nothing
# Helper function to select test scripts
test_script <- function(script) {
script <- testthat::test_path("scripts", script) |>
normalizePath(winslash = "/", mustWork = TRUE)
return(script)
}
# Use to test quarto availability or version lower than required
skip_if_no_quarto <- function(ver = NULL) {
skip_if(is.null(quarto::quarto_path()), message = "Quarto is not available")
skip_if(
condition = quarto::quarto_version() < ver,
message = sprintf(
fmt = "Version of quarto is lower than %s: %s.",
ver,
quarto::quarto_version()
)
)
}
# Use to test if python is available for simple tests
skip_if_no_python <- function() {
skip_if(
condition = !reticulate::py_available(initialize = TRUE),
message = "Python is not available"
)
}
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.