now fixing the travis

Author: dmpe

R/boxes.R

@@ -120,7 +120,9 @@ infoBox <- function(title, value = NULL, subtitle = NULL,
 #' @param collapsed If TRUE, start collapsed. This must be used with
 #'   \code{collapsible=TRUE}.
 #' @param ... Contents of the box.
-#' @param wrench Adds a dropdown menu
+#' @param wrench Adds a dropdown menu.
+#' @param wrenchOptions Add menu items to the wrench icon. This must be used with
+#'    \code{wrench=TRUE}.
 #'
 #' @family boxes
 #'
@@ -251,7 +253,8 @@ infoBox <- function(title, value = NULL, subtitle = NULL,
 #' @export
 box <- function(..., title = NULL, footer = NULL, status = NULL,
                 solidHeader = FALSE, background = NULL, width = 6,
-                height = NULL, collapsible = FALSE, collapsed = FALSE, wrench = FALSE, wrenchOptions = NULL) {
+                height = NULL, collapsible = FALSE, collapsed = FALSE,
+                wrench = FALSE, wrenchOptions = NULL) {
 
   boxClass <- "box"
   if (solidHeader || !is.null(background)) {
@@ -296,7 +299,8 @@ box <- function(..., title = NULL, footer = NULL, status = NULL,
     collapseIcon <- if (collapsed) "plus" else "minus"
 
     if (collapsible == TRUE) {
-      collapseTag <- tags$button(class = paste0("btn btn-box-tool"), `data-widget` = "collapse", shiny::icon(collapseIcon))
+      collapseTag <- tags$button(class = paste0("btn btn-box-tool"),
+                                 `data-widget` = "collapse", shiny::icon(collapseIcon))
     }
 
     if (wrench == TRUE) {