inst/app/ui/setup/edit-country/edit-incidence.R

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

tabItem(tabName = "edit-incidence",
    column(width = 8,
        box(width = NULL,
            status = "primary",
            solidHeader = TRUE,
            title = "Edit New Infections",
            collapsible = TRUE,
            collapsed = FALSE,
            rHandsontableOutput("hot_incidence")
        )
    ),
    column(width = 4,
        box(width = NULL,
            status = "primary",
            solidHeader = TRUE,
            title = "Help Panel",
            helpText("Please enter any available data on this page relating to new HIV infections.
                Them model must be specified with an average value, and a lower and upper bound for all years
                between 2010 and 2016. As values are entered, a plot will be populated on the right-hand side.
                Click 'Back' to return to the previous page"),
            h5("Conditions that must be satisfied for indicator to turn green:"),
            tags$ul(
                tags$li("A value must be entered in every cell"),
                tags$li("All upper estimates must be larger than the median"),
                tags$li("All lower estimates must be smaller than the median")
            )
        ),
        bsButton(inputId = "PREV_editIncidence", label = "Back", style = "danger",  size = "large", block = TRUE, icon = icon("arrow-left",  class = "fa-lg fa-fw", lib = "font-awesome")),
        p(""),
        plotOutput('editIncidencePlot', height = 'auto', width = 'auto')
    )
)