inst/app/server/links.R

In jackolney/CascadeDashboard: A Shiny App for Investigating The Current Trajectory of HIV Care

# 'NEXT' button control

# Introduction
observeEvent(input$NEXT_intro, {
    updateTabItems(session,
        inputId = "sideBar",
        selected = "country"
    )
})

# Country
observeEvent(input$PREV_country, {
    updateTabItems(session,
        inputId = "sideBar",
        selected = "introduction"
    )
})

observeEvent(input$NEXT_country, {
    updateTabItems(session,
        inputId = "sideBar",
        selected = "data-review"
    )
})

observeEvent(input$CASCADE_FLAG, {
    updateTabItems(session,
        inputId = "sideBar",
        selected = "edit-cascade"
    )
})

observeEvent(input$PREV_editCascade, {
    updateTabItems(session,
        inputId = "sideBar",
        selected = "country"
    )
})

observeEvent(input$CD4_FLAG, {
    updateTabItems(session,
        inputId = "sideBar",
        selected = "edit-cd4"
    )
})

observeEvent(input$PREV_editCD4, {
    updateTabItems(session,
        inputId = "sideBar",
        selected = "country"
    )
})

observeEvent(input$INCIDENCE_FLAG, {
    updateTabItems(session,
        inputId = "sideBar",
        selected = "edit-incidence"
    )
})

observeEvent(input$PREV_editIncidence, {
    updateTabItems(session,
        inputId = "sideBar",
        selected = "country"
    )
})

observeEvent(input$GUIDELINES_FLAG, {
    updateTabItems(session,
        inputId = "sideBar",
        selected = "edit-guidelines"
    )
})

observeEvent(input$PREV_editGuidelines, {
    updateTabItems(session,
        inputId = "sideBar",
        selected = "country"
    )
})

# Data-Review
# observeEvent(input$NEXT_data, {
#     updateTabItems(session,
#         inputId = "sideBar",
#         selected = "plhiv"
#     )
# })

observeEvent(input$PREV_data, {
    updateTabItems(session,
        inputId = "sideBar",
        selected = "country"
    )
})

observeEvent(input$CALIB_data, {
    updateTabItems(session,
        inputId = "sideBar",
        selected = "calibration"
    )
})


# PLHIV
observeEvent(input$PREV_plhiv, {
    updateTabItems(session,
        inputId = "sideBar",
        selected = "data-review"
    )
})

observeEvent(input$NEXT_plhiv, {
    updateTabItems(session,
        inputId = "sideBar",
        selected = "diagnosis"
    )
})

# Diagnosis
observeEvent(input$PREV_diag, {
    updateTabItems(session,
        inputId = "sideBar",
        selected = "plhiv"
    )
})

observeEvent(input$NEXT_diag, {
    updateTabItems(session,
        inputId = "sideBar",
        selected = "linkage"
    )
})

# Care
observeEvent(input$PREV_care, {
    updateTabItems(session,
        inputId = "sideBar",
        selected = "diagnosis"
    )
})

observeEvent(input$NEXT_care, {
    updateTabItems(session,
        inputId = "sideBar",
        selected = "treatment"
    )
})

# ART
observeEvent(input$PREV_art, {
    updateTabItems(session,
        inputId = "sideBar",
        selected = "linkage"
    )
})

observeEvent(input$NEXT_art, {
    updateTabItems(session,
        inputId = "sideBar",
        selected = "suppression"
    )
})

# Viral Suppression
observeEvent(input$PREV_viral, {
    updateTabItems(session,
        inputId = "sideBar",
        selected = "treatment"
    )
})

observeEvent(input$NEXT_viral, {
    updateTabItems(session,
        inputId = "sideBar",
        selected = "data-review"
    )
})

# Calibration
observeEvent(input$NEXT_calib, {
    updateTabItems(session,
        inputId = "sideBar",
        selected = "care_cascade"
    )
})

observeEvent(input$ADJ_param, {
    updateTabItems(session,
        inputId = "sideBar",
        selected = "parameters"
    )
})

observeEvent(input$PREV_param, {
    updateTabItems(session,
        inputId = "sideBar",
        selected = "calibration")
})

# Your Cascade
# observeEvent(input$PREV_yourCascade, {
#     updateTabItems(session,
#         inputId = "sideBar",
#         selected = "calibration"
#     )
# })

observeEvent(input$NEXT_yourCascade, {
    updateTabItems(session,
        inputId = "sideBar",
        selected = "care_cascade"
    )
})

# Power's Cascade (deprecated)
# observeEvent(input$NEXT_careCascade, {
#     updateTabItems(session,
#         inputId = "sideBar",
#         selected = "powers_cascade"
#     )
# })

# CareCascade
observeEvent(input$PREV_careCascade, {
    updateTabItems(session,
        inputId = "sideBar",
        selected = "calibration"
    )
})

observeEvent(input$NEXT_careCascade, {
    updateTabItems(session,
        inputId = "sideBar",
        selected = "_909090"
    )
})

# PowersCascade (this page is inactive, but should still retain some functionality)
observeEvent(input$NEXT_powersCascade, {
    updateTabItems(session,
        inputId = "sideBar",
        selected = "_909090"
    )
})

# 90-90-90
observeEvent(input$PREV_909090, {
    updateTabItems(session,
        inputId = "sideBar",
        selected = "care_cascade"
    )
})

observeEvent(input$NEXT_909090, {
    updateTabItems(session,
        inputId = "sideBar",
        selected = "incidence"
    )
})

# Incidence / Mortality
observeEvent(input$PREV_inc, {
    updateTabItems(session,
        inputId = "sideBar",
        selected = "_909090"
    )
})

observeEvent(input$NEXT_inc, {
    updateTabItems(session,
        inputId = "sideBar",
        selected = "mortality"
    )
})

observeEvent(input$PREV_mort, {
    updateTabItems(session,
        inputId = "sideBar",
        selected = "incidence"
    )
})

observeEvent(input$NEXT_mort, {
    updateTabItems(session,
        inputId = "sideBar",
        selected = "opt-intro"
    )
})

# Optimisation Introduction
observeEvent(input$PREV_optIntro, {
    updateTabItems(session,
        inputId = "sideBar",
        selected = "mortality"
    )
})

observeEvent(input$NEXT_optIntro, {
    updateTabItems(session,
        inputId = "sideBar",
        selected = "opt-909090"
    )
})

observeEvent(input$intDetail, {
    updateTabItems(session,
        inputId = "sideBar",
        selected = "opt-parameter"
    )
})

observeEvent(input$intCost, {
    updateTabItems(session,
        inputId = "sideBar",
        selected = "opt-cost"
    )
})

observeEvent(input$intFit, {
    updateTabItems(session,
        inputId = "sideBar",
        selected = "opt-best-fit"
    )
})

# Optimisation Intervention Detail
observeEvent(input$PREV_optParam, {
    updateTabItems(session,
        inputId = "sideBar",
        selected = "opt-intro"
    )
})

# Optimisation Intervention Cost
observeEvent(input$PREV_optCost, {
    updateTabItems(session,
        inputId = "sideBar",
        selected = "opt-intro"
    )
})

# Optimisation Best Fit Calibration
observeEvent(input$PREV_optBestFit, {
    updateTabItems(session,
        inputId = "sideBar",
        selected = "opt-intro"
    )
})

# Optimisation Results
observeEvent(input$PREV_opt909090, {
    updateTabItems(session,
        inputId = "sideBar",
        selected = "opt-intro"
    )
})

observeEvent(input$NEXT_opt909090, {
    updateTabItems(session,
        inputId = "sideBar",
        selected = "report"
    )
})