Nothing
context("integration")
source(system.file("extdata", "defDataConv.R", package = "matconv"))
hMaps <- makeFuncMaps(
pathDict = system.file("extdata", "HiebelerDict.txt", package = "matconv")
)
test_that("Dictionaries are loaded", {
expect_gt(length(hMaps), 0)
expect_gt(length(dataConvs), 0)
})
test_that("Straight conversions", {
matCode <- "thing = isnan(reee)"
out <- mat2r(matCode, funcConverters = hMaps, dataConverters = dataConvs)
expect_true(!is.na(match(out$rCode, "thing <- is.na(reee)")))
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.