context("Chart-config")
test_chart_path <- file.path(getOption("clickme_templates_path"), "TestChart")
unlink(test_chart_path, recursive = TRUE)
TestChart <- setRefClass('TestChart', contains = "Chart", where=.GlobalEnv)
suppressMessages(new_template("TestChart"))
test_that("styles and scripts must be valid", {
test_chart <- TestChart$new()
test_chart$get_params()
test_chart$get_file_structure()
test_chart$get_config()
test_chart$internal$config$styles <- c("abc.css")
expect_error(test_chart$validate_config(), "abc.css not found")
file.create(file.path(test_chart$internal$file$paths$template_assets, "abc.css"))
# expect_that(test_chart$validate_config(), not(throws_error()))
test_chart$internal$config$scripts <- c("$shared/abc.js")
# expect_error(test_chart$validate_config(), "abc.js not found")
file.create(file.path(test_chart$internal$file$paths$shared_assets, "abc.js"))
# expect_that(test_chart$validate_config(), not(throws_error()))
unlink(file.path(test_chart$internal$file$paths$shared_assets, "abc.js"))
test_chart$internal$config$scripts <- c("http://d3js.org/d3.v3.min.js")
# expect_that(test_chart$validate_config(), not(throws_error()))
})
unlink(test_chart_path, recursive = TRUE)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.