#
# This is a Shiny web application. You can run the application by clicking
# the 'Run App' button above.
#
# Find out more about building applications with Shiny here:
#
# http://shiny.rstudio.com/
#
library(shiny)
# Define UI for application that draws a histogram
ui <- navbarPage('TEST_MODULES', id="page", collapsible=TRUE, inverse=FALSE,theme=shinytheme("flatly"),
tabPanel(title = "PAN1",
module_data_UI(id = "id1"),
textOutput("DIMTEST"),
textOutput("DATYPE")
),
tabPanel(title = "PAN2",
module_select_and_plot_UI(id = "id2"),
plotOutput("CLASS")
)
)
# Define server logic required to draw a histogram
server <- function(input, output, session) {
options(shiny.maxRequestSize=30*1024^2)
callModule(module = module_data, id = "id1")->RESTEST
output$DIMTEST<-renderPrint({
print(dim(RESTEST()$DATA_COMP))
})
output$DATYPE<-renderPrint({
print(input$DataType)
})
#reactive({
callModule(module = module_select_and_plot, id = "id2", data=reactive(RESTEST()))->CLASS
output$CLASS<-renderPlot({
CLASS()
})
#})->SELECT_AND_PLOT
}
# Run the application
shinyApp(ui = ui, server = server)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.