diff --git a/R/components.R b/R/components.R index 3c6f50d..afb8acb 100644 --- a/R/components.R +++ b/R/components.R @@ -139,58 +139,65 @@ EditableText.shinyInput <- input("EditableText", "") # nolint #' #' Documentation: #' -#' @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: +#' +#' @family HTML elements +#' @example inst/examples/components/HTMLTable.R +#' @inherit template params #' @export HTMLTable <- component("HTMLTable") @@ -363,6 +370,7 @@ ControlGroup <- component("ControlGroup") #' #' Documentation: #' +#' @family HTML elements #' @example inst/examples/components/Label.R #' @inherit template params #' @export diff --git a/inst/examples/components/HTMLTable.R b/inst/examples/components/HTMLTable.R new file mode 100644 index 0000000..ad3ea16 --- /dev/null +++ b/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) {} +) diff --git a/inst/examples/components/htmlElements.R b/inst/examples/components/htmlElements.R new file mode 100644 index 0000000..d5eb97e --- /dev/null +++ b/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) {} +) diff --git a/inst/examples/components/html_elements.R b/inst/examples/components/html_elements.R deleted file mode 100644 index dfde3f6..0000000 --- a/inst/examples/components/html_elements.R +++ /dev/null @@ -1,33 +0,0 @@ -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")), - 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) {} -) diff --git a/inst/examples/mbaza_dashboard/.gitignore b/inst/examples/mbazaDashboard/.gitignore similarity index 100% rename from inst/examples/mbaza_dashboard/.gitignore rename to inst/examples/mbazaDashboard/.gitignore diff --git a/inst/examples/mbaza_dashboard/app.R b/inst/examples/mbazaDashboard/app.R similarity index 100% rename from inst/examples/mbaza_dashboard/app.R rename to inst/examples/mbazaDashboard/app.R diff --git a/inst/examples/mbaza_dashboard/home.R b/inst/examples/mbazaDashboard/home.R similarity index 100% rename from inst/examples/mbaza_dashboard/home.R rename to inst/examples/mbazaDashboard/home.R diff --git a/inst/examples/mbaza_dashboard/navbar.R b/inst/examples/mbazaDashboard/navbar.R similarity index 100% rename from inst/examples/mbaza_dashboard/navbar.R rename to inst/examples/mbazaDashboard/navbar.R diff --git a/inst/examples/mbaza_dashboard/sidebar.R b/inst/examples/mbazaDashboard/sidebar.R similarity index 100% rename from inst/examples/mbaza_dashboard/sidebar.R rename to inst/examples/mbazaDashboard/sidebar.R diff --git a/inst/examples/mbaza_dashboard/style.scss b/inst/examples/mbazaDashboard/style.scss similarity index 100% rename from inst/examples/mbaza_dashboard/style.scss rename to inst/examples/mbazaDashboard/style.scss diff --git a/inst/examples/mbaza_dashboard/www/appsilon-logo.png b/inst/examples/mbazaDashboard/www/appsilon-logo.png similarity index 100% rename from inst/examples/mbaza_dashboard/www/appsilon-logo.png rename to inst/examples/mbazaDashboard/www/appsilon-logo.png diff --git a/man/HTMLTable.Rd b/man/HTMLTable.Rd new file mode 100644 index 0000000..f84279a --- /dev/null +++ b/man/HTMLTable.Rd @@ -0,0 +1,41 @@ +% Generated by roxygen2: do not edit by hand +% Please edit documentation in R/components.R +\name{HTMLTable} +\alias{HTMLTable} +\title{HTML table} +\usage{ +HTMLTable(...) +} +\arguments{ +\item{...}{Component props and children. See the official Blueprint docs for details.} +} +\description{ +Documentation: \url{https://blueprintjs.com/docs/#core/components/html-table} +} +\examples{ +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) {} +) +} +\seealso{ +Other HTML elements: +\code{\link{Label}()}, +\code{\link{htmlElements}} +} +\concept{HTML elements} diff --git a/man/Label.Rd b/man/Label.Rd index 3f793c2..8c283dd 100644 --- a/man/Label.Rd +++ b/man/Label.Rd @@ -24,3 +24,9 @@ if (interactive()) shinyApp( server = function(input, output) {} ) } +\seealso{ +Other HTML elements: +\code{\link{HTMLTable}()}, +\code{\link{htmlElements}} +} +\concept{HTML elements} diff --git a/man/html_elements.Rd b/man/htmlElements.Rd similarity index 61% rename from man/html_elements.Rd rename to man/htmlElements.Rd index 8459fe7..f2bb94e 100644 --- a/man/html_elements.Rd +++ b/man/htmlElements.Rd @@ -1,7 +1,7 @@ % Generated by roxygen2: do not edit by hand % Please edit documentation in R/components.R -\name{html_elements} -\alias{html_elements} +\name{htmlElements} +\alias{htmlElements} \alias{H1} \alias{H2} \alias{H3} @@ -13,7 +13,6 @@ \alias{Pre} \alias{OL} \alias{UL} -\alias{HTMLTable} \title{HTML elements} \usage{ H1(...) @@ -37,8 +36,6 @@ Pre(...) OL(...) UL(...) - -HTMLTable(...) } \arguments{ \item{...}{Component props and children. See the official Blueprint docs for details.} @@ -63,21 +60,14 @@ if (interactive()) shinyApp( Label("Label"), Pre("Pre"), OL(tags$li("OL")), - UL(tags$li("UL")), - 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")) - ) - ) + UL(tags$li("UL")) ), server = function(input, output) {} ) } +\seealso{ +Other HTML elements: +\code{\link{HTMLTable}()}, +\code{\link{Label}()} +} +\concept{HTML elements}