tests/testthat/test_is_windows.R

library(scriptexec)
context("is_windows")

describe("execute", {
    it("is_windows", {
        windows <- scriptexec::is_windows()
        expect_equal(windows, .Platform$OS.type == "windows")
    })
})

Try the scriptexec package in your browser

Any scripts or data that you put into this service are public.

scriptexec documentation built on May 2, 2019, 1:49 p.m.