== Enabling more styling options for actionButton == The Twitter Bootstrap allows for many class styles for buttons. http://getbootstrap.com/2.3.2/base-css.html#buttons
Added support for these styles to the actionButton.
== Enabling more styling options for actionButton == The Twitter Bootstrap allows for many class styles for buttons. http://getbootstrap.com/2.3.2/base-css.html#buttons
Added support for these styles to the actionButton.
| library(shiny) | |
| shinyServer(function(input,output){ | |
| }) |
| library(shiny) | |
| actionButton <- function(inputId, label, btn.style = "" , css.class = "") { | |
| if ( btn.style %in% c("primary","info","success","warning","danger","inverse","link")) { | |
| btn.css.class <- paste("btn",btn.style,sep="-") | |
| } else btn.css.class = "" | |
| tags$button(id=inputId, type="button", class=paste("btn action-button",btn.css.class,css.class,collapse=" "), label) | |
| } | |
| shinyUI(basicPage( | |
| actionButton("primary","primary","primary",c("btn-large", "meheh")), | |
| actionButton("info","info","info"), | |
| actionButton("success","success","success"), | |
| actionButton("warning","warning","warning"), | |
| actionButton("danger","danger","danger"), | |
| actionButton("inverse","inverse","inverse"), | |
| actionButton("link","link","link") | |
| ) | |
| ) |
Any example for the class, for example circle?
Tks a lot
Works great for me, thanks!
A working example with button size change:
actionButton("boton",strong("BUSCAR"),"primary","btn-sm")