make docs behave on old R

R/style.R

@@ -44,7 +44,7 @@
 #' @param padding The padding around the element, given as a call to [box()]
 #' @param background The color of the background fill. The background includes
 #' the padding but not the margin. Can be a solid color or a gradient or pattern
-#' made with [grid::linearGradient()]/[grid::radialGradient()]/[grid::pattern()]
+#' made with `grid::linearGradient()`/`grid::radialGradient()`/`grid::pattern()`
 #' @param border The color of the background stroke. The background includes
 #' the padding but not the margin
 #' @param border_size The line width of the background stroke, given as a call

R/style_set.R

@@ -20,10 +20,20 @@
 #' @export
 #'
 #' @examples
-#' style_set(body = body_style(), p = style(indent = em(2))) |>
-#'   modify_style("p", size = 16) |>
-#'   modify_style("str", style(weight = "bold")) |>
-#'   remove_style("p")
+#' # Create a style
+#' s_set <- style_set(body = body_style(), p = style(indent = em(2)))
+#'
+#' # Modify an existing tag
+#' modify_style(s_set, "p", size = 16)
+#'
+#' # Add a new tag, supplying a full style object
+#' modify_style(s_set, "str", style(weight = "bold"))
+#'
+#' # Same as above, but style object created implicitly
+#' modify_style(s_set, "str", weight = "bold")
+#'
+#' # Remove a tag style
+#' remove_style(s_set, "p")
 #'
 style_set <- function(...) {
   styles <- list2(...)