Nothing
context("render_pmap_shiny()")
test_that("render_pmap_shiny() should be able to show the web app", {
eventlog <- generate_eventlog(
size_of_eventlog = 10000,
number_of_cases = 1000,
categories = c("campaign", "sale"),
categories_size = c(10, 4)
)
app <- eventlog %>% create_pmap() %>% render_pmap_shiny()
expect_equal(class(app), "shiny.appobj")
expect_equal(length(app), 5)
})
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.