Nothing
test_that("util_app_ol works", {
skip_on_cran() # deprecated
md <- prep_create_meta(
VAR_NAMES = letters,
DATA_TYPE = c(rep(DATA_TYPES$FLOAT, 13), rep(DATA_TYPES$INTEGER, 10),
DATA_TYPES$STRING, DATA_TYPES$DATETIME, DATA_TYPES$STRING),
MISSING_LIST = "",
GROUP_VAR_OBSERVER = "a",
DETECTION_LIMITS =
c(rep("[0;9)", 10), rep(NA, 6), rep("", 10))
)
expect_equal(util_app_ol(md, as.factor(rep(1, nrow(md)))),
as.factor(c(rep(3, 23), rep(4, 3))))
})
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.