R/wells.R

In shinyLP: Bootstrap Landing Home Pages for Shiny Applications

#' Add a Well Component
#' Use the well as a simple effect on an element to give it an inset effect.
#' @param content a object of class character
#' @param size a object of class character determining the size of the well
#' and options include, default, small, and large.
#'
#' @return a HTML object to be included in the ui section of a shiny app
#' @import shiny
#' @seealso \href{https://getbootstrap.com/components/#wells}{Wells}
#' @examples wells(content = "Look, I'm a well!", size = "large")
#' @export
wells <- function(content, size = "default") {

  if(size == "default"){
    div(class = "well", content)
  } else if(size == "large") {
    div(class = "well well-lg", content)
  } else {
    div(class = "well well-sm", content)
  }

}