fix(r): margin prefix, height default method, background dispatch

R/design-background.R

@@ -6,6 +6,8 @@
 #'
 #' @eval param_color("background")
 #'
+#' @includeRmd man/roxygen/background-inputs.Rmd
+#'
 #' @family design utilities
 #' @export
 #' @examples

R/design-sizing.R

@@ -107,8 +107,7 @@ height.shiny.tag <- function(x, size) {
 
 #' @export
 height.default <- function(x, size) {
-  # abort("No method implemented for ", class(x))
-  abort_design_default()
+  tag_class_add(x, height_size(size))
 }
 
 height_size <- function(size) {

R/design-spacing.R

@@ -244,7 +244,7 @@ margin_top <- function(top) {
   top <- lapply(top, margin_negative)
   top <- resp_construct(top, c(0:5, "auto", "n1", "n2", "n3", "n4", "n5"))
 
-  sprintf("p%s", resp_classes(top, "t"))
+  sprintf("m%s", resp_classes(top, "t"))
 }
 
 margin_right <- function(right) {
@@ -255,7 +255,7 @@ margin_right <- function(right) {
   right <- lapply(right, margin_negative)
   right <- resp_construct(right, c(0:5, "auto", "n1", "n2", "n3", "n4", "n5"))
 
-  sprintf("p%s", resp_classes(right, "r"))
+  sprintf("m%s", resp_classes(right, "r"))
 }
 
 margin_bottom <- function(bottom) {
@@ -266,7 +266,7 @@ margin_bottom <- function(bottom) {
   bottom <- lapply(bottom, margin_negative)
   bottom <- resp_construct(bottom, c(0:5, "auto", "n1", "n2", "n3", "n4", "n5"))
 
-  sprintf("p%s", resp_classes(bottom, "b"))
+  sprintf("m%s", resp_classes(bottom, "b"))
 }
 
 margin_left <- function(left) {

R/list-group.R

@@ -124,6 +124,8 @@ listGroupInput <- function(..., id, choices = NULL, values = choices,
 
     items <- map_listitems(choices, values, selected)
 
+    args <- style_dots_eval(..., .style = style_pronoun("yonder_list_group"))
+
     tag <- div(
       class = str_collate(
         "yonder-list-group",
@@ -133,7 +135,7 @@ listGroupInput <- function(..., id, choices = NULL, values = choices,
       ),
       id = id,
       items,
-      ...
+      !!!args
     )
 
     s3_class_add(tag, c("yonder_list_group", "yonder_input"))

R/utils-dependencies.R

@@ -15,7 +15,17 @@ dep_complete <- function() {
   flag_set("deps", NULL)
 }
 
+dep_skip <- function() {
+  opt <- getOption("yonder.deps", TRUE)
+
+  is_false(opt) || is_na(opt)
+}
+
 dep_attach <- function(tag) {
+  if (dep_skip()) {
+    return(tag)
+  }
+
   deps <- dep_fetch()
 
   if (!is.null(deps)) {
@@ -33,6 +43,11 @@ dep_attach <- function(tag) {
   }
 }
 
+dep_remove <- function(tag) {
+  attr(tag, "html_dependecies") <- NULL
+  tag
+}
+
 with_deps <- function(expr) {
   dep_attach(expr)
 }

R/yonder.R

@@ -12,23 +12,21 @@ NULL
 #' Yonder is a set of tools for flexible and creative shiny application
 #' construction and design.
 #'
-#' @section Inputs:
+#' @section Getting started:
+#'
+#' ## Inputs
 #'
 #' Yonder provides many familiar inputs like [selectInput()] or [radioInput()].
 #' There are also new inputs like [groupTextInput()] or [formInput()].
 #'
-#' **Changes to be mindful of**
-#'
 #' * Input functions have an `id` argument instead of `inputId`.
 #'
 #' * Input functions do not include a `label` argument for the purpose of adding
 #'   a label above the input. Button and menu inputs do include a `label`
 #'   argument, but these arguments refer to button labels. If you would like to
 #'   add a label above an input please use [formGroup()].
 #'
-#' **Familiar variants**
-#'
-#' Looking for ... ?
+#' ### Looking for ... ?
 #'
 #' * `actionButton()` or `actionLink()` use [buttonInput()] or [linkInput()]
 #'
@@ -42,15 +40,13 @@ NULL
 #'
 #' * `submitButton()` use [formInput()] and [formSubmit()]
 #'
-#' @section Layout and content:
+#' ## Layout and content
 #'
 #' Included are a handful of utilities for building applications suited for
 #' devices and screens of varying sizes. For real control over spacing elements
 #' be sure to check out [flex()], which gives you the power of flexbox layout.
 #'
-#' **Familiar variants**
-#'
-#' Looking for ... ?
+#' ### Looking for ... ?
 #'
 #' * `fluidRow()` or `fixedRow()` use [columns()]
 #'
@@ -63,4 +59,5 @@ NULL
 #'
 #' * `modalDialog()` use [modal()]
 #'
+#' @name yonder
 "_PACKAGE"