min_js_path <- fs::path("app", "static", "js", "app.min.js")
index_js_path <- fs::path("app", "js", "index.js")
# Create minimal css and check app.min.css output
cat(
"function sayHello() { console.log('Hello'); } export { sayHello };\n",
file = index_js_path
)
rhino::build_js()
# Checks if the built js file is not a result of an empty index.js
# The main test to see if build_js() work should be in the Cypress test
testthat::expect_true(readLines(min_js_path) != "var App;App={};")
# Revert to empty script and check otuput
cat(
"\n",
file = index_js_path
)
rhino::build_js()
testthat::expect_identical(
readLines(min_js_path, warn = FALSE),
"var App;App={};"
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.