quickLookup <- function(name) {
# rprojroot::find_package_root_file(
# "tests", "testthat",
rprojroot::find_testthat_root_file(
"testing_datafiles", name)
}
my_tolerance <- 1e-7
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.