inst/tinytest/testCircuit.R

data("demoCircuit")
racipe <- RacipeSE()
sracipeCircuit(racipe) <- demoCircuit
tmp1 <- sracipeCircuit(racipe)
storage.mode(demoCircuit$Type) <- "character"
sracipeCircuit(racipe) <- demoCircuit
tmp2 <- sracipeCircuit(racipe)
tinytest::expect_equal(tmp1,tmp2)

Try the sRACIPE package in your browser

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

sRACIPE documentation built on Nov. 8, 2020, 6:54 p.m.