Nothing
context("summarise")
script <- system.file('examples/SAScode/Macros/fun2.SAS', package='sasMap')
test_that("Summarise SAS script", {
expectedSummary <-
structure(
list(
name = "fun2.SAS",
lines = 12L,
procs = "sql",
datasteps = 0L,
macroCalls = "util1",
macroDefs = "fun2"
),
.Names = c(
"name",
"lines",
"procs",
"datasteps",
"macroCalls",
"macroDefs"
)
)
expect_equal(summariseSASScript(script), expectedSummary)
})
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.