Reorganize docs and files

R/components.R

@@ -139,58 +139,65 @@ EditableText.shinyInput <- input("EditableText", "") # nolint
 #'
 #' Documentation: <https://blueprintjs.com/docs/#core/components/html>
 #'
-#' @example inst/examples/components/html_elements.R
+#' @family HTML elements
+#' @example inst/examples/components/htmlElements.R
 #' @inherit template params
-#' @name html_elements
+#' @name htmlElements
 NULL
 
-#' @rdname html_elements
+#' @rdname htmlElements
 #' @export
 H1 <- component("H1")
 
-#' @rdname html_elements
+#' @rdname htmlElements
 #' @export
 H2 <- component("H2")
 
-#' @rdname html_elements
+#' @rdname htmlElements
 #' @export
 H3 <- component("H3")
 
-#' @rdname html_elements
+#' @rdname htmlElements
 #' @export
 H4 <- component("H4")
 
-#' @rdname html_elements
+#' @rdname htmlElements
 #' @export
 H5 <- component("H5")
 
-#' @rdname html_elements
+#' @rdname htmlElements
 #' @export
 H6 <- component("H6")
 
-#' @rdname html_elements
+#' @rdname htmlElements
 #' @export
 Blockquote <- component("Blockquote")
 
-#' @rdname html_elements
+#' @rdname htmlElements
 #' @export
 Code <- component("Code")
 
 # Label has its own documentation page.
 
-#' @rdname html_elements
+#' @rdname htmlElements
 #' @export
 Pre <- component("Pre")
 
-#' @rdname html_elements
+#' @rdname htmlElements
 #' @export
 OL <- component("OL")
 
-#' @rdname html_elements
+#' @rdname htmlElements
 #' @export
 UL <- component("UL")
 
-#' @rdname html_elements
+#' HTML table
+#'
+#' Documentation: <https://blueprintjs.com/docs/#core/components/html-table>
+#'
+#' @family HTML elements
+#' @example inst/examples/components/HTMLTable.R
+#' @inherit template params
 #' @export
 HTMLTable <- component("HTMLTable")
 
@@ -363,6 +370,7 @@ ControlGroup <- component("ControlGroup")
 #'
 #' Documentation: <https://blueprintjs.com/docs/#core/components/label>
 #'
+#' @family HTML elements
 #' @example inst/examples/components/Label.R
 #' @inherit template params
 #' @export

inst/examples/components/HTMLTable.R

@@ -0,0 +1,19 @@
+library(shiny)
+library(appsilon.blueprint)
+
+if (interactive()) shinyApp(
+  ui = HTMLTable(
+    tags$thead(
+      tags$tr(tags$th("Project"), tags$th("Stack"), tags$th("Contributors"))
+    ),
+    tags$tbody(
+      tags$tr(tags$td("Blueprint"), tags$td("JS React"), tags$td("268")),
+      tags$tr(tags$td("TS"), tags$td("JSX"), tags$td("68")),
+      tags$tr(tags$td("appsilon.blueprint"), tags$td("R JS"), tags$td("2"))
+    ),
+    tags$tfoot(
+      tags$tr(tags$td("Total", colspan = 2), tags$td("1508"))
+    )
+  ),
+  server = function(input, output) {}
+)

inst/examples/components/htmlElements.R

@@ -0,0 +1,20 @@
+library(shiny)
+library(appsilon.blueprint)
+
+if (interactive()) shinyApp(
+  ui = tagList(
+    H1("H1"),
+    H2("H2"),
+    H3("H3"),
+    H4("H4"),
+    H5("H5"),
+    H6("H6"),
+    Blockquote("Blockquote"),
+    Code("Code"),
+    Label("Label"),
+    Pre("Pre"),
+    OL(tags$li("OL")),
+    UL(tags$li("UL"))
+  ),
+  server = function(input, output) {}
+)