inst/app/ui.R

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

source("ui/uihead.R", local = TRUE)

dashboardPage(
    skin = "blue",
        source("ui/dashboardheader.R",                    local = TRUE)$value,
        source("ui/sidebar.R",                            local = TRUE)$value,
    dashboardBody(
        includeCSS("styles.css"),
        tabItems(
            source("ui/introduction.R",                       local = TRUE)$value,

            # Country
            source("ui/setup/country.R",                      local = TRUE)$value,
            source("ui/setup/edit-country/edit-cascade.R",    local = TRUE)$value,
            source("ui/setup/edit-country/edit-cd4.R",        local = TRUE)$value,
            source("ui/setup/edit-country/edit-incidence.R",  local = TRUE)$value,
            source("ui/setup/edit-country/edit-guidelines.R", local = TRUE)$value,

            # Setup
            source("ui/setup/data-review.R",                  local = TRUE)$value,
            source("ui/setup/calibration.R",                  local = TRUE)$value,
            source("ui/setup/parameters.R",                   local = TRUE)$value,

            # Results
            source("ui/results/res_yourcascade.R",            local = TRUE)$value,
            source("ui/results/res_carecascade.R",            local = TRUE)$value,
            source("ui/results/res_powerscascade.R",          local = TRUE)$value,
            source("ui/results/res_909090.R",                 local = TRUE)$value,
            source("ui/results/res_incidence.R",              local = TRUE)$value,
            source("ui/results/res_mortality.R",              local = TRUE)$value,

            # Optimisation
            source("ui/optimisation/opt-intro.R",             local = TRUE)$value,
            source("ui/optimisation/opt-parameter.R",         local = TRUE)$value,
            source("ui/optimisation/opt-cost.R",              local = TRUE)$value,
            source("ui/optimisation/opt-best-fit.R",          local = TRUE)$value,
            source("ui/optimisation/opt-909090.R",            local = TRUE)$value,

            # More
            source("ui/more/more_report.R",                   local = TRUE)$value,
            source("ui/more/more_modeldocument.R",            local = TRUE)$value,
            source("ui/more/session.R",                       local = TRUE)$value,
            source("ui/more/more_singleplot.R",               local = TRUE)$value,
            source("ui/more/more_allplot.R",                  local = TRUE)$value
        )
    )
)