R/css.R

In trosendal/svis: Package to produce visualizations on the web

##' css
##'
##' @import hlt
##' @return An hlt_style element
css <- function() {
    ## Item 1
    i1 <- c("\u0023map {width: 100%; height: 98vh; float: left;}")
    ## Item 2
    i2 <- c(".info {padding: 6px 8px;",
            "font: 14px/16px Arial, Helvetica, sans-serif;",
            "background: rgba(255,255,255,0.8);",
            "box-shadow: 0 0 15px rgba(0,0,0,0.2);",
            "border-radius: 5px;}")
    ## Item 3
    i3 <- c(".info h4 {margin: 0 0 5px; color: #777;}")
    html_style(c(i1, i2, i3))
}