if (interactive()) {
library(shiny)
plt = plainView(poppendorf[[4]])
ui = fluidPage(
plainViewOutput("plot")
)
server = function(input, output, session) {
output$plot <- renderPlainView(plt)
}
shinyApp(ui, server)
}
Run the code above in your browser using DataLab