Nantes Université

Skip to content
Extraits de code Groupes Projets
Valider eb70319f rédigé par Johanna Zoppi's avatar Johanna Zoppi
Parcourir les fichiers

reset to www version

parent 1387acd0
Aucune branche associée trouvée
Aucune étiquette associée trouvée
Aucune requête de fusion associée trouvée
...@@ -17,7 +17,7 @@ MiBiOmics is be available at https://shiny-bird.univ-nantes.fr/app/Mibiomics but ...@@ -17,7 +17,7 @@ MiBiOmics is be available at https://shiny-bird.univ-nantes.fr/app/Mibiomics but
```bash ```bash
conda env create -f MiBiOmics.yml conda env create -f MiBiOmics.yml
conda activate MiBiOmics conda activate MiBiOmics
R -e 'shiny::runUrl("https://gitlab.univ-nantes.fr/combi-ls2n/mibiomics/-/archive/master/mibiomics-master.tar.gz")' R -e 'shiny::runUrl("https://gitlab.univ-nantes.fr/combi-ls2n/mibiomics/repository/master/archive.tar.gz")'
``` ```
All the necessary packages will be installed automatically for the usage of MiBiOmics. All the necessary packages will be installed automatically for the usage of MiBiOmics.
......
# Define server logic ---- # Define server logic ----
server <- function(input, output, session) { server <- function(input, output, session) {
options(shiny.maxRequestSize=30*1024^2) options(shiny.maxRequestSize=30*1024^2)
#### SERVER FUNCTIONS #### #### SERVER FUNCTIONS ####
source("server_function/SERVER_Data_Upload.R", local=TRUE) source("server_function/SERVER_Data_Upload.R", local=TRUE)
source("server_function/SERVER_Data_Exploration.R", local=TRUE) source("server_function/SERVER_Data_Exploration.R", local=TRUE)
...@@ -12,11 +12,11 @@ server <- function(input, output, session) { ...@@ -12,11 +12,11 @@ server <- function(input, output, session) {
#### GENERAL CODE #### #### GENERAL CODE ####
#### HEADER #### #### HEADER ####
js$disableTab("NETWORK_EXPLORATION") js$disableTab("NETWORK_EXPLORATION")
js$disableTab("MULTI-OMICS_ANALYSIS") js$disableTab("MULTI-OMICS_ANALYSIS")
observeEvent(input$enableTabulations, { observeEvent(input$enableTabulations, {
# enable NETWORK_EXPLORATION when clicking the button # enable NETWORK_EXPLORATION when clicking the button
js$enableTab("NETWORK_EXPLORATION") js$enableTab("NETWORK_EXPLORATION")
...@@ -24,39 +24,34 @@ server <- function(input, output, session) { ...@@ -24,39 +24,34 @@ server <- function(input, output, session) {
# switch to NETWORK_EXPLORATION # switch to NETWORK_EXPLORATION
updateTabsetPanel(session, "navbar", "NETWORK_EXPLORATION") updateTabsetPanel(session, "navbar", "NETWORK_EXPLORATION")
}) })
observeEvent(input$goD2, { observeEvent(input$goD2, {
updateTabsetPanel(session, "NETWORK_INFERENCE_D1_D2", "NETWORK_INFERENCE_D2") updateTabsetPanel(session, "NETWORK_INFERENCE_D1_D2", "NETWORK_INFERENCE_D2")
}) })
observeEvent(input$goD3, { observeEvent(input$goD3, {
updateTabsetPanel(session, "NETWORK_INFERENCE_D1_D2", "NETWORK_INFERENCE_D3") updateTabsetPanel(session, "NETWORK_INFERENCE_D1_D2", "NETWORK_INFERENCE_D3")
}) })
observeEvent(input$enableTabulations_D3, { observeEvent(input$enableTabulations_D3, {
# enable NETWORK_EXPLORATION when clicking the button # enable NETWORK_EXPLORATION when clicking the button
js$enableTab("NETWORK_EXPLORATION") js$enableTab("NETWORK_EXPLORATION")
js$enableTab("MULTI-OMICS_ANALYSIS") js$enableTab("MULTI-OMICS_ANALYSIS")
# switch to NETWORK_EXPLORATION # switch to NETWORK_EXPLORATION
updateTabsetPanel(session, "navbar", "NETWORK_EXPLORATION") updateTabsetPanel(session, "navbar", "NETWORK_EXPLORATION")
}) })
observeEvent(input$enableTabulations_D2, { observeEvent(input$enableTabulations_D2, {
# enable NETWORK_EXPLORATION when clicking the button # enable NETWORK_EXPLORATION when clicking the button
js$enableTab("NETWORK_EXPLORATION") js$enableTab("NETWORK_EXPLORATION")
js$enableTab("MULTI-OMICS_ANALYSIS") js$enableTab("MULTI-OMICS_ANALYSIS")
# switch to NETWORK_EXPLORATION # switch to NETWORK_EXPLORATION
updateTabsetPanel(session, "navbar", "NETWORK_EXPLORATION") updateTabsetPanel(session, "navbar", "NETWORK_EXPLORATION")
}) })
}
}
Ce diff est replié.
Ce diff est replié.
0% Chargement en cours ou .
You are about to add 0 people to the discussion. Proceed with caution.
Terminez d'abord l'édition de ce message.
Veuillez vous inscrire ou vous pour commenter