inst/app/server/misc-functions.R

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

ggColorHue <- function(n) {
    hues = seq(15, 375, length = n+1)
    hcl(h = hues, l = 65, c = 100)[1:n]
}

DownloadButton <- function(outputId, label = "Download", class = NULL) {
    aTag <- tags$a(id = outputId, class = paste("btn btn-default shiny-download-link",
        class), href = "", target = "_blank", icon("file-pdf-o"),
        label)
}

Quantile_95 <- function(vector) {
    m <- mean(vector)
    p95 <- quantile(vector, 0.95)[[1]]
    p05 <- quantile(vector, 0.05)[[1]]
    return(c(upper = p95, mean = m, lower = p05))
}

NonZeroCheck <- function(x) if (x < 0) 0 else x

NonZeroVectorCheck <- function(x) {
    for (i in 1:length(x)) {
        x[i] <- NonZeroCheck(x[[i]])
    }
    x
}