Modules Shiny (partie 3) : Appel dynamique de modules

Initialiser rv$all_ui

La reactive rv est initialisée comme ci-dessous :

rv <- reactiveValues(all_ui = list())

Appel dynamique au travers d’un observeEvent

A chaque chargement d’un dataset (cf : incrémentation de data_mod1$trigger), l’observeEvent :

callModule(
    module = data_info,
    id = data_mod1$trigger,
    data = data_mod1$data,
    data_name = data_mod1$data_name
)

rv$all_ui[[data_mod1$trigger]] <- data_infoUI(id = data_mod1$trigger)

Agencement des éléments UI

Dans cet exemple, chaque sortie UI est un shinyWidgets::panel, ainsi on peut les utiliser dans un tagList :

output$all_results <- renderUI({
    tagList(rv$all_ui)
})

Initialisation des variables

trick     <- reactiveVal(0)
res       <- list()
obs_close <- list()

• La reactiveVal trick est un entier qui s’incrémente à chaque appel du module merge_modules. Elle est ensuite utilisée comme id pour tabPanel et pour les noms d’éléments de la liste res.
• La liste res contient les sorties server de chaque appel au module merge_modules.
• La liste obs_close contient les observers qui se déclenchent pour la fermeture des tabPanel.

Appel dynamique au travers d’un observeEvent

A chaque chargement de dataset (cf : incrémentation de data_mod1$trigger), l’observeEvent :

res[[paste(id)]] <<- callModule(
    module = merge_modules,
    id = id,
    data = data,
    name = name
)

appendTab(
    inputId = "all_tabs",
    tabPanel(
        title = tabTitle(name, id),
        value = id,
        tags$br(),
        merge_modulesUI(id = id)
    ),
    select = TRUE
)

obs_close[[paste(id)]] <<- observe({
    shinyjs::onclick(id = paste0("close", id), closeTab(id = id))
})

trick(trick() + 1)

La reactiveVal trick est indispensable pour mettre à jour ui_summarycar la liste res n’est pas reactive.

Utiliser les sorties server dans l’application

La liste res peut être utilisée n’importe où dans l’application. Cependant, il faut penser à référencer la reactiveVal trick afin que le contexte reactif se mette à jour lorsque res est modifié.

# Summary of all opened tabs
output$ui_summary <- renderUI({
    # Reference trick to update reactive context
    fool <- trick()
    
    zz <- lapply(res, reactiveValuesToList)

    if (length(zz) == 0) {
        content <- div(class = "warn ", "No variable loaded")
    } else {
        # Use output of module merge_modules :
        #  - name
        #  - nb_funs
        content <- tags$ul(
          lapply(zz, function(x) {
            tags$li(paste(x$name, ":", x$nb_funs))
          })
        )
    }

    tagList(content)
})

Bonus : Fermer un tabPanel

Dans cet exemple, on peut “supprimer” l’appel à un module. Nous devons défaire les étapes réalisées au chapitre précédent :

• Supprimer le tabPanel correspondant (UI part).
• Supprimer l’élément correspondant dans la liste res (Server part).

Ces 2 étapes sont réalisées dans la fonction closeTab décrite ci-dessous. Cette fonction est lancée dans l’observer créé dynamiquement et situé dans obs_close :

closeTab <- function(id) {
    # Remove tab from UI
    removeTab(inputId = "all_tabs", target = paste(id))
    
    # Remove related element from list
    res[[paste(id)]] <<- NULL
    
    # Increase trick to refresh output$ui_summary
    trick(trick() + 1)
}

Le bouton de fermeture du tabPanel est créé avec la fonction ci-dessous :

# Function to add a cross after tabPanel title
tabTitle <- function(name, id) {
    tags$span(
        name, HTML("&nbsp;"),
        tags$span(
            id = paste0("close", id),
            class = "close",
            HTML("&times;")
        )
    )
}