R/add_css.R

In Auburngrads/SMRD: Statistical Methods For Reliability Data

#' Add CSS style rules to an app 
#'
#' @importFrom shiny getShinyOption tags
#' @details This function should not be called directly but must be 
#'          be included within the body of an app's \code{ui} 
#' @return CSS style rules defined to an app
#' @seealso \code{\link{add_theme}}
#' @export
add_css <- function()
{
  main <- tags$head(tags$link(rel = 'stylesheet', 
                              type = 'text/css',
                              href = 'smrd_apps/css/smrd_apps.css'))
                   
  return(main)
}