# NOT RUN {
library(shiny)
## Only run this example in interactive R sessions
if (interactive()) {
shinyApp(
ui = fluidPage(pagemapOutput("pagemap")),
server = function(input, output) {
output$pagemap <- renderPagemap(pagemap())
}
)
}
# }
Run the code above in your browser using DataLab