update test by adding more variants

break long lines in boxes.R

Author: dmpe

R/boxes.R

@@ -120,9 +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. By default it does not (false).
 #' @param wrenchOptions Add menu items to the wrench icon. This must be used with
-#'    \code{wrench=TRUE}.
+#'    \code{wrench=TRUE}. Can be also a \code{list(...)} of \code{tags$li(...)}.
 #'
 #' @family boxes
 #'
@@ -308,7 +308,6 @@ box <- function(..., title = NULL, footer = NULL, status = NULL,
                        tags$button(class = "btn btn-box-tool dropdown-toggle", `type` = "button",
                                    `data-toggle` = "dropdown", shiny::icon("wrench")),
                        tags$ul(class = "dropdown-menu", `role` = "menu", wrenchOptions)
-                       ## TODO: how to display them ?
       )
     }
 

man/box.Rd

@@ -42,7 +42,9 @@ body <- dashboardBody(
         )
     ),
     box(title = "Histogram box title",
-        status = "warning", solidHeader = TRUE, collapsible = F, wrench = T, wrenchOptions = tags$li(a(href="https://google.cz", "Click here!")),
+        status = "info", solidHeader = TRUE, collapsible = F, wrench = T,
+        wrenchOptions = list(tags$li(a(href="https://google.cz", "google czech",style="color: red", target="_blank")),
+                             tags$li(a(href="https://www.polygon.com", "polygon!",style="color: yellow", target="_blank"))),
         plotOutput("plot", height = 250)
     )
   ),
@@ -165,7 +167,7 @@ header <- dashboardHeader(
 shinyApp(
   ui = dashboardPage(
     header,
-    dashboardSidebar(),
+    dashboardSidebar(disable = T),
     body
   ),
   server = server