TEST/app.R

In ECLOH/ViCaTraj: Construction et visualisation de trajectoires

#
# 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)