test_module/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)
library(shinycssloaders)
library(shinyWidgets)
library(ViCaTraj)
library(DT)
source('/home/mrie/Bureau/GIT_paquets/ViCaTraj/R/module_select_and_plot.R', encoding = 'UTF-8')
source('/home/mrie/Bureau/GIT_paquets/ViCaTraj/R/module_select_and_plot2.R', encoding = 'UTF-8')

source('/home/mrie/Bureau/GIT_paquets/ViCaTraj/R/module_data.R', encoding = 'UTF-8')
source('/home/mrie/Bureau/GIT_paquets/ViCaTraj/R/module_tabdes.R', encoding = 'UTF-8')

source('/home/mrie/Bureau/GIT_paquets/ViCaTraj/R/module_classification.R', encoding = 'UTF-8')


source('/home/mrie/Bureau/GIT_paquets/ViCaTraj/R/seqggplot_internal.R', encoding = 'UTF-8')
source('/home/mrie/Bureau/GIT_paquets/ViCaTraj/R/seqggplot.R', encoding = 'UTF-8')

# Define UI for application that draws a histogram
ui <- fluidPage(
#textOutput("control_class_comp"),
#textOutput("control_length_comp"),
#dataTableOutput("control_head_comp"),
textOutput("control_ID"),
textOutput("control_ID2"),
textOutput("control_ID3"),

tabsetPanel(
    #shiny::tabPanel(title="README", 
    #                includeMarkdown("README.md")),
    shiny::tabPanel(title = "tab1",
    module_data_UI(id = "id1")),
shiny::tabPanel(title = "tab2",
module_select_and_plot_UI(id = "id2")),
shiny::tabPanel(title = "tab3",
module_tabdes_UI(id = "id3")),
shiny::tabPanel(title = "tab4",
                module_tabdes_UI(id = "id4")),
shiny::tabPanel(title = "tab5", 
                shiny::actionButton(inputId = "reactKlass", label = "Je valide la classification et les groupes"),
                tabsetPanel(
                    
shiny::tabPanel(title = "tab51", 
               module_classification_UI(id = "id5")),
shiny::tabPanel(title = "tab2:clust",
               module_select_and_plot2_UI(id = "id25")),
shiny::tabPanel(title = "tab3:clust",
                module_tabdes_UI(id = "id35"))
)
)
)
)

# Define server logic required to draw a histogram
server <- function(input, output, session) {

    callModule(module = module_data, id = "id1")->DATAs
    #output$control_class_comp<-renderPrint({class(DATAs()$DATA_COMP)})
    #output$control_length_comp<-renderPrint({length(DATAs()$DATA_COMP)})
    #output$control_head_comp<-renderDT({DATAs()$DATA_COMP[[1]]})
    #output$control_ID<-renderPrint({DATAs()$ID_VAR})
    #output$control_ID2<-renderPrint({class(DATAs()$ID_VAR)})
    #output$control_ID3<-renderPrint({length(DATAs()$ID_VAR)})
    #observe({print(DATAs()$ID_VAR)})
    
    callModule(module = module_select_and_plot2, data = DATAs, id = "id2")
    
    callModule(module = module_tabdes, data = DATAs, id = "id3")
    
    #DATA.CLASSIF<-reactiveValues()
    
    callModule(module = module_classification, data=DATAs, id = "id5")->DATAs.c#DATA.CLASSIF$DATAs.c
    
    #observe({
    #observeEvent(input$reactKlass , {
        #input$reactKlass
        
   callModule(module = module_select_and_plot2, data = DATAs.c, #reactive(DATA.CLASSIF$DATAs.c), 
                   id = "id25")
   #     })
    #})
    #})
    observe({
        input$reactKlass
        isolate({
        callModule(module = module_tabdes, data = DATAs.c(), id = "id35")
        })
       })
    


}

# Run the application 
shinyApp(ui = ui, server = server)