diff --git a/DESCRIPTION b/DESCRIPTION
index f0dc51a..667b71e 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -1,7 +1,7 @@
 Package: shinymaterial
 Type: Package
 Title: Implement Material Design in Shiny Applications
-Version: 0.1.0.9000
+Version: 0.2.1
 Authors@R: c(
     person("Eric", "Anderson", role = c("aut", "cre"), email = "eric.ray.anderson@gmail.com"),
     person("Alvin", "Wang", role = c("ctb", "cph"), comment = "Materialize CSS library"),
@@ -17,12 +17,3 @@ Imports: shiny (>= 0.7.0)
 Encoding: UTF-8
 LazyData: true
 RoxygenNote: 6.0.1
-NeedsCompilation: no
-Packaged: 2017-04-14 19:58:37 UTC; ericanderson
-Author: Eric Anderson [aut, cre],
-  Alvin Wang [ctb, cph] (Materialize CSS library),
-  Alan Chang [ctb, cph] (Materialize CSS library),
-  Alex Mark [ctb, cph] (Materialize CSS library),
-  Kevin Louie [ctb, cph] (Materialize CSS library)
-Repository: CRAN
-Date/Publication: 2017-04-15 05:14:08 UTC
diff --git a/NAMESPACE b/NAMESPACE
index 2cacbf2..dde3fb5 100644
--- a/NAMESPACE
+++ b/NAMESPACE
@@ -1,12 +1,22 @@
+export(material_button)
 export(material_card)
+export(material_checkbox)
 export(material_column)
 export(material_depth)
+export(material_dropdown)
+export(material_floating_button)
 export(material_input)
 export(material_modal)
+export(material_number_box)
 export(material_page)
 export(material_parallax)
+export(material_password_box)
+export(material_radio_button)
 export(material_row)
 export(material_side_nav)
-export(material_tabs)
+export(material_slider)
+export(material_switch)
 export(material_tab_content)
+export(material_tabs)
+export(material_text_box)
 
diff --git a/R/shiny-material-button.R b/R/shiny-material-button.R
index 8f536d1..f08aba7 100644
--- a/R/shiny-material-button.R
+++ b/R/shiny-material-button.R
@@ -1,26 +1,22 @@
-material_button <- function(input_id, label, icon = NULL) {
-
-  required_arguments <- c("icon")
-
-  for(required_argument.i in required_arguments){
-    if(is.null(get(required_argument.i))){
-      stop(
-        material_missing_argument_error_message(
-          argument = required_argument.i,
-          input_id = input_id,
-          type = "button",
-          additional_text =
-            paste0(
-              '\nSet icon = "no_icon" to not include an icon',
-              "\nPlease goto http://materializecss.com/icons.html for available icons",
-              '\ne.g. icon = "search"'
-            )
-        )
-      )
-    }
-  }
-
-  if(icon != "no_icon"){
+#' Create a shinymaterial button
+#'
+#' Build a shinymaterial button. The initial value is zero, and increases by one on each press.
+#' @param input_id String. The input identifier used to access the value.
+#' @param label String. The button text.
+#' @param icon String. The name of the icon. Leave empty for no icon. Visit \url{http://materializecss.com/icons.html} for a list of available icons.
+#' @param depth Integer. The amount of depth of the button. The value should be between 0 and 5. Leave empty for the default depth. 
+#' @param color String. The color of the button. Leave empty for the default color. Visit \url{http://materializecss.com/color.html} for a list of available colors.
+#' @examples
+#' material_button(
+#'   input_id = "example_button",
+#'   label = "Button",
+#'   icon = "cloud",
+#'   depth = 5,
+#'   color = "blue lighten-2"
+#' )
+material_button <- function(input_id, label, icon = NULL, depth = NULL, color = NULL) {
+  
+  if(!is.null(icon)){
     icon_tag <-
       shiny::HTML(
         paste0(
@@ -31,14 +27,27 @@ material_button <- function(input_id, label, icon = NULL) {
   } else {
     icon_tag <- NULL
   }
-
+  
   create_material_object(
     js_file =
       "shiny-material-button.js",
     material_tag_list =
       shiny::tagList(
         shiny::tags$button(
-          class = "waves-effect waves-light btn shiny-material-button",
+          class = 
+            paste0(
+              "waves-effect waves-light btn shiny-material-button",
+              ifelse(
+                is.null(depth),
+                "",
+                paste0(" z-depth-", depth)
+              ),
+              ifelse(
+                is.null(color),
+                "",
+                paste0(" ", color)
+              )
+            ),
           id = input_id,
           value = 0,
           icon_tag,
diff --git a/R/shiny-material-card.R b/R/shiny-material-card.R
index d7278ce..955e670 100644
--- a/R/shiny-material-card.R
+++ b/R/shiny-material-card.R
@@ -3,15 +3,25 @@
 #' UI content can be placed in cards to organize items on a page.
 #' @param title String. The title of the card
 #' @param ... The UI elements to place in the card
+#' @param depth Integer. The amount of depth of the card. The value should be between 0 and 5. Leave empty for the default depth.
 #' @examples
 #' material_card(
 #'   title = "Example Card",
-#'   shiny::tags$h1("Card Content")
+#'   depth = 5,
+#'   shiny::tags$h5("Card Content")
 #' )
-material_card <- function(title, ...){
-
+material_card <- function(title, ..., depth = NULL){
+  
   shiny::tags$div(
-    class = "card",
+    class = 
+      paste0(
+        "card",
+        ifelse(
+          is.null(depth),
+          "",
+          paste0(" z-depth-", depth)
+        )
+      ),
     shiny::tags$div(
       class = "card-content",
       shiny::tags$span(
diff --git a/R/shiny-material-checkbox.R b/R/shiny-material-checkbox.R
index 8b7a3c3..3dc4a10 100644
--- a/R/shiny-material-checkbox.R
+++ b/R/shiny-material-checkbox.R
@@ -1,21 +1,55 @@
-material_checkbox <- function(input_id, label, initial_value = NULL) {
+#' Create a shinymaterial checkbox
+#'
+#' Build a shinymaterial checkbox. The value is a boolean (TRUE if checked, FALSE if not checked).
+#' @param input_id String. The input identifier used to access the value.
+#' @param label String. The checkbox label.
+#' @param initial_value Boolean. Is the checkbox initially checked?
+#' @param color String. The color of the check. Leave empty for the default color. Visit \url{http://materializecss.com/color.html} for a list of available colors. \emph{This input requires using color hex codes, rather than the word form. E.g., '#ef5350', rather than 'red lighten-1'.}
+#' @examples
+#' material_checkbox(
+#'   input_id = "example_checkbox",
+#'   label = "Checkbox",
+#'   initial_value = TRUE,
+#'   color = "ef5350"
+#' )
+material_checkbox <- function(input_id, label, initial_value = FALSE, color = NULL) {
   
-  required_arguments <- c("initial_value")
-  
-  for(required_argument.i in required_arguments){
-    if(is.null(get(required_argument.i))){
-      stop(
-        material_missing_argument_error_message(
-          argument = required_argument.i,
-          input_id = input_id,
-          type = "checkbox",
-          additional_text =
+  if(!is.null(color)){
+    
+    checkbox_style <-
+      shiny::tagList(
+        shiny::tags$head(
+          shiny::tags$style(
             paste0(
-              '\ninitial_value is a boolean (TRUE or FALSE)'
+              '
+              .shinymaterial-checkbox-', input_id,':checked + label:before {
+              top: -4px;
+              left: -3px;
+              width: 12px;
+              height: 22px;
+              border-top: 2px solid transparent;
+              border-left: 2px solid transparent;
+              border-right: 2px solid ', color, ';
+              border-bottom: 2px solid ', color, ';
+              -webkit-transform: rotate(40deg);
+              -moz-transform: rotate(40deg);
+              -ms-transform: rotate(40deg);
+              -o-transform: rotate(40deg);
+              transform: rotate(40deg);
+              -webkit-backface-visibility: hidden;
+              -webkit-transform-origin: 100% 100%;
+              -moz-transform-origin: 100% 100%;
+              -ms-transform-origin: 100% 100%;
+              -o-transform-origin: 100% 100%;
+              transform-origin: 100% 100%; }
+              '
             )
+          )
         )
       )
-    }
+    
+  } else {
+    checkbox_style <- shiny::tags$div()
   }
   
   create_material_object(
@@ -31,10 +65,16 @@ material_checkbox <- function(input_id, label, initial_value = NULL) {
               paste0(
                 '<input type="checkbox" id="',
                 input_id,
+                '"',
+                ifelse(
+                  is.null(color),
+                  "",
+                  paste0(' class="shinymaterial-checkbox-', input_id, '"')
+                ),
                 ifelse(
                   initial_value,
-                  '"checked/>',
-                  '"/>'
+                  ' checked="checked"/>',
+                  '/>'
                 )
               )
             ),
@@ -43,7 +83,8 @@ material_checkbox <- function(input_id, label, initial_value = NULL) {
               label
             )
           )
-        )
+        ),
+        checkbox_style
       )
   )
 }
diff --git a/R/shiny-material-column.R b/R/shiny-material-column.R
index 954738f..82f30f3 100644
--- a/R/shiny-material-column.R
+++ b/R/shiny-material-column.R
@@ -1,9 +1,9 @@
 #' Create a column to organize UI content
 #'
 #' UI content can be placed in columns to organize items on a page.
-#' @param ... The UI elements to place in the column
-#' @param width Integer. The width of the column. The value should be between 1 and 12
-#' @param offset Integer. The offset to the left of the column. The value should be between 0 and 11
+#' @param ... The UI elements to place in the column.
+#' @param width Integer. The width of the column. The value should be between 1 and 12.
+#' @param offset Integer. The offset to the left of the column. The value should be between 0 and 11.
 #' @examples
 #' material_column(
 #'   width = 4,
diff --git a/R/shiny-material-depth.R b/R/shiny-material-depth.R
index b88a77c..d5e9255 100644
--- a/R/shiny-material-depth.R
+++ b/R/shiny-material-depth.R
@@ -1,7 +1,7 @@
 #' Add depth to a UI element
 #'
-#' Give a UI element an illusion of depth by creating a shadow.
-#' @param ... The UI elements to place in the column
+#' Give a UI element the perception of depth by creating a shadow.
+#' @param ... The UI elements to apply the depth.
 #' @param depth Integer. The amount of depth. The value should be between 0 and 5. A value of 0 can be used to remove depth from objects that have depth by default.
 #' @examples
 #' material_depth(
diff --git a/R/shiny-material-dropdown.R b/R/shiny-material-dropdown.R
index 9450f01..b46a4c1 100644
--- a/R/shiny-material-dropdown.R
+++ b/R/shiny-material-dropdown.R
@@ -1,40 +1,52 @@
-material_dropdown <- function(input_id, label, choices = NULL, selected = NULL, multiple = NULL) {
-
-  required_arguments <- c("choices",
-                          "selected",
-                          "multiple")
-
-  for(required_argument.i in required_arguments){
-    if(is.null(get(required_argument.i))){
-      stop(
-        material_missing_argument_error_message(
-          argument = required_argument.i,
-          input_id = input_id,
-          type = "dropdown",
-          additional_text =
+#' Create a shinymaterial dropdown
+#'
+#' Build a shinymaterial dropdown.
+#' @param input_id String. The input identifier used to access the value.
+#' @param label String. The dropdown label.
+#' @param choices Named vector. The option names and underyling values.
+#' @param selected String. The initially selected underyling value.
+#' @param multiple Boolean. Can multiple items be selected?
+#' @param color String. The color of the dropdown choices. Leave empty for the default color. Visit \url{http://materializecss.com/color.html} for a list of available colors. \emph{This input requires using color hex codes, rather than the word form. E.g., '#ef5350', rather than 'red lighten-1'.}
+#' @examples
+#' material_dropdown(
+#'   input_id = "example_dropdown",
+#'   label = "Drop down",
+#'   choices = c(
+#'     "Chicken" = "c",
+#'     "Steak" = "s",
+#'     "Fish" = "f"
+#'   ),
+#'   selected = c("c"),
+#'   multiple = FALSE,
+#'   color = "#ef5350"
+#' )
+material_dropdown <- function(input_id, label, choices = NULL, selected = NULL, multiple = NULL, color = NULL){
+  
+  if(!is.null(color)){
+    
+    dropdown_style <-
+      shiny::tagList(
+        shiny::tags$head(
+          shiny::tags$style(
             paste0(
-              '\nSet selected = "no_selection" to select the first item in the list',
-              '\nSet multiple = TRUE for a multi-select'
+              '
+              #shiny-material-dropdown-', input_id, ' ul.dropdown-content.select-dropdown li span {
+              color: ', color, ';
+               }
+              '
             )
+          )
         )
       )
-    }
+    
+  } else {
+    dropdown_style <- shiny::tags$div()
   }
-
+  
   has_names <- !is.null(names(choices))
-
-  if(length(selected) > 1 & !multiple){
-    stop(
-      paste0(
-        "Argument 'selected' must be of length 1 when argument 'mutliple' = FALSE ",
-        "\ninput_id: ", input_id,
-        "\ntype: ", "dropdown"
-      )
-    )
-  }
-
+  
   if(length(selected) == 1){
-    if(selected == "no_selection"){
+    if(is.null(selected)){
       selected_index <- 1
     } else {
       selected_index <- which(choices == selected)
@@ -42,7 +54,7 @@ material_dropdown <- function(input_id, label, choices = NULL, selected = NULL,
   } else {
     selected_index <- which(choices %in% selected)
   }
-
+  
   material_option_tag_list <- shiny::tagList()
   #comment
   for(i in 1:length(choices)){
@@ -66,13 +78,14 @@ material_dropdown <- function(input_id, label, choices = NULL, selected = NULL,
         )
       )
   }
-
+  
   create_material_object(
     js_file = "shiny-material-dropdown.js",
     material_tag_list =
       shiny::tagList(
         shiny::tags$div(
           class = "input-field",
+          id = paste0('shiny-material-dropdown-', input_id),
           shiny::HTML(
             paste0(
               "<select", ifelse(multiple == TRUE, " multiple", ""),
@@ -86,7 +99,8 @@ material_dropdown <- function(input_id, label, choices = NULL, selected = NULL,
           shiny::tags$label(
             label
           )
-        )
+        ),
+        dropdown_style
       )
   )
 }
diff --git a/R/shiny-material-floating-button.R b/R/shiny-material-floating-button.R
index 382066f..97d9daa 100644
--- a/R/shiny-material-floating-button.R
+++ b/R/shiny-material-floating-button.R
@@ -1,24 +1,19 @@
-material_floating_button <- function(input_id, label, icon = NULL) {
-
-  required_arguments <- c("icon")
-
-  for(required_argument.i in required_arguments){
-    if(is.null(get(required_argument.i))){
-      stop(
-        material_missing_argument_error_message(
-          argument = required_argument.i,
-          input_id = input_id,
-          type = "floating-button",
-          additional_text =
-            paste0(
-              "\nPlease goto http://materializecss.com/icons.html for available icons",
-              '\ne.g. icon = "search"'
-            )
-        )
-      )
-    }
-  }
-
+#' Create a shinymaterial floating button
+#'
+#' Build a shinymaterial floating button. The initial value is zero, and increases by one on each press.
+#' @param input_id String. The input identifier used to access the value.
+#' @param icon String. The name of the icon. Leave empty for no icon. Visit \url{http://materializecss.com/icons.html} for a list of available icons.
+#' @param depth Integer. The amount of depth of the floating button. The value should be between 0 and 5. Leave empty for the default depth.
+#' @param color String. The color of the floating button. Leave empty for the default color. Visit \url{http://materializecss.com/color.html} for a list of available colors.
+#' @examples
+#' material_floating_button(
+#'   input_id = "example_floating_button",
+#'   icon = "mode_edit",
+#'   depth = 5,
+#'   color = "red lighten-3"
+#' )
+material_floating_button <- function(input_id, icon = NULL, depth = NULL, color = NULL) {
+  
   create_material_object(
     js_file =
       "shiny-material-floating-button.js",
@@ -28,9 +23,25 @@ material_floating_button <- function(input_id, label, icon = NULL) {
           class="fixed-action-btn",
           shiny::tags$button(
             class =
-              "btn-floating btn-large waves-effect waves-light shiny-material-floating-button z-depth-3",
+              paste0(
+                "btn-floating btn-large waves-effect waves-light shiny-material-floating-button",
+                ifelse(
+                  is.null(depth),
+                  "",
+                  paste0(" z-depth-", depth)
+                ),
+                ifelse(
+                  is.null(color),
+                  "",
+                  paste0(" ", color)
+                )
+              ),
             style =
-              "background-color:#F06C71",
+              ifelse(
+                !is.null(color),
+                "",
+                "background-color:#F06C71"
+              ),
             id = input_id,
             value = 0,
             shiny::tags$i(
diff --git a/R/shiny-material-input.R b/R/shiny-material-input.R
index 9524134..26b0b64 100644
--- a/R/shiny-material-input.R
+++ b/R/shiny-material-input.R
@@ -1,153 +1,9 @@
 #' Create a shinymaterial input
 #'
-#' Build a shinymaterial input of any available type.
-#' @param type String. The type of input to be created. See section "Input Types" for list of available types.
-#' @param input_id String. The input identifier used to access the value.
-#' @param label String. Display label for input.
-#' @param ... Additional arguments for the input type.
-#' @section Input Types:
-#' \itemize{
-#'   \item{
-#'   \strong{button}
-#'   \itemize{
-#'   \item{\code{icon} \emph{(String. The name of the icon. Visit \url{http://materializecss.com/icons.html} for a list of available icons.)}}
-#'   }
-#'   }
-#'   \item{
-#'   \strong{checkbox}
-#'   \itemize{
-#'   \item{\code{initial_value} \emph{(Boolean. The initial value.)}}
-#'   }
-#'   }
-#'   \item{
-#'   \strong{dropdown}
-#'   \itemize{
-#'   \item{\code{choices} \emph{(Named vector. The list of option names and underyling values.)}}
-#'   \item{\code{selected} \emph{(String. The initial selected underyling value.)}}
-#'   \item{\code{multiple} \emph{(Boolean. Can multiple items be selected?)}}
-#'   }
-#'   }
-#'   \item{
-#'   \strong{floating-button}
-#'   \itemize{
-#'   \item{\code{icon} \emph{(String. The name of the icon. Visit \url{http://materializecss.com/icons.html} for a list of available icons.)}}
-#'   }
-#'   }
-#'   \item{
-#'   \strong{number-box}
-#'   \itemize{
-#'   \item{\code{min_value} \emph{(Number. The minimum allowable value.)}}
-#'   \item{\code{max_value} \emph{(Number. The maximum allowable value.)}}
-#'   \item{\code{initial_value} \emph{(Number. The initial value.)}}
-#'   }
-#'   }
-#'   \item{
-#'   \strong{password-box}
-#'   }
-#'   \item{
-#'   \strong{radio-button}
-#'   \itemize{
-#'   \item{\code{choices} \emph{(Named vector. The list of option names and underyling values.)}}
-#'   }
-#'   }
-#'   \item{
-#'   \strong{slider}
-#'   \itemize{
-#'   \item{\code{min_value} \emph{(Number. The minimum allowable value.)}}
-#'   \item{\code{max_value} \emph{(Number. The maximum allowable value.)}}
-#'   \item{\code{initial_value} \emph{(Number. The initial value.)}}
-#'   }
-#'   }
-#'   \item{
-#'   \strong{switch}
-#'   \itemize{
-#'   \item{\code{off_label} \emph{(String. The label for the 'off' portion of the switch.)}}
-#'   \item{\code{on_label} \emph{(String. The label for the 'on' portion of the switch.)}}
-#'   \item{\code{initial_value} \emph{(Boolean. The initial value.)}}
-#'   }
-#'   }
-#'   \item{
-#'   \strong{text-box}
-#'   }
-#' }
+#' Build a shinymaterial input.
+#' @param type String. The type of input to be created.
+#' @param ... Additional arguments for the input.
 #' @examples
-#' ##-- button --##
-#' material_input(
-#'   type = "button",
-#'   input_id = "example_button",
-#'   label = "Button",
-#'   icon = "done"
-#' )
-#'
-#' ##-- checkbox --##
-#' material_input(
-#'   type = "checkbox",
-#'   input_id = "example_checkbox",
-#'   label = "Checkbox",
-#'   initial_value = TRUE
-#' )
-#'
-#' ##-- dropdown --##
-#' material_input(
-#'   type = "dropdown",
-#'   input_id = "example_dropdown",
-#'   label = "Dropdown",
-#'   choices = c(
-#'     "Chicken" = "c",
-#'     "Steak" = "s",
-#'     "Fish" = "f"
-#'   ),
-#'   selected = c("c"),
-#'   multiple = FALSE
-#' )
-#'
-#' ##-- floating-button --##
-#' material_input(
-#'   type = "floating-button",
-#'   input_id = "example_floating_button",
-#'   label = "Floating Button",
-#'   icon = "done"
-#' )
-#'
-#' ##-- number-box --##
-#' material_input(
-#'   type = "number-box",
-#'   input_id = "example_number_box",
-#'   label = "Number Box",
-#'   min_value = 1,
-#'   max_value = 10,
-#'   initial_value = 2
-#' )
-#'
-#' ##-- password-box --##
-#' material_input(
-#'   type = "password-box",
-#'   input_id = "example_password_box",
-#'   label = "Password Box"
-#' )
-#'
-#' ##-- radio-button --##
-#' material_input(
-#'   type = "radio-button",
-#'   input_id = "example_radio_button",
-#'   label = "Radio Button",
-#'   choices = c(
-#'     "Cake" = "c",
-#'     "Pie" = "p",
-#'     "Brownie" = "b"
-#'   )
-#' )
-#'
-#' ##-- slider --##
-#' material_input(
-#'   type = "slider",
-#'   input_id = "example_slider",
-#'   label = "Slider",
-#'   min_value = 1,
-#'   max_value = 10,
-#'   initial_value = 2
-#' )
-#'
 #' ##-- switch --##
 #' material_input(
 #'   type = "switch",
@@ -157,15 +13,8 @@
 #'   on_label = "On",
 #'   initial_value = TRUE
 #' )
-#'
-#' ##-- text-box --##
-#' material_input(
-#'   type = "text-box",
-#'   input_id = "example_text_box",
-#'   label = "Text Box"
-#' )
-material_input <- function(type, input_id, label, ...){
-
+material_input <- function(type, ...){
+  
   function_name <-
     check_material_function_name(type = type,
                                  function_type = "input")
@@ -174,8 +23,6 @@ material_input <- function(type, input_id, label, ...){
     what = function_name,
     args =
       list(
-        input_id = input_id,
-        label = label,
         ...
       )
   )
diff --git a/R/shiny-material-modal.R b/R/shiny-material-modal.R
index 25d72b6..49c936c 100644
--- a/R/shiny-material-modal.R
+++ b/R/shiny-material-modal.R
@@ -1,22 +1,25 @@
 #' Place UI content in a modal
 #'
 #' Put any UI object inside of a modal. The modal will open when the button is pressed.
-#' @param modal_id String. The ID for the modal. Must be unique per app
-#' @param button_text String. The text displayed on the modal trigger button
+#' @param modal_id String. The ID for the modal. Must be unique per application.
+#' @param button_text String. The text displayed on the modal trigger button.
+#' @param title String. The title of the modal window.
+#' @param ... The UI elements to place in the modal
 #' @param button_icon String. The name of the icon. Visit \url{http://materializecss.com/icons.html} for a list of available icons.
 #' @param floating_button Boolean. Should the modal trigger button be a floating button?
-#' @param title String. The title of the modal window
-#' @param ... The UI elements to place in the modal
+#' @param button_depth Integer. The amount of depth of the button. The value should be between 0 and 5. Leave empty for the default depth.
+#' @param button_color String. The color of the button. Leave empty for the default color. Visit \url{http://materializecss.com/color.html} for a list of available colors.
 #' @examples
 #' material_modal(
 #'   modal_id = "example_modal",
 #'   button_text = "Modal",
 #'   title = "Example Modal Title",
+#'   button_color = "red lighten-3",
 #'   shiny::tags$p("Modal Content")
 #' )
-material_modal <- function(modal_id, button_text, title, ..., floating_button = FALSE, button_icon = "no_icon"){
+material_modal <- function(modal_id, button_text, title, ..., button_icon = NULL, floating_button = FALSE, button_depth = NULL, button_color = NULL){
   
-  if(button_icon != "no_icon"){
+  if(!is.null(button_icon)){
     icon_tag <-
       shiny::HTML(
         paste0(
@@ -28,7 +31,19 @@ material_modal <- function(modal_id, button_text, title, ..., floating_button =
     icon_tag <- NULL
   }
   
-  button_class <- "waves-effect waves-light shiny-material-modal-trigger"
+  button_class <- 
+    paste0(
+      "waves-effect waves-light shiny-material-modal-trigger",
+      ifelse(is.null(button_color),
+             "",
+             paste0(" ",  button_color)
+      ),
+      ifelse(
+        is.null(button_depth),
+        "",
+        paste0(" z-depth-", button_depth)
+      )
+    )
   
   if(!floating_button){
     button_class <- 
diff --git a/R/shiny-material-number-box.R b/R/shiny-material-number-box.R
index e09bc44..948625b 100644
--- a/R/shiny-material-number-box.R
+++ b/R/shiny-material-number-box.R
@@ -1,37 +1,68 @@
-material_number_box <- function(input_id, label, min_value = NULL, max_value = NULL, initial_value = NULL){
-
-  required_arguments <- c("min_value",
-                          "max_value",
-                          "initial_value")
-
-  for(required_argument.i in required_arguments){
-    if(is.null(get(required_argument.i))){
-      stop(
-        material_missing_argument_error_message(
-          argument = required_argument.i,
-          input_id = input_id,
-          type = "number-box"
+#' Create a shinymaterial number box
+#'
+#' Build a shinymaterial number box.
+#' @param input_id String. The input identifier used to access the value.
+#' @param label String. The number box label.
+#' @param min_value Number. The minimum allowable value.
+#' @param max_value Number. The maximum allowable value.
+#' @param initial_value Number. The initial value.
+#' @param color String. The accent color of the number box. Leave empty for the default color. Visit \url{http://materializecss.com/color.html} for a list of available colors. \emph{This input requires using color hex codes, rather than the word form. E.g., '#ef5350', rather than 'red lighten-1'.}
+#' @examples
+#' material_number_box(
+#'   input_id = "example_number_box",
+#'   label = "number box",
+#'   min_value = 5,
+#'   max_value = 15,
+#'   initial_value = 10,
+#'   color = "#ef5350"
+#' )
+material_number_box <- function(input_id, label, min_value, max_value, initial_value, color = NULL){
+  if(!is.null(color)){
+    
+    number_box_style <-
+      shiny::tagList(
+        shiny::tags$head(
+          shiny::tags$style(
+            paste0(
+              '
+              #', input_id, '_number_box.input-field input[type=number]:focus + label {
+              color: ', color, ';
+              }
+              #', input_id, '_number_box.input-field input[type=number]:focus {
+              border-bottom: 1px solid ', color, ';
+              box-shadow: 0 1px 0 0 ', color, ';
+              }
+              '
+            )
+          )
         )
       )
-    }
+    
+  } else {
+    number_box_style <- shiny::tags$div()
   }
+  
   create_material_object(
     js_file =
       "shiny-material-number-box.js",
     material_tag_list =
-      shiny::tags$div(
-        class = "input-field",
-        shiny::tags$input(
-          id = input_id,
-          type = "number",
-          value = initial_value,
-          min = min_value,
-          max = max_value
+      shiny::tagList(
+        shiny::tags$div(
+          class = "input-field",
+          id = paste0(input_id, "_number_box"),
+          shiny::tags$input(
+            id = input_id,
+            type = "number",
+            value = initial_value,
+            min = min_value,
+            max = max_value
+          ),
+          shiny::tags$label(
+            `for` = input_id,
+            label
+          )
         ),
-        shiny::tags$label(
-          `for` = input_id,
-          label
-        )
+        number_box_style
       )
   )
 }
diff --git a/R/shiny-material-page.R b/R/shiny-material-page.R
index 7738fea..3c75ca9 100644
--- a/R/shiny-material-page.R
+++ b/R/shiny-material-page.R
@@ -2,13 +2,17 @@
 #'
 #' Build a shinymaterial page.
 #' @param title String. The title of the page.
-#' @param ... The UI elements to place in the page
+#' @param ... The UI elements to place in the page.
+#' @param nav_bar_color Color of the navigation bar. Leave blank for the default color. Visit \url{http://materializecss.com/color.html} for a list of available colors.
+#' @param background_color Page background color. Leave blank for the default color. Visit \url{http://materializecss.com/color.html} for a list of available colors.
 #' @examples
 #' material_page(
 #'   title = "Example Title",
+#'   nav_bar_color = "red lighten-2",
+#'   background_color = "blue lighten-4",
 #'   shiny::tags$h1("Page Content")
 #' )
-material_page <- function(title, ...){
+material_page <- function(title, ..., nav_bar_color = NULL, background_color = "grey lighten-4"){
   shiny::tags$html(
     # Head --------------------------------------------------------------------
     shiny::tags$head(
@@ -32,8 +36,14 @@ material_page <- function(title, ...){
     ),
     # Body --------------------------------------------------------------------
     shiny::tags$body(
-      class = "grey lighten-4",
+      class = background_color,
       shiny::tags$nav(
+        class = 
+          ifelse(
+            is.null(nav_bar_color),
+            "",
+            nav_bar_color
+          ),
         shiny::tags$div(
           class = "nav-wrapper",
           shiny::tags$div(
diff --git a/R/shiny-material-parallax.R b/R/shiny-material-parallax.R
index b39fa6a..0b67570 100644
--- a/R/shiny-material-parallax.R
+++ b/R/shiny-material-parallax.R
@@ -1,10 +1,10 @@
 #' Create a parallax image
 #'
 #' Use this function to create a parallax effect in your application.
-#' @param image_source String. The image file name. Place the image in a folder labeled 'www' at the same level as the application (server.R & ui.R)
+#' @param image_source String. The image file name. Place the image in a folder labeled 'www' at the same level as the application (server.R & ui.R).
 #' @examples
 #' material_parallax(
-#'   image_source = "https://upload.wikimedia.org/wikipedia/commons/thumb/8/8d/Freudenberg_sg_Switzerland.jpg/1920px-Freudenberg_sg_Switzerland.jpg"
+#'   image_source = "example_image.jpg"
 #' )
 material_parallax <- function(image_source){
   create_material_object(
diff --git a/R/shiny-material-password-box.R b/R/shiny-material-password-box.R
index 10bc093..660e48c 100644
--- a/R/shiny-material-password-box.R
+++ b/R/shiny-material-password-box.R
@@ -1,19 +1,60 @@
-material_password_box <- function(input_id, label){
+#' Create a shinymaterial password box
+#'
+#' Build a shinymaterial password box.
+#' @param input_id String. The input identifier used to access the value.
+#' @param label String. The password box label.
+#' @param color String. The accent color of the password box. Leave empty for the default color. Visit \url{http://materializecss.com/color.html} for a list of available colors. \emph{This input requires using color hex codes, rather than the word form. E.g., '#ef5350', rather than 'red lighten-1'.}
+#' @examples
+#' material_password_box(
+#'   input_id = "example_password_box",
+#'   label = "password box",
+#'   color = "#ef5350"
+#' )
+material_password_box <- function(input_id, label, color = NULL){
+  if(!is.null(color)){
+    
+    password_box_style <-
+      shiny::tagList(
+        shiny::tags$head(
+          shiny::tags$style(
+            paste0(
+              '
+              #', input_id, '_password_box.input-field input[type=password]:focus + label {
+              color: ', color, ';
+              }
+              #', input_id, '_password_box.input-field input[type=password]:focus {
+              border-bottom: 1px solid ', color, ';
+              box-shadow: 0 1px 0 0 ', color, ';
+              }
+              '
+            )
+          )
+        )
+      )
+    
+  } else {
+    password_box_style <- shiny::tags$div()
+  }
+  
   create_material_object(
     js_file =
       "shiny-material-password-box.js",
     material_tag_list =
-      shiny::tags$div(
-        class = "input-field",
-        shiny::tags$input(
-          id = input_id,
-          type = "password",
-          class = "validate"
+      shiny::tagList(
+        shiny::tags$div(
+          class = "input-field ",
+          id = paste0(input_id, "_password_box"),
+          shiny::tags$input(
+            id = input_id,
+            type = "password",
+            class = "validate"
+          ),
+          shiny::tags$label(
+            `for` = input_id,
+            label
+          )
         ),
-        shiny::tags$label(
-          `for` = input_id,
-          label
-        )
+        password_box_style
       )
   )
 }
diff --git a/R/shiny-material-radio-button.R b/R/shiny-material-radio-button.R
index 5127c1f..0a7618f 100644
--- a/R/shiny-material-radio-button.R
+++ b/R/shiny-material-radio-button.R
@@ -1,29 +1,65 @@
-material_radio_button <- function(input_id, label, choices = NULL) {
-
-  required_arguments <- c("choices")
-
-  for(required_argument.i in required_arguments){
-    if(is.null(get(required_argument.i))){
-      stop(
-        material_missing_argument_error_message(
-          argument = required_argument.i,
-          input_id = input_id,
-          type = "radio-button"
+#' Create a shinymaterial radio button
+#'
+#' Build a shinymaterial radio button.
+#' @param input_id String. The input identifier used to access the value.
+#' @param label String. The radio button label.
+#' @param choices Named vector. The option names and underyling values.
+#' @param color String. The color of the radio buttons. Leave empty for the default color. Visit \url{http://materializecss.com/color.html} for a list of available colors. \emph{This input requires using color hex codes, rather than the word form. E.g., '#ef5350', rather than 'red lighten-1'.}
+#' @examples
+#' material_radio_button(
+#'   input_id = "example_radio_button",
+#'   label = "Radio Button",
+#'   choices = c(
+#'     "Cake" = "c",
+#'     "Pie" = "p",
+#'     "Brownie" = "b"
+#'   ),
+#'   color = "#ef5350"
+#' )
+material_radio_button <- function(input_id, label, choices, color = NULL) {
+  
+  if(!is.null(color)){
+    
+    radio_button_style <-
+      shiny::tagList(
+        shiny::tags$head(
+          shiny::tags$style(
+            paste0(
+              '
+              input[type="radio"].shinymaterial-radio-button-', input_id,':checked+label:before,
+              input[type="radio"].shinymaterial-radio-button-', input_id,':checked+label:after {
+              border: 2px solid ', color, ' !important;
+              }
+              
+              input[type="radio"].shinymaterial-radio-button-', input_id,':checked+label:after {
+              background-color: ', color, ' !important;
+              }
+              '
+            )
+          )
         )
       )
-    }
+    
+  } else {
+    radio_button_style <- shiny::tags$div()
   }
-
+  
   material_radio_choices <- shiny::tagList()
-
+  
   has_names <- !is.null(names(choices))
-
+  
   for(i in 1:length(choices)){
     material_radio_choices[[i]] <-
       shiny::tags$p(
         shiny::tags$input(
           type = "radio",
           name = input_id,
+          class = 
+            ifelse(
+              is.null(color),
+              '', 
+              paste0('shinymaterial-radio-button-', input_id)
+            ),
           id = choices[i]
         ),
         shiny::tags$label(
@@ -36,7 +72,7 @@ material_radio_button <- function(input_id, label, choices = NULL) {
         )
       )
   }
-
+  
   create_material_object(
     js_file =
       "shiny-material-radio-button.js",
@@ -51,7 +87,8 @@ material_radio_button <- function(input_id, label, choices = NULL) {
           ),
           material_radio_choices,
           class = "shiny-material-radio-button"
-        )
+        ),
+        radio_button_style
       )
   )
 }
diff --git a/R/shiny-material-row.R b/R/shiny-material-row.R
index ba18a1a..1835690 100644
--- a/R/shiny-material-row.R
+++ b/R/shiny-material-row.R
@@ -1,7 +1,7 @@
 #' Create a row to organize UI content
 #'
-#' UI content can be placed in rows to organize items on a page.
-#' @param ... The UI elements to place in the row
+#' UI content can be placed in a row to organize items on a page.
+#' @param ... The UI elements to place in the row.
 #' @examples
 #' material_row(
 #'   shiny::tags$h1("Row Content")
diff --git a/R/shiny-material-side-nav.R b/R/shiny-material-side-nav.R
index 0c31d7e..a3a3ebb 100644
--- a/R/shiny-material-side-nav.R
+++ b/R/shiny-material-side-nav.R
@@ -1,16 +1,18 @@
 #' Create a side-nav that contains UI content
 #'
 #' UI content can be placed in side-nav.
-#' @param fixed A boolean. Set to TRUE to keep side-nav open on large screens.
-#' @param image_source String. The background image file name. Place the image in a folder labeled 'www' at the same level as the application (server.R & ui.R)
-#' @param ... The UI elements to place in the side-nav
+#' @param ... The UI elements to place in the side-nav.
+#' @param fixed Boolean. Set to TRUE to keep side-nav open on large screens.
+#' @param image_source String. The background image file name. Place the image in a folder labeled 'www' at the same level as the application (server.R & ui.R).
+#' @param background_color Side-nav background color. Leave blank for the default color. Visit \url{http://materializecss.com/color.html} for a list of available colors.
 #' @examples
 #' material_side_nav(
 #'   fixed = FALSE,
-#'   image_source = "https://upload.wikimedia.org/wikipedia/commons/thumb/e/e6/Red_brick_wall_texture.JPG/2560px-Red_brick_wall_texture.JPG",
+#'   image_source = "example_image.jpg",
+#'   background_color = "blue lighten-4",
 #'   shiny::tags$h1("Side-nav Content")
 #' )
-material_side_nav <- function(..., fixed = FALSE, image_source = NULL){
+material_side_nav <- function(..., fixed = FALSE, image_source = NULL, background_color = NULL){
   
   if(is.null(image_source)){
     side_nav_content <- shiny::tagList(...)
@@ -61,6 +63,11 @@ material_side_nav <- function(..., fixed = FALSE, image_source = NULL){
       id = "slide-out",
       class = paste0(
         "side-nav",
+        ifelse(
+          !is.null(background_color),
+          paste0(" ", background_color),
+          ""
+        ),
         ifelse(
           fixed,
           " fixed",
diff --git a/R/shiny-material-slider.R b/R/shiny-material-slider.R
index d384c49..87b2b49 100644
--- a/R/shiny-material-slider.R
+++ b/R/shiny-material-slider.R
@@ -1,43 +1,82 @@
-material_slider <- function(input_id, label, min_value = NULL, max_value = NULL, initial_value = NULL){
-
-  required_arguments <- c("min_value",
-                          "max_value",
-                          "initial_value")
+#' Create a shinymaterial slider
+#'
+#' Build a shinymaterial slider.
+#' @param input_id String. The input identifier used to access the value.
+#' @param label String. The slider label.
+#' @param min_value Number. The minimum value on the slider.
+#' @param max_value Number. The maximum value on the slider.
+#' @param initial_value Number. The initial value of the slider.
+#' @param color String. The slider color. Leave empty for the default color. Visit \url{http://materializecss.com/color.html} for a list of available colors. \emph{This input requires using color hex codes, rather than the word form. E.g., '#ef5350', rather than 'red lighten-1'.}
+#' @examples
+#' material_slider(
+#'   input_id = "example_slider",
+#'   label = "slider",
+#'   min_value = 5,
+#'   max_value = 15,
+#'   initial_value = 10,
+#'   color = "#ef5350"
+#' )
+material_slider <- function(input_id, label, min_value, max_value, initial_value, color = NULL){
+  
+  if(!is.null(color)){
+    
+    slider_style <-
+      shiny::tagList(
+        shiny::tags$head(
+          shiny::tags$style(
+            paste0(
+              '
+              input[type=range].shinymaterial-slider-', input_id, '::-webkit-slider-thumb {
+              background-color: ', color, ';
+              }
+              input[type=range].shinymaterial-slider-', input_id, '::-moz-range-thumb {
+              background-color: ', color, ';
+              }
+              input[type=range].shinymaterial-slider-', input_id, '::-ms-thumb {
+              background-color: ', color, ';
+              }
+              
+              input[type=range].shinymaterial-slider-', input_id, ' + .thumb {
+              background-color: ', color, ';
+              }
 
-  for(required_argument.i in required_arguments){
-    if(is.null(get(required_argument.i))){
-      stop(
-        material_missing_argument_error_message(
-          argument = required_argument.i,
-          input_id = input_id,
-          type = "slider"
+              input[type=range].shinymaterial-slider-', input_id, ' + .thumb.active .value {
+              color: white;
+              }
+              '
+            )
+          )
         )
       )
-    }
+    
+  } else {
+    slider_style <- shiny::tags$div()
   }
-
+  
   create_material_object(
     js_file =
       "shiny-material-slider.js",
     material_tag_list =
       shiny::tagList(
-          shiny::tags$form(
-            action = "#",
-            shiny::tags$p(
-              class = "range-field shiny-material-slider",
-              id = input_id,
-              shiny::tags$label(
-                `for` = input_id,
-                label
-              ),
-              shiny::tags$input(
-                type = "range",
-                min = min_value,
-                max = max_value,
-                value = initial_value
-              )
+        shiny::tags$form(
+          action = "#",
+          shiny::tags$p(
+            class = "range-field shiny-material-slider",
+            id = input_id,
+            shiny::tags$label(
+              `for` = input_id,
+              label
+            ),
+            shiny::tags$input(
+              type = "range",
+              class = paste0('shinymaterial-slider-', input_id),
+              min = min_value,
+              max = max_value,
+              value = initial_value
             )
           )
+        ),
+        slider_style
       )
   )
 }
diff --git a/R/shiny-material-switch.R b/R/shiny-material-switch.R
index fa67467..433489a 100644
--- a/R/shiny-material-switch.R
+++ b/R/shiny-material-switch.R
@@ -1,23 +1,44 @@
-material_switch <- function(input_id, label, off_label = NULL, on_label = NULL, initial_value = NULL){
+#' Create a shinymaterial switch
+#'
+#' Build a shinymaterial switch. The value is a boolean (TRUE if 'on', FALSE if 'off').
+#' @param input_id String. The input identifier used to access the value.
+#' @param label String. The switch label.
+#' @param off_label String. The label for the 'off' position of the switch.
+#' @param on_label String. The label for the 'on' position of the switch.
+#' @param initial_value Boolean. Is the switch initially on?
+#' @param color String. The color of the switch. Leave empty for the default color. Visit \url{http://materializecss.com/color.html} for a list of available colors. \emph{This input requires using color hex codes, rather than the word form. E.g., '#ef5350', rather than 'red lighten-1'.}
+#' @examples
+#' material_switch(
+#'   input_id = "example_switch",
+#'   label = "Switch",
+#'   off_label = "Off",
+#'   on_label = "On",
+#'   initial_value = TRUE,
+#'   color = "#ef5350"
+#' )
+material_switch <- function(input_id, label, off_label, on_label, initial_value = FALSE, color = NULL){
   
-  required_arguments <- c("off_label",
-                          "on_label",
-                          "initial_value")
-  
-  for(required_argument.i in required_arguments){
-    if(is.null(get(required_argument.i))){
-      stop(
-        material_missing_argument_error_message(
-          argument = required_argument.i,
-          input_id = input_id,
-          type = "switch",
-          additional_text =
+  if(!is.null(color)){
+    
+    switch_style <-
+      shiny::tagList(
+        shiny::tags$head(
+          shiny::tags$style(
             paste0(
-              '\ninitial_value is a boolean (TRUE or FALSE)'
+              '#', input_id, '_switch.switch label input[type=checkbox]:checked+.lever:after {
+              background-color: ', color, '!important;
+              }
+              #', input_id, '_switch.switch label input[type=checkbox]:checked+.lever {
+              background-color: ', color, '!important;
+              }
+              '
             )
+          )
         )
       )
-    }
+    
+  } else {
+    switch_style <- shiny::tags$div()
   }
   
   create_material_object(
@@ -31,6 +52,7 @@ material_switch <- function(input_id, label, off_label = NULL, on_label = NULL,
         ),
         shiny::tags$div(
           class = "switch shiny-material-switch",
+          id = paste0(input_id, "_switch"),
           shiny::tags$label(
             off_label,
             shiny::HTML(
@@ -49,7 +71,8 @@ material_switch <- function(input_id, label, off_label = NULL, on_label = NULL,
             ),
             on_label
           )
-        )
+        ),
+        switch_style
       )
   )
 }
diff --git a/R/shiny-material-tab-content.R b/R/shiny-material-tab-content.R
index dade706..57feb21 100644
--- a/R/shiny-material-tab-content.R
+++ b/R/shiny-material-tab-content.R
@@ -1,8 +1,8 @@
 #' Place UI content within a tab
 #'
 #' Use this function to place UI content within a specific tab.
-#' @param tab_id String. The tab id to place the content in
-#' @param ... The UI elements to place in the tab
+#' @param tab_id String. The tab id in which to place the UI content.
+#' @param ... The UI elements to place in the tab.
 #' @examples
 #' material_tab_content(
 #'   tab_id = "example_tab_1",
diff --git a/R/shiny-material-tabs.R b/R/shiny-material-tabs.R
index a5484ec..f1d5823 100644
--- a/R/shiny-material-tabs.R
+++ b/R/shiny-material-tabs.R
@@ -1,28 +1,44 @@
 #' Place UI content within a tab
 #'
 #' Use this function to create tabs in your application.
-#' @param tabs Named Vector. The tab display names as well as the tab ids.
+#' @param tabs Named vector. The tab display names and corresponding tab ids.
+#' @param color String. The accent color of the tabs. Leave blank for the default color. Visit \url{http://materializecss.com/color.html} for a list of available colors. \emph{Tab color requires using word forms of colors (e.g. 'deep-purple'). Also, lighten or darken effects do not work on tab colors.}
 #' @examples
 #' material_tabs(
 #'   tabs = c(
 #'     "Example Tab 1" = "example_tab_1",
 #'     "Example Tab 2" = "example_tab_2"
-#'   )
+#'   ),
+#'   color = "deep-purple"
 #' )
-material_tabs <- function(tabs){
-
+material_tabs <- function(tabs, color = NULL){
+  
   material_tabs <- shiny::tagList()
-
+  
   for(i in 1:length(tabs)){
     material_tabs[[i]] <-
       shiny::tags$li(
         class = "tab",
         shiny::tags$a(
+          class = 
+            ifelse(
+              is.null(color),
+              "",
+              paste0(" ", color, "-text")
+            ),
           href = paste0("#", tabs[[i]]),
           names(tabs)[[i]]
         )
       )
   }
+  
+  if(!is.null(color)){
+    material_tabs[[length(tabs) + 1]] <-
+      shiny::tags$div(
+        class = paste0("indicator ", color)
+      )
+  }
+  
   shiny::tagList(
     shiny::tags$ul(
       class = "tabs tabs-fixed-width",
diff --git a/R/shiny-material-text-box.R b/R/shiny-material-text-box.R
index cb4e09f..bd61aab 100644
--- a/R/shiny-material-text-box.R
+++ b/R/shiny-material-text-box.R
@@ -1,19 +1,59 @@
-material_text_box <- function(input_id, label){
+#' Create a shinymaterial text box
+#'
+#' Build a shinymaterial text box.
+#' @param input_id String. The input identifier used to access the value.
+#' @param label String. The text box label.
+#' @param color String. The accent color of the text box. Leave empty for the default color. Visit \url{http://materializecss.com/color.html} for a list of available colors. \emph{This input requires using color hex codes, rather than the word form. E.g., '#ef5350', rather than 'red lighten-1'.}
+#' @examples
+#' material_text_box(
+#'   input_id = "example_text_box",
+#'   label = "text box",
+#'   color = "#ef5350"
+#' )
+material_text_box <- function(input_id, label, color = NULL){
+  if(!is.null(color)){
+    
+    text_box_style <-
+      shiny::tagList(
+        shiny::tags$head(
+          shiny::tags$style(
+            paste0(
+              '
+              #', input_id, '_text_box.input-field input[type=text]:focus + label {
+              color: ', color, ';
+              }
+              #', input_id, '_text_box.input-field input[type=text]:focus {
+              border-bottom: 1px solid ', color, ';
+              box-shadow: 0 1px 0 0 ', color, ';
+              }
+              '
+            )
+          )
+        )
+      )
+    
+  } else {
+    text_box_style <- shiny::tags$div()
+  }
   create_material_object(
     js_file =
       "shiny-material-text-box.js",
     material_tag_list =
-      shiny::tags$div(
-        class = "input-field",
-        shiny::tags$input(
-          id = input_id,
-          type = "text",
-          class = "validate"
+      shiny::tagList(
+        shiny::tags$div(
+          class = "input-field",
+          id = paste0(input_id, "_text_box"),
+          shiny::tags$input(
+            id = input_id,
+            type = "text",
+            class = "validate"
+          ),
+          shiny::tags$label(
+            `for` = input_id,
+            label
+          )
         ),
-        shiny::tags$label(
-          `for` = input_id,
-          label
-        )
+        text_box_style
       )
   )
 }
diff --git a/R/shiny-material-utils.R b/R/shiny-material-utils.R
index fe9fdad..e6679fc 100644
--- a/R/shiny-material-utils.R
+++ b/R/shiny-material-utils.R
@@ -14,20 +14,6 @@ create_material_object <- function(js_file, material_tag_list){
   )
 }
 
-material_missing_argument_error_message <- function(argument, input_id, type, additional_text = ""){
-  stop(
-    call. = FALSE,
-    paste0(
-      "Required material_input argument is missing, with no default",
-        "\ninput_id: ", input_id,
-      "\ntype: ", type,
-      "\nmissing argument: ", argument,
-      additional_text,
-      "\n"
-    )
-  )
-}
-
 check_material_function_name <- function(type, function_type){
 
   function_name <-
diff --git a/inst/doc/shinymaterial.pdf b/inst/doc/shinymaterial.pdf
index c90e5b0..2bb905f 100644
Binary files a/inst/doc/shinymaterial.pdf and b/inst/doc/shinymaterial.pdf differ
diff --git a/man/material_button.Rd b/man/material_button.Rd
new file mode 100644
index 0000000..a5a31d8
--- /dev/null
+++ b/man/material_button.Rd
@@ -0,0 +1,31 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/shiny-material-button.R
+\name{material_button}
+\alias{material_button}
+\title{Create a shinymaterial button}
+\usage{
+material_button(input_id, label, icon = NULL, depth = NULL, color = NULL)
+}
+\arguments{
+\item{input_id}{String. The input identifier used to access the value.}
+
+\item{label}{String. The button text.}
+
+\item{icon}{String. The name of the icon. Leave empty for no icon. Visit \url{http://materializecss.com/icons.html} for a list of available icons.}
+
+\item{depth}{Integer. The amount of depth of the button. The value should be between 0 and 5. Leave empty for the default depth.}
+
+\item{color}{String. The color of the button. Leave empty for the default color. Visit \url{http://materializecss.com/color.html} for a list of available colors.}
+}
+\description{
+Build a shinymaterial button. The initial value is zero, and increases by one on each press.
+}
+\examples{
+material_button(
+  input_id = "example_button",
+  label = "Button",
+  icon = "cloud",
+  depth = 5,
+  color = "blue lighten-2"
+)
+}
diff --git a/man/material_card.Rd b/man/material_card.Rd
index 22701a8..c456d22 100644
--- a/man/material_card.Rd
+++ b/man/material_card.Rd
@@ -4,12 +4,14 @@
 \alias{material_card}
 \title{Create a card that will contain UI content}
 \usage{
-material_card(title, ...)
+material_card(title, ..., depth = NULL)
 }
 \arguments{
 \item{title}{String. The title of the card}
 
 \item{...}{The UI elements to place in the card}
+
+\item{depth}{Integer. The amount of depth of the card. The value should be between 0 and 5. Leave empty for the default depth.}
 }
 \description{
 UI content can be placed in cards to organize items on a page.
@@ -17,6 +19,7 @@ UI content can be placed in cards to organize items on a page.
 \examples{
 material_card(
   title = "Example Card",
-  shiny::tags$h1("Card Content")
+  depth = 5,
+  shiny::tags$h5("Card Content")
 )
 }
diff --git a/man/material_checkbox.Rd b/man/material_checkbox.Rd
new file mode 100644
index 0000000..4a65a21
--- /dev/null
+++ b/man/material_checkbox.Rd
@@ -0,0 +1,28 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/shiny-material-checkbox.R
+\name{material_checkbox}
+\alias{material_checkbox}
+\title{Create a shinymaterial checkbox}
+\usage{
+material_checkbox(input_id, label, initial_value = FALSE, color = NULL)
+}
+\arguments{
+\item{input_id}{String. The input identifier used to access the value.}
+
+\item{label}{String. The checkbox label.}
+
+\item{initial_value}{Boolean. Is the checkbox initially checked?}
+
+\item{color}{String. The color of the check. Leave empty for the default color. Visit \url{http://materializecss.com/color.html} for a list of available colors. \emph{This input requires using color hex codes, rather than the word form. E.g., '#ef5350', rather than 'red lighten-1'.}}
+}
+\description{
+Build a shinymaterial checkbox. The value is a boolean (TRUE if checked, FALSE if not checked).
+}
+\examples{
+material_checkbox(
+  input_id = "example_checkbox",
+  label = "Checkbox",
+  initial_value = TRUE,
+  color = "ef5350"
+)
+}
diff --git a/man/material_column.Rd b/man/material_column.Rd
index 18e160b..0985f1d 100644
--- a/man/material_column.Rd
+++ b/man/material_column.Rd
@@ -7,11 +7,11 @@
 material_column(..., width = 6, offset = 0)
 }
 \arguments{
-\item{...}{The UI elements to place in the column}
+\item{...}{The UI elements to place in the column.}
 
-\item{width}{Integer. The width of the column. The value should be between 1 and 12}
+\item{width}{Integer. The width of the column. The value should be between 1 and 12.}
 
-\item{offset}{Integer. The offset to the left of the column. The value should be between 0 and 11}
+\item{offset}{Integer. The offset to the left of the column. The value should be between 0 and 11.}
 }
 \description{
 UI content can be placed in columns to organize items on a page.
diff --git a/man/material_depth.Rd b/man/material_depth.Rd
index 89e5117..075d50e 100644
--- a/man/material_depth.Rd
+++ b/man/material_depth.Rd
@@ -7,12 +7,12 @@
 material_depth(..., depth = 4)
 }
 \arguments{
-\item{...}{The UI elements to place in the column}
+\item{...}{The UI elements to apply the depth.}
 
 \item{depth}{Integer. The amount of depth. The value should be between 0 and 5. A value of 0 can be used to remove depth from objects that have depth by default.}
 }
 \description{
-Give a UI element an illusion of depth by creating a shadow.
+Give a UI element the perception of depth by creating a shadow.
 }
 \examples{
 material_depth(
diff --git a/man/material_dropdown.Rd b/man/material_dropdown.Rd
new file mode 100644
index 0000000..b4bf69f
--- /dev/null
+++ b/man/material_dropdown.Rd
@@ -0,0 +1,39 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/shiny-material-dropdown.R
+\name{material_dropdown}
+\alias{material_dropdown}
+\title{Create a shinymaterial dropdown}
+\usage{
+material_dropdown(input_id, label, choices = NULL, selected = NULL,
+  multiple = NULL, color = NULL)
+}
+\arguments{
+\item{input_id}{String. The input identifier used to access the value.}
+
+\item{label}{String. The dropdown label.}
+
+\item{choices}{Named vector. The option names and underyling values.}
+
+\item{selected}{String. The initially selected underyling value.}
+
+\item{multiple}{Boolean. Can multiple items be selected?}
+
+\item{color}{String. The color of the dropdown choices. Leave empty for the default color. Visit \url{http://materializecss.com/color.html} for a list of available colors. \emph{This input requires using color hex codes, rather than the word form. E.g., '#ef5350', rather than 'red lighten-1'.}}
+}
+\description{
+Build a shinymaterial dropdown.
+}
+\examples{
+material_dropdown(
+  input_id = "example_dropdown",
+  label = "Drop down",
+  choices = c(
+    "Chicken" = "c",
+    "Steak" = "s",
+    "Fish" = "f"
+  ),
+  selected = c("c"),
+  multiple = FALSE,
+  color = "#ef5350"
+)
+}
diff --git a/man/material_floating_button.Rd b/man/material_floating_button.Rd
new file mode 100644
index 0000000..4be9af1
--- /dev/null
+++ b/man/material_floating_button.Rd
@@ -0,0 +1,29 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/shiny-material-floating-button.R
+\name{material_floating_button}
+\alias{material_floating_button}
+\title{Create a shinymaterial floating button}
+\usage{
+material_floating_button(input_id, icon = NULL, depth = NULL,
+  color = NULL)
+}
+\arguments{
+\item{input_id}{String. The input identifier used to access the value.}
+
+\item{icon}{String. The name of the icon. Leave empty for no icon. Visit \url{http://materializecss.com/icons.html} for a list of available icons.}
+
+\item{depth}{Integer. The amount of depth of the floating button. The value should be between 0 and 5. Leave empty for the default depth.}
+
+\item{color}{String. The color of the floating button. Leave empty for the default color. Visit \url{http://materializecss.com/color.html} for a list of available colors.}
+}
+\description{
+Build a shinymaterial floating button. The initial value is zero, and increases by one on each press.
+}
+\examples{
+material_floating_button(
+  input_id = "example_floating_button",
+  icon = "mode_edit",
+  depth = 5,
+  color = "red lighten-3"
+)
+}
diff --git a/man/material_input.Rd b/man/material_input.Rd
index da86ce7..b6690c5 100644
--- a/man/material_input.Rd
+++ b/man/material_input.Rd
@@ -4,166 +4,17 @@
 \alias{material_input}
 \title{Create a shinymaterial input}
 \usage{
-material_input(type, input_id, label, ...)
+material_input(type, ...)
 }
 \arguments{
-\item{type}{String. The type of input to be created. See section "Input Types" for list of available types.}
+\item{type}{String. The type of input to be created.}
 
-\item{input_id}{String. The input identifier used to access the value.}
-
-\item{label}{String. Display label for input.}
-
-\item{...}{Additional arguments for the input type.}
+\item{...}{Additional arguments for the input.}
 }
 \description{
-Build a shinymaterial input of any available type.
-}
-\section{Input Types}{
-
-\itemize{
-  \item{
-  \strong{button}
-  \itemize{
-  \item{\code{icon} \emph{(String. The name of the icon. Visit \url{http://materializecss.com/icons.html} for a list of available icons.)}}
-  }
-  }
-  \item{
-  \strong{checkbox}
-  \itemize{
-  \item{\code{initial_value} \emph{(Boolean. The initial value.)}}
-  }
-  }
-  \item{
-  \strong{dropdown}
-  \itemize{
-  \item{\code{choices} \emph{(Named vector. The list of option names and underyling values.)}}
-  \item{\code{selected} \emph{(String. The initial selected underyling value.)}}
-  \item{\code{multiple} \emph{(Boolean. Can multiple items be selected?)}}
-  }
-  }
-  \item{
-  \strong{floating-button}
-  \itemize{
-  \item{\code{icon} \emph{(String. The name of the icon. Visit \url{http://materializecss.com/icons.html} for a list of available icons.)}}
-  }
-  }
-  \item{
-  \strong{number-box}
-  \itemize{
-  \item{\code{min_value} \emph{(Number. The minimum allowable value.)}}
-  \item{\code{max_value} \emph{(Number. The maximum allowable value.)}}
-  \item{\code{initial_value} \emph{(Number. The initial value.)}}
-  }
-  }
-  \item{
-  \strong{password-box}
-  }
-  \item{
-  \strong{radio-button}
-  \itemize{
-  \item{\code{choices} \emph{(Named vector. The list of option names and underyling values.)}}
-  }
-  }
-  \item{
-  \strong{slider}
-  \itemize{
-  \item{\code{min_value} \emph{(Number. The minimum allowable value.)}}
-  \item{\code{max_value} \emph{(Number. The maximum allowable value.)}}
-  \item{\code{initial_value} \emph{(Number. The initial value.)}}
-  }
-  }
-  \item{
-  \strong{switch}
-  \itemize{
-  \item{\code{off_label} \emph{(String. The label for the 'off' portion of the switch.)}}
-  \item{\code{on_label} \emph{(String. The label for the 'on' portion of the switch.)}}
-  \item{\code{initial_value} \emph{(Boolean. The initial value.)}}
-  }
-  }
-  \item{
-  \strong{text-box}
-  }
-}
+Build a shinymaterial input.
 }
-
 \examples{
-##-- button --##
-material_input(
-  type = "button",
-  input_id = "example_button",
-  label = "Button",
-  icon = "done"
-)
-
-##-- checkbox --##
-material_input(
-  type = "checkbox",
-  input_id = "example_checkbox",
-  label = "Checkbox",
-  initial_value = TRUE
-)
-
-##-- dropdown --##
-material_input(
-  type = "dropdown",
-  input_id = "example_dropdown",
-  label = "Dropdown",
-  choices = c(
-    "Chicken" = "c",
-    "Steak" = "s",
-    "Fish" = "f"
-  ),
-  selected = c("c"),
-  multiple = FALSE
-)
-
-##-- floating-button --##
-material_input(
-  type = "floating-button",
-  input_id = "example_floating_button",
-  label = "Floating Button",
-  icon = "done"
-)
-
-##-- number-box --##
-material_input(
-  type = "number-box",
-  input_id = "example_number_box",
-  label = "Number Box",
-  min_value = 1,
-  max_value = 10,
-  initial_value = 2
-)
-
-##-- password-box --##
-material_input(
-  type = "password-box",
-  input_id = "example_password_box",
-  label = "Password Box"
-)
-
-##-- radio-button --##
-material_input(
-  type = "radio-button",
-  input_id = "example_radio_button",
-  label = "Radio Button",
-  choices = c(
-    "Cake" = "c",
-    "Pie" = "p",
-    "Brownie" = "b"
-  )
-)
-
-##-- slider --##
-material_input(
-  type = "slider",
-  input_id = "example_slider",
-  label = "Slider",
-  min_value = 1,
-  max_value = 10,
-  initial_value = 2
-)
-
 ##-- switch --##
 material_input(
   type = "switch",
@@ -173,11 +24,4 @@ material_input(
   on_label = "On",
   initial_value = TRUE
 )
-
-##-- text-box --##
-material_input(
-  type = "text-box",
-  input_id = "example_text_box",
-  label = "Text Box"
-)
 }
diff --git a/man/material_modal.Rd b/man/material_modal.Rd
index 57bcd76..2d1c8d9 100644
--- a/man/material_modal.Rd
+++ b/man/material_modal.Rd
@@ -4,21 +4,25 @@
 \alias{material_modal}
 \title{Place UI content in a modal}
 \usage{
-material_modal(modal_id, button_text, title, ..., floating_button = FALSE,
-  button_icon = "no_icon")
+material_modal(modal_id, button_text, title, ..., button_icon = NULL,
+  floating_button = FALSE, button_depth = NULL, button_color = NULL)
 }
 \arguments{
-\item{modal_id}{String. The ID for the modal. Must be unique per app}
+\item{modal_id}{String. The ID for the modal. Must be unique per application.}
 
-\item{button_text}{String. The text displayed on the modal trigger button}
+\item{button_text}{String. The text displayed on the modal trigger button.}
 
-\item{title}{String. The title of the modal window}
+\item{title}{String. The title of the modal window.}
 
 \item{...}{The UI elements to place in the modal}
 
+\item{button_icon}{String. The name of the icon. Visit \url{http://materializecss.com/icons.html} for a list of available icons.}
+
 \item{floating_button}{Boolean. Should the modal trigger button be a floating button?}
 
-\item{button_icon}{String. The name of the icon. Visit \url{http://materializecss.com/icons.html} for a list of available icons.}
+\item{button_depth}{Integer. The amount of depth of the button. The value should be between 0 and 5. Leave empty for the default depth.}
+
+\item{button_color}{String. The color of the button. Leave empty for the default color. Visit \url{http://materializecss.com/color.html} for a list of available colors.}
 }
 \description{
 Put any UI object inside of a modal. The modal will open when the button is pressed.
@@ -28,6 +32,7 @@ material_modal(
   modal_id = "example_modal",
   button_text = "Modal",
   title = "Example Modal Title",
+  button_color = "red lighten-3",
   shiny::tags$p("Modal Content")
 )
 }
diff --git a/man/material_number_box.Rd b/man/material_number_box.Rd
new file mode 100644
index 0000000..81c6d8b
--- /dev/null
+++ b/man/material_number_box.Rd
@@ -0,0 +1,25 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/shiny-material-number-box.R
+\name{material_number_box}
+\alias{material_number_box}
+\title{Create a shinymaterial number box}
+\usage{
+material_number_box(input_id, label, min_value, max_value, initial_value,
+  color = NULL)
+}
+\arguments{
+\item{input_id}{String. The input identifier used to access the value.}
+
+\item{label}{String. The number box label.}
+
+\item{min_value}{Number. The minimum allowable value.}
+
+\item{max_value}{Number. The maximum allowable value.}
+
+\item{initial_value}{Number. The initial value.}
+
+\item{color}{String. The accent color of the number box. Leave empty for the default color. Visit \url{http://materializecss.com/color.html} for a list of available colors. \emph{This input requires using color hex codes, rather than the word form. E.g., '#ef5350', rather than 'red lighten-1'.}}
+}
+\description{
+Build a shinymaterial number box.
+}
diff --git a/man/material_page.Rd b/man/material_page.Rd
index 6e34e82..0096c51 100644
--- a/man/material_page.Rd
+++ b/man/material_page.Rd
@@ -4,12 +4,17 @@
 \alias{material_page}
 \title{Create a shinymaterial page}
 \usage{
-material_page(title, ...)
+material_page(title, ..., nav_bar_color = NULL,
+  background_color = "grey lighten-4")
 }
 \arguments{
 \item{title}{String. The title of the page.}
 
-\item{...}{The UI elements to place in the page}
+\item{...}{The UI elements to place in the page.}
+
+\item{nav_bar_color}{Color of the navigation bar. Leave blank for the default color. Visit \url{http://materializecss.com/color.html} for a list of available colors.}
+
+\item{background_color}{Page background color. Leave blank for the default color. Visit \url{http://materializecss.com/color.html} for a list of available colors.}
 }
 \description{
 Build a shinymaterial page.
@@ -17,6 +22,8 @@ Build a shinymaterial page.
 \examples{
 material_page(
   title = "Example Title",
+  nav_bar_color = "red lighten-2",
+  background_color = "blue lighten-4",
   shiny::tags$h1("Page Content")
 )
 }
diff --git a/man/material_parallax.Rd b/man/material_parallax.Rd
index 2470df9..7fdbf35 100644
--- a/man/material_parallax.Rd
+++ b/man/material_parallax.Rd
@@ -7,13 +7,13 @@
 material_parallax(image_source)
 }
 \arguments{
-\item{image_source}{String. The image file name. Place the image in a folder labeled 'www' at the same level as the application (server.R & ui.R)}
+\item{image_source}{String. The image file name. Place the image in a folder labeled 'www' at the same level as the application (server.R & ui.R).}
 }
 \description{
 Use this function to create a parallax effect in your application.
 }
 \examples{
 material_parallax(
-  image_source = "https://upload.wikimedia.org/wikipedia/commons/thumb/8/8d/Freudenberg_sg_Switzerland.jpg/1920px-Freudenberg_sg_Switzerland.jpg"
+  image_source = "example_image.jpg"
 )
 }
diff --git a/man/material_password_box.Rd b/man/material_password_box.Rd
new file mode 100644
index 0000000..9bb91c2
--- /dev/null
+++ b/man/material_password_box.Rd
@@ -0,0 +1,18 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/shiny-material-password-box.R
+\name{material_password_box}
+\alias{material_password_box}
+\title{Create a shinymaterial password box}
+\usage{
+material_password_box(input_id, label, color = NULL)
+}
+\arguments{
+\item{input_id}{String. The input identifier used to access the value.}
+
+\item{label}{String. The password box label.}
+
+\item{color}{String. The accent color of the password box. Leave empty for the default color. Visit \url{http://materializecss.com/color.html} for a list of available colors. \emph{This input requires using color hex codes, rather than the word form. E.g., '#ef5350', rather than 'red lighten-1'.}}
+}
+\description{
+Build a shinymaterial password box.
+}
diff --git a/man/material_radio_button.Rd b/man/material_radio_button.Rd
new file mode 100644
index 0000000..6f99f6d
--- /dev/null
+++ b/man/material_radio_button.Rd
@@ -0,0 +1,32 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/shiny-material-radio-button.R
+\name{material_radio_button}
+\alias{material_radio_button}
+\title{Create a shinymaterial radio button}
+\usage{
+material_radio_button(input_id, label, choices, color = NULL)
+}
+\arguments{
+\item{input_id}{String. The input identifier used to access the value.}
+
+\item{label}{String. The radio button label.}
+
+\item{choices}{Named vector. The option names and underyling values.}
+
+\item{color}{String. The color of the radio buttons. Leave empty for the default color. Visit \url{http://materializecss.com/color.html} for a list of available colors. \emph{This input requires using color hex codes, rather than the word form. E.g., '#ef5350', rather than 'red lighten-1'.}}
+}
+\description{
+Build a shinymaterial radio button.
+}
+\examples{
+material_radio_button(
+  input_id = "example_radio_button",
+  label = "Radio Button",
+  choices = c(
+    "Cake" = "c",
+    "Pie" = "p",
+    "Brownie" = "b"
+  ),
+  color = "#ef5350"
+)
+}
diff --git a/man/material_row.Rd b/man/material_row.Rd
index c63b3f2..cb755ff 100644
--- a/man/material_row.Rd
+++ b/man/material_row.Rd
@@ -7,10 +7,10 @@
 material_row(...)
 }
 \arguments{
-\item{...}{The UI elements to place in the row}
+\item{...}{The UI elements to place in the row.}
 }
 \description{
-UI content can be placed in rows to organize items on a page.
+UI content can be placed in a row to organize items on a page.
 }
 \examples{
 material_row(
diff --git a/man/material_side_nav.Rd b/man/material_side_nav.Rd
index 9c5e59f..876e5c6 100644
--- a/man/material_side_nav.Rd
+++ b/man/material_side_nav.Rd
@@ -4,14 +4,17 @@
 \alias{material_side_nav}
 \title{Create a side-nav that contains UI content}
 \usage{
-material_side_nav(..., fixed = FALSE, image_source = NULL)
+material_side_nav(..., fixed = FALSE, image_source = NULL,
+  background_color = NULL)
 }
 \arguments{
-\item{...}{The UI elements to place in the side-nav}
+\item{...}{The UI elements to place in the side-nav.}
 
-\item{fixed}{A boolean. Set to TRUE to keep side-nav open on large screens.}
+\item{fixed}{Boolean. Set to TRUE to keep side-nav open on large screens.}
 
-\item{image_source}{String. The background image file name. Place the image in a folder labeled 'www' at the same level as the application (server.R & ui.R)}
+\item{image_source}{String. The background image file name. Place the image in a folder labeled 'www' at the same level as the application (server.R & ui.R).}
+
+\item{background_color}{Side-nav background color. Leave blank for the default color. Visit \url{http://materializecss.com/color.html} for a list of available colors.}
 }
 \description{
 UI content can be placed in side-nav.
@@ -19,7 +22,8 @@ UI content can be placed in side-nav.
 \examples{
 material_side_nav(
   fixed = FALSE,
-  image_source = "https://upload.wikimedia.org/wikipedia/commons/thumb/e/e6/Red_brick_wall_texture.JPG/2560px-Red_brick_wall_texture.JPG",
+  image_source = "example_image.jpg",
+  background_color = "blue lighten-4",
   shiny::tags$h1("Side-nav Content")
 )
 }
diff --git a/man/material_slider.Rd b/man/material_slider.Rd
new file mode 100644
index 0000000..ccbb0ad
--- /dev/null
+++ b/man/material_slider.Rd
@@ -0,0 +1,35 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/shiny-material-slider.R
+\name{material_slider}
+\alias{material_slider}
+\title{Create a shinymaterial slider}
+\usage{
+material_slider(input_id, label, min_value, max_value, initial_value,
+  color = NULL)
+}
+\arguments{
+\item{input_id}{String. The input identifier used to access the value.}
+
+\item{label}{String. The slider label.}
+
+\item{min_value}{Number. The minimum value on the slider.}
+
+\item{max_value}{Number. The maximum value on the slider.}
+
+\item{initial_value}{Number. The initial value of the slider.}
+
+\item{color}{String. The slider color. Leave empty for the default color. Visit \url{http://materializecss.com/color.html} for a list of available colors. \emph{This input requires using color hex codes, rather than the word form. E.g., '#ef5350', rather than 'red lighten-1'.}}
+}
+\description{
+Build a shinymaterial slider.
+}
+\examples{
+material_slider(
+  input_id = "example_slider",
+  label = "slider",
+  min_value = 5,
+  max_value = 15,
+  initial_value = 10,
+  color = "#ef5350"
+)
+}
diff --git a/man/material_switch.Rd b/man/material_switch.Rd
new file mode 100644
index 0000000..449fd7f
--- /dev/null
+++ b/man/material_switch.Rd
@@ -0,0 +1,25 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/shiny-material-switch.R
+\name{material_switch}
+\alias{material_switch}
+\title{Create a shinymaterial switch}
+\usage{
+material_switch(input_id, label, off_label, on_label, initial_value = FALSE,
+  color = NULL)
+}
+\arguments{
+\item{input_id}{String. The input identifier used to access the value.}
+
+\item{label}{String. The switch label.}
+
+\item{off_label}{String. The label for the 'off' position of the switch.}
+
+\item{on_label}{String. The label for the 'on' position of the switch.}
+
+\item{initial_value}{Boolean. Is the switch initially on?}
+
+\item{color}{String. The color of the switch. Leave empty for the default color. Visit \url{http://materializecss.com/color.html} for a list of available colors. \emph{This input requires using color hex codes, rather than the word form. E.g., '#ef5350', rather than 'red lighten-1'.}}
+}
+\description{
+Build a shinymaterial switch. The value is a boolean (TRUE if 'on', FALSE if 'off').
+}
diff --git a/man/material_tab_content.Rd b/man/material_tab_content.Rd
index 871c1eb..cd34437 100644
--- a/man/material_tab_content.Rd
+++ b/man/material_tab_content.Rd
@@ -7,9 +7,9 @@
 material_tab_content(tab_id, ...)
 }
 \arguments{
-\item{tab_id}{String. The tab id to place the content in}
+\item{tab_id}{String. The tab id in which to place the UI content.}
 
-\item{...}{The UI elements to place in the tab}
+\item{...}{The UI elements to place in the tab.}
 }
 \description{
 Use this function to place UI content within a specific tab.
diff --git a/man/material_tabs.Rd b/man/material_tabs.Rd
index ea308c0..4e9d438 100644
--- a/man/material_tabs.Rd
+++ b/man/material_tabs.Rd
@@ -4,10 +4,12 @@
 \alias{material_tabs}
 \title{Place UI content within a tab}
 \usage{
-material_tabs(tabs)
+material_tabs(tabs, color = NULL)
 }
 \arguments{
-\item{tabs}{Named Vector. The tab display names as well as the tab ids.}
+\item{tabs}{Named vector. The tab display names and corresponding tab ids.}
+
+\item{color}{String. The accent color of the tabs. Leave blank for the default color. Visit \url{http://materializecss.com/color.html} for a list of available colors. \emph{Tab color requires using word forms of colors (e.g. 'deep-purple'). Also, lighten or darken effects do not work on tab colors.}}
 }
 \description{
 Use this function to create tabs in your application.
@@ -17,6 +19,7 @@ material_tabs(
   tabs = c(
     "Example Tab 1" = "example_tab_1",
     "Example Tab 2" = "example_tab_2"
-  )
+  ),
+  color = "deep-purple"
 )
 }
diff --git a/man/material_text_box.Rd b/man/material_text_box.Rd
new file mode 100644
index 0000000..b6d98dd
--- /dev/null
+++ b/man/material_text_box.Rd
@@ -0,0 +1,18 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/shiny-material-text-box.R
+\name{material_text_box}
+\alias{material_text_box}
+\title{Create a shinymaterial text box}
+\usage{
+material_text_box(input_id, label, color = NULL)
+}
+\arguments{
+\item{input_id}{String. The input identifier used to access the value.}
+
+\item{label}{String. The text box label.}
+
+\item{color}{String. The accent color of the text box. Leave empty for the default color. Visit \url{http://materializecss.com/color.html} for a list of available colors. \emph{This input requires using color hex codes, rather than the word form. E.g., '#ef5350', rather than 'red lighten-1'.}}
+}
+\description{
+Build a shinymaterial text box.
+}
diff --git a/tests/app.R b/tests/app.R
new file mode 100644
index 0000000..8227031
--- /dev/null
+++ b/tests/app.R
@@ -0,0 +1,441 @@
+library(shiny)
+library(shinymaterial)
+
+ui <-
+  material_page(
+    title = "Testing",
+    nav_bar_color = 'red lighten-3',
+    background_color = "white",
+    material_side_nav(
+      tags$h4("stuff"),
+      background_color = "blue lighten-4"
+    ),
+    tags$div(
+      class = "container",
+      
+      material_modal(
+        modal_id = "example_modal",
+        button_text = "Modal",
+        title = "Example Modal Title",
+        button_color = "red lighten-4",
+        button_depth = 5,
+        shiny::tags$p("Modal Content")
+      ),
+      
+      material_tabs(
+        tabs = c(
+          "Example Tab 1" = "example_tab_1",
+          "Example Tab 2" = "example_tab_2"
+        ),
+        color = "purple"
+      ),
+      material_tabs(
+        tabs = c(
+          "Example Tab 11" = "example_tab_11",
+          "Example Tab 22" = "example_tab_22"
+        ),
+        color = "deep-purple"
+      ),
+      material_card(
+        title = "Example Card",
+        shiny::tags$h1("Card Content"),
+        depth = 5
+      ),
+      # Button ------------------------------------------------------------------
+      material_input(
+        type = "button",
+        input_id = "input_button1",
+        label = "IButton"
+      ),
+      material_button(
+        input_id = "button1",
+        label = "Button"
+      ),
+      
+      material_input(
+        type = "button",
+        input_id = "input_button2",
+        label = "IButton",
+        icon = "cloud",
+        depth = 5,
+        color = "blue"
+      ),
+      material_button(
+        input_id = "button2",
+        label = "Button",
+        icon = "cloud",
+        depth = 5,
+        color = "blue lighten-4"
+      ),
+      # Checkbox ------------------------------------------------------------------
+      material_input(
+        type = "checkbox",
+        input_id = "input_checkbox1",
+        label = "Icheckbox"
+      ),
+      material_checkbox(
+        input_id = "checkbox1",
+        label = "checkbox"
+      ),
+      material_input(
+        type = "checkbox",
+        input_id = "input_checkbox2",
+        label = "Icheckbox",
+        initial_value = TRUE,
+        color = "blue"
+      ),
+      material_checkbox(
+        input_id = "checkbox2",
+        label = "checkbox",
+        initial_value = TRUE,
+        color = "#ef5350"
+      ),
+      # Switch ------------------------------------------------------------------
+      material_input(
+        type = "switch",
+        input_id = "input_switch1",
+        label = "Iswitch",
+        off_label = "Off",
+        on_label = "On"
+      ),
+      material_switch(
+        input_id = "switch1",
+        label = "switch",
+        off_label = "Off",
+        on_label = "On"
+      ),
+      material_input(
+        type = "switch",
+        input_id = "input_switch2",
+        label = "Iswitch",
+        off_label = "Off",
+        on_label = "On",
+        initial_value = TRUE,
+        color = "blue"
+      ),
+      material_switch(
+        input_id = "switch2",
+        label = "switch",
+        off_label = "Off",
+        on_label = "On",
+        initial_value = TRUE,
+        color = "#bbdefb"
+      ),
+      # Floating Button ------------------------------------------------------------------
+      # material_input(
+      #   type = "floating_button",
+      #   input_id = "input_floating_button1"
+      # )
+      # material_floating_button(
+      #   input_id = "floating_button1"
+      # )
+      # 
+      # material_input(
+      #   type = "floating_button",
+      #   input_id = "input_floating_button2",
+      #   icon = "cloud",
+      #   depth = 5,
+      #   color = "blue"
+      # )
+      # material_floating_button(
+      #   input_id = "floating_button2",
+      #   icon = "cloud",
+      #   depth = 5,
+      #   color = "blue"
+      # ),
+      # Number box ------------------------------------------------------------------
+      material_input(
+        type = "number_box",
+        input_id = "input_number_box1",
+        label = "input_number_box1",
+        min_value = 5,
+        max_value = 15,
+        initial_value = 10
+      ),
+      material_number_box(
+        input_id = "number_box1",
+        label = "number_box1",
+        min_value = 5,
+        max_value = 15,
+        initial_value = 10
+      ),
+      
+      material_input(
+        type = "number_box",
+        input_id = "input_number_box2",
+        label = "input_number_box2",
+        min_value = 5,
+        max_value = 15,
+        initial_value = 10,
+        color = "blue"
+      ),
+      material_number_box(
+        input_id = "number_box2",
+        label = "number_box2",
+        min_value = 5,
+        max_value = 15,
+        initial_value = 10,
+        color = "#bbdefb"
+      ),
+      
+      # Text box ------------------------------------------------------------------
+      material_input(
+        type = "text_box",
+        input_id = "input_text_box1",
+        label = "input_text_box1"
+      ),
+      material_text_box(
+        input_id = "text_box1",
+        label = "text_box1"
+      ),
+      
+      material_input(
+        type = "text_box",
+        input_id = "input_text_box2",
+        label = "input_text_box2",
+        color = "blue"
+      ),
+      material_text_box(
+        input_id = "text_box2",
+        label = "text_box2",
+        color = "blue"
+      ),
+      # password box ------------------------------------------------------------------
+      material_input(
+        type = "password_box",
+        input_id = "input_password_box1",
+        label = "input_password_box1"
+      ),
+      material_password_box(
+        input_id = "password_box1",
+        label = "password_box1"
+      ),
+      
+      material_input(
+        type = "password_box",
+        input_id = "input_password_box2",
+        label = "input_password_box2",
+        color = "red"
+      ),
+      material_password_box(
+        input_id = "password_box2",
+        label = "password_box2",
+        color = "blue"
+      ),
+      material_floating_button(
+        input_id = "example_floating_button",
+        icon = "mode_edit",
+        depth = 5,
+        color = "red lighten-2"
+      ),
+      # Radio buttons ------------------------------------------------------------------
+      material_input(
+        type = "radio-button",
+        input_id = "input_example_radio_button1",
+        label = "Radio Button",
+        choices = c(
+          "Cake" = "c",
+          "Pie" = "p",
+          "Brownie" = "b"
+        )
+      ),
+      material_radio_button(
+        input_id = "example_radio_button1",
+        label = "Radio Button",
+        choices = c(
+          "Cake" = "c1",
+          "Pie" = "p1",
+          "Brownie" = "b1"
+        )
+      ),
+      material_input(
+        type = "radio-button",
+        input_id = "input_example_radio_button2",
+        label = "Radio Button",
+        choices = c(
+          "Cake" = "c2",
+          "Pie" = "p2",
+          "Brownie" = "b2"
+        ),
+        color = "blue"
+      ),
+      material_radio_button(
+        input_id = "example_radio_button2",
+        label = "Radio Button",
+        choices = c(
+          "Cake" = "c3",
+          "Pie" = "p3",
+          "Brownie" = "b3"
+        ),
+        color = "#bbdefb"
+      ),
+      # slider ------------------------------------------------------------------
+      material_input(
+        type = "slider",
+        input_id = "input_example_slider1",
+        label = "slider",
+        min_value = 5,
+        max_value = 15,
+        initial_value = 10,
+        color = "blue"
+      ),
+      material_slider(
+        input_id = "example_slider1",
+        label = "slider",
+        min_value = 5,
+        max_value = 15,
+        initial_value = 10,
+        color = "#bbdefb"
+      ),
+      # dropdown
+      material_input(
+        type = "dropdown",
+        input_id = "input_example_dropdown1",
+        label = "Drop down",
+        choices = c(
+          "Chicken" = "c1",
+          "Steak" = "s1",
+          "Fish" = "f1"
+        ),
+        selected = c("c"),
+        multiple = FALSE
+      ),
+      
+      material_dropdown(
+        input_id = "example_dropdown1",
+        label = "Drop down",
+        choices = c(
+          "Chicken" = "c2",
+          "Steak" = "s2",
+          "Fish" = "f2"
+        ),
+        selected = c("c"),
+        multiple = FALSE,
+        color = "#ef5350"
+      )
+    )
+  )
+
+
+
+server <- function(input, output) {
+  #button
+  observeEvent(input$input_button1, {
+    message(input$input_button1)
+  })
+  observeEvent(input$button1, {
+    message(input$button1)
+  })
+  observeEvent(input$input_button2, {
+    message(input$input_button2)
+  })
+  observeEvent(input$button2, {
+    message(input$button2)
+  })
+  #checkbox
+  observeEvent(input$input_checkbox1, {
+    message(input$input_checkbox1)
+  })
+  observeEvent(input$checkbox1, {
+    message(input$checkbox1)
+  })
+  observeEvent(input$input_checkbox2, {
+    message(input$input_checkbox2)
+  })
+  observeEvent(input$checkbox2, {
+    message(input$checkbox2)
+  })
+  #switch
+  observeEvent(input$input_switch1, {
+    message(input$input_switch1)
+  })
+  observeEvent(input$switch1, {
+    message(input$switch1)
+  })
+  observeEvent(input$input_switch2, {
+    message(input$input_switch2)
+  })
+  observeEvent(input$switch2, {
+    message(input$switch2)
+  })
+  # floating button
+  observeEvent(input$floating_button2, {
+    message(input$floating_button2)
+  })
+  
+  # Number box
+  observeEvent(input$input_number_box1, {
+    message(input$input_number_box1)
+  })
+  observeEvent(input$number_box1, {
+    message(input$number_box1)
+  })
+  observeEvent(input$input_number_box2, {
+    message(input$input_number_box2)
+  })
+  observeEvent(input$number_box2, {
+    message(input$number_box2)
+  })
+  #text box
+  observeEvent(input$input_text_box1, {
+    message(input$input_text_box1)
+  })
+  observeEvent(input$text_box1, {
+    message(input$text_box1)
+  })
+  observeEvent(input$input_text_box2, {
+    message(input$input_text_box2)
+  })
+  observeEvent(input$text_box2, {
+    message(input$text_box2)
+  })
+  # floating button
+  observeEvent(input$example_floating_button, {
+    message(input$example_floating_button)
+  })
+  #password box
+  observeEvent(input$input_password_box1, {
+    message(input$input_password_box1)
+  })
+  observeEvent(input$password_box1, {
+    message(input$password_box1)
+  })
+  observeEvent(input$input_password_box2, {
+    message(input$input_password_box2)
+  })
+  observeEvent(input$password_box2, {
+    message(input$password_box2)
+  })
+  
+  # slider
+  observeEvent(input$input_example_slider1, {
+    message(input$input_example_slider1)
+  })
+  observeEvent(input$example_slider1, {
+    message(input$example_slider1)
+  })
+  
+  #input_radio_button
+  observeEvent(input$input_example_radio_button1, {
+    message(input$input_example_radio_button1)
+  })
+  observeEvent(input$example_radio_button1, {
+    message(input$example_radio_button1)
+  })
+  observeEvent(input$input_example_radio_button2, {
+    message(input$input_example_radio_button2)
+  })
+  observeEvent(input$example_radio_button2, {
+    message(input$example_radio_button2)
+  })
+  
+  observeEvent(input$input_example_dropdown1, {
+    message(input$input_example_dropdown1)
+  })
+  observeEvent(input$example_dropdown1, {
+    message(input$example_dropdown1)
+  })
+}
+
+# Run the application
+#shinyApp(ui = ui, server = server)