R/inlineCSS.R
In eccel37/daatali: Easily Improve the User Experience of Your Shiny Apps in Seconds
#' Add inline CSS
#'
#' Add inline CSS to a Shiny app. This is simply a convenience function that
#' gets called from a Shiny app's UI to make it less tedious to add inline CSS.
#' If there are many CSS rules, it is recommended to use an external stylesheet.\cr\cr
#' CSS is a simple way to describe how elements on a web page should be
#' displayed (position, colour, size, etc.). You can learn the basics
#' at \href{http://www.w3schools.com/css/}{W3Schools}.
#'
#' @param rules The CSS rules to add. Can either be a string with valid
#' CSS code, or a named list of the form
#' \code{list(selector = declarations)}, where \code{selector} is a valid
#' CSS selector and \code{declarations} is a string or vector of declarations.
#' See examples for clarification.
#' @return Inline CSS code that is automatically inserted to the app's
#' \code{<head>} tag.
#' @examples
#' if (interactive()) {
#' library(shiny)
#'
#' # Method 1 - passing a string of valid CSS
#' shinyApp(
#' ui = fluidPage(
#' inlineCSS("#big { font-size:30px; }
#' .red { color: red; border: 1px solid black;}"),
#' p(id = "big", "This will be big"),
#' p(class = "red", "This will be red and bordered")
#' ),
#' server = function(input, output) {}
#' )
#'
#' # Method 2 - passing a list of CSS selectors/declarations
#' # where each declaration is a full declaration block
#' shinyApp(
#' ui = fluidPage(
#' inlineCSS(list(
#' "#big" = "font-size:30px",
#' ".red" = "color: red; border: 1px solid black;"
#' )),
#' p(id = "big", "This will be big"),
#' p(class = "red", "This will be red and bordered")
#' ),
#' server = function(input, output) {}
#' )
#'
#' # Method 3 - passing a list of CSS selectors/declarations
#' # where each declaration is a vector of declarations
#' shinyApp(
#' ui = fluidPage(
#' inlineCSS(list(
#' "#big" = "font-size:30px",
#' ".red" = c("color: red", "border: 1px solid black")
#' )),
#' p(id = "big", "This will be big"),
#' p(class = "red", "This will be red and bordered")
#' ),
#' server = function(input, output) {}
#' )
#' }
#' @export
inlineCSS <- function(rules) {
if (is.list(rules)) {
rules <-
paste(
lapply(names(rules),
function(x) {
paste0(x, "{", paste(rules[[x]], collapse = ";") , "}")
}),
collapse = "")
}
insertHead(shiny::tags$style(shiny::HTML(rules)))
}
eccel37/daatali documentation built on May 14, 2019, 8:42 a.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
#' Add inline CSS
#'
#' Add inline CSS to a Shiny app. This is simply a convenience function that
#' gets called from a Shiny app's UI to make it less tedious to add inline CSS.
#' If there are many CSS rules, it is recommended to use an external stylesheet.\cr\cr
#' CSS is a simple way to describe how elements on a web page should be
#' displayed (position, colour, size, etc.). You can learn the basics
#' at \href{http://www.w3schools.com/css/}{W3Schools}.
#'
#' @param rules The CSS rules to add. Can either be a string with valid
#' CSS code, or a named list of the form
#' \code{list(selector = declarations)}, where \code{selector} is a valid
#' CSS selector and \code{declarations} is a string or vector of declarations.
#' See examples for clarification.
#' @return Inline CSS code that is automatically inserted to the app's
#' \code{<head>} tag.
#' @examples
#' if (interactive()) {
#' library(shiny)
#'
#' # Method 1 - passing a string of valid CSS
#' shinyApp(
#' ui = fluidPage(
#' inlineCSS("#big { font-size:30px; }
#' .red { color: red; border: 1px solid black;}"),
#' p(id = "big", "This will be big"),
#' p(class = "red", "This will be red and bordered")
#' ),
#' server = function(input, output) {}
#' )
#'
#' # Method 2 - passing a list of CSS selectors/declarations
#' # where each declaration is a full declaration block
#' shinyApp(
#' ui = fluidPage(
#' inlineCSS(list(
#' "#big" = "font-size:30px",
#' ".red" = "color: red; border: 1px solid black;"
#' )),
#' p(id = "big", "This will be big"),
#' p(class = "red", "This will be red and bordered")
#' ),
#' server = function(input, output) {}
#' )
#'
#' # Method 3 - passing a list of CSS selectors/declarations
#' # where each declaration is a vector of declarations
#' shinyApp(
#' ui = fluidPage(
#' inlineCSS(list(
#' "#big" = "font-size:30px",
#' ".red" = c("color: red", "border: 1px solid black")
#' )),
#' p(id = "big", "This will be big"),
#' p(class = "red", "This will be red and bordered")
#' ),
#' server = function(input, output) {}
#' )
#' }
#' @export
inlineCSS <- function(rules) {
if (is.list(rules)) {
rules <-
paste(
lapply(names(rules),
function(x) {
paste0(x, "{", paste(rules[[x]], collapse = ";") , "}")
}),
collapse = "")
}
insertHead(shiny::tags$style(shiny::HTML(rules)))
}
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.