inst/app/ui/results/res_yourcascade.R

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

tabItem(tabName = "your_cascade",
    column(width = 8,
        # h1(textOutput('CountryName')),
        tabBox(
            width = NULL,
            height = "600px",
            selected = "PLHIV",
            side = "left",

            tabPanel(title = "PLHIV",
                infoBoxOutput(outputId = "outPLHIV", width = "100%"),
                plotOutput('plotValidation_PLHIV',
                    height = 'auto',
                    width = 'auto')
            ),

            tabPanel(title = "Diagnosed",
                infoBoxOutput(outputId = "outDIAG", width = "100%"),
                plotOutput('plotValidation_DIAG',
                    height = 'auto',
                    width = 'auto')
            ),

            tabPanel(title = "Care",
                infoBoxOutput(outputId = "outCARE", width = "100%"),
                plotOutput('plotValidation_CARE',
                    height = 'auto',
                    width = 'auto')
            ),

            tabPanel(title = "Treatment",
                infoBoxOutput(outputId = "outART", width = "100%"),
                plotOutput('plotValidation_ART',
                    height = 'auto',
                    width = 'auto')
            ),

            tabPanel(title = "Suppression",
                infoBoxOutput(outputId = "outSUPP", width = "100%"),
                plotOutput('plotValidation_SUPP',
                    height = 'auto',
                    width = 'auto')
            )
        )
    ),
    column(width = 4,
        box(width = NULL,
            status = "primary",
            solidHeader = TRUE,
            title = "Care Cascade",
            "This page shows the breakdown of the care cascade in 2015, resulting from the calibration
            of the model on the previous page. Each tab will explain the values behind each bar of the cascade,
            including the range of plausible values arising from calibration.
            Clicking 'Next' will advance to the next page."
        ),
        HTML('<button id="NEXT_yourCascade" type="button" class="btn action-button btn-success btn-lg btn-block"> Next <i class="fa fa-arrow-right fa-lg fa-fw"></i> </button>')
    )
)