library(scriptexec)
context("is_windows")
describe("execute", {
it("is_windows", {
windows <- scriptexec::is_windows()
expect_equal(windows, .Platform$OS.type == "windows")
})
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.