Add actionButton2

DESCRIPTION

@@ -10,11 +10,3 @@ License: What license is it under?
 Depends:
     shiny,
     RJSONIO
-Collate:
-    'bootstrap.R'
-    'bootstrap-select.R'
-    'select2.R'
-    'bootstrap-multiselect.R'
-    'json.R'
-    'bootstrap-checkbox.R'
-    'bootstrap-switch.R'

NAMESPACE

@@ -1,3 +1,4 @@
+export(actionButton2)
 export(bootstrapCheckbox)
 export(bootstrapSelectInput)
 export(bootstrapSwitch)

R/actionButton2.R

@@ -0,0 +1,13 @@
+#' actionButton2
+#' 
+#' an extension of actionButton
+#' 
+#' @param inputId Specifies the input slot that will be used to access the value.
+#' @param label The contents of the button–usually a text label, but you could also use any other HTML, like an image.
+#' @param class the class parameters of the \code{actionButton}
+#' @export
+
+actionButton2 <- function(inputId, label, class="btn action-button") {
+  tags$button(id = inputId, type = "button", class = class,
+              label)
+}

man/actionButton2.Rd

@@ -0,0 +1,21 @@
+\name{actionButton2}
+\alias{actionButton2}
+\title{actionButton2}
+\usage{
+actionButton2(inputId, label, class = "btn action-button")
+}
+\arguments{
+  \item{inputId}{Specifies the input slot that will be used
+  to access the value.}
+
+  \item{label}{The contents of the button–usually a text
+  label, but you could also use any other HTML, like an
+  image.}
+
+  \item{class}{the class parameters of the
+  \code{actionButton}}
+}
+\description{
+an extension of actionButton
+}
+

man/bootstrapCheckbox.Rd

@@ -2,7 +2,7 @@
 \alias{bootstrapCheckbox}
 \title{Bootstrap checkbox}
 \usage{
-  bootstrapCheckbox(inputId, ..., options = NULL)
+bootstrapCheckbox(inputId, ..., options = NULL)
 }
 \arguments{
   \item{inputId}{input id}
@@ -12,6 +12,6 @@
   \item{options}{select 2 options}
 }
 \description{
-  ...
+...
 }
 

man/bootstrapSelectInput.Rd

@@ -2,11 +2,10 @@
 \alias{bootstrapSelectInput}
 \title{bootstrap-select Input}
 \usage{
-  bootstrapSelectInput(inputId, label, choices,
-    selected = NULL, multiple = FALSE, style = NULL,
-    title = NULL, selectedTextFormat = NULL, header = NULL,
-    icon = NULL, subtext = NULL, content = NULL,
-    liveSearch = NULL, size = NULL, options = NULL)
+bootstrapSelectInput(inputId, label, choices, selected = NULL,
+  multiple = FALSE, style = NULL, title = NULL,
+  selectedTextFormat = NULL, header = NULL, icon = NULL, subtext = NULL,
+  content = NULL, liveSearch = NULL, size = NULL, options = NULL)
 }
 \arguments{
   \item{inputId}{input id}
@@ -17,6 +16,6 @@
   it works yet)}
 }
 \description{
-  ...
+...
 }
 

man/bootstrapSwitch.Rd

@@ -2,9 +2,8 @@
 \alias{bootstrapSwitch}
 \title{Bootstrap switch}
 \usage{
-  bootstrapSwitch(inputId, dataLabelIcon = "",
-    dataOnLabel = "On", dataOffLabel = "Off",
-    type = "make-switch", size = "switch-mini")
+bootstrapSwitch(inputId, dataLabelIcon = "", dataOnLabel = "On",
+  dataOffLabel = "Off", type = "make-switch", size = "switch-mini")
 }
 \arguments{
   \item{inputId}{input id}
@@ -14,6 +13,6 @@
   \item{size}{size (e.g. 'switch-mini')}
 }
 \description{
-  ...
+...
 }
 

man/bootswatchTheme.Rd

@@ -2,15 +2,14 @@
 \alias{bootswatchTheme}
 \title{Bootswatch theme}
 \usage{
-  bootswatchTheme(theme = "amelia", list,
-    version = "2.3.1")
+bootswatchTheme(theme = "amelia", list, version = "2.3.1")
 }
 \arguments{
   \item{theme}{bootstrap theme}
 
   \item{list}{tagList (e.g. pageWithSidebar())}
 }
 \description{
-  ...
+...
 }
 

man/followButtons.Rd

@@ -2,12 +2,11 @@
 \alias{followButtons}
 \title{Follow buttons}
 \usage{
-  followButtons(small = TRUE, vertical = FALSE,
-    facebook = NULL, twitter = NULL, linkedin = NULL,
-    linkedin_company = NULL, google = NULL, youtube = NULL,
-    flickr = NULL, vimeo = NULL, pinterest = NULL,
-    instagram = NULL, foursquare = NULL, tumblr = NULL,
-    rss = NULL)
+followButtons(small = TRUE, vertical = FALSE, facebook = NULL,
+  twitter = NULL, linkedin = NULL, linkedin_company = NULL,
+  google = NULL, youtube = NULL, flickr = NULL, vimeo = NULL,
+  pinterest = NULL, instagram = NULL, foursquare = NULL, tumblr = NULL,
+  rss = NULL)
 }
 \arguments{
   \item{small}{small size; TRUE or FALSE}
@@ -41,6 +40,6 @@
   \item{rss}{rss feed}
 }
 \description{
-  ...
+...
 }
 

man/githubButton.Rd

@@ -2,8 +2,8 @@
 \alias{githubButton}
 \title{Github button}
 \usage{
-  githubButton(user = "metagraf", repo = "sparkle",
-    type = "watch", count = TRUE, small = TRUE)
+githubButton(user = "metagraf", repo = "sparkle", type = "watch",
+  count = TRUE, small = TRUE)
 }
 \arguments{
   \item{user}{github user}
@@ -17,6 +17,6 @@
   \item{small}{small size (TRUE/FALSE)}
 }
 \description{
-  ...
+...
 }
 

man/multiselectInput.Rd

@@ -2,7 +2,7 @@
 \alias{multiselectInput}
 \title{Bootstrap multiselect}
 \usage{
-  multiselectInput(inputId, ..., options = NULL)
+multiselectInput(inputId, ..., options = NULL)
 }
 \arguments{
   \item{inputId}{input id}
@@ -12,6 +12,6 @@
   \item{options}{select 2 options}
 }
 \description{
-  ...
+...
 }
 

man/select2Input.Rd

@@ -2,8 +2,7 @@
 \alias{select2Input}
 \title{Select2 Input}
 \usage{
-  select2Input(inputId, ...,
-    options = list(width = "200px"))
+select2Input(inputId, ..., options = list(width = "200px"))
 }
 \arguments{
   \item{inputId}{input id}
@@ -13,6 +12,6 @@
   \item{options}{select 2 options}
 }
 \description{
-  ...
+...
 }
 

man/shareButtons.Rd

@@ -2,12 +2,12 @@
 \alias{shareButtons}
 \title{Share buttons}
 \usage{
-  shareButtons(style = 1)
+shareButtons(style = 1)
 }
 \arguments{
   \item{style}{style type (1-7)}
 }
 \description{
-  ...
+...
 }