R/01-skin.R

In Pandora-IsoMemo/iso-app: Pandora & IsoMemo spatiotemporal modeling

#' Skin helper functions
#'
#' @param skin one of isomemo / pandora
#'
#' @export
#' @rdname skin
setSkin <- function(skin) {
    session <- getDefaultReactiveDomain()
    session$userData$skin <- skin
}

#' @export
#' @rdname skin
getSkin <- function() {
    session <- getDefaultReactiveDomain()
    if (!is.null(session$userData$skin)) session$userData$skin
    else "pandora"
}

#' @rdname skin
#' @export
allowedSkins <- function () {
    c("pandora", "isomemo")
}