-
Notifications
You must be signed in to change notification settings - Fork 2
/
body.R
36 lines (34 loc) · 930 Bytes
/
body.R
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
#' Create the body section of the application
#'
#' Create a simple body containing a header and a content for the main body
#'
#' @param ... The elements to include within the body of the modal
#' @param header OPTIONAL. Items to display in the header section (use the titlePanel() function to set this property).
#'
#' @note Endeavor to use as standalone and not within the fluidPage, as this function it already called within fluidPage
#'
#' @return An HTML of the body of the page
#'
#' @examples
#'
#' if (interactive()) {
#' dashboardBody(
#' header = titlePanel(
#' left = "Sample nextGenShinyApps Title",
#' right = shiny::icon("user")
#' ),
#' "sample text for main body"
#' )
#' }
#'
#' @export
dashboardBody <- function(header, ...) {
shiny::div(
class = "page-content-wrapper",
header,
tags$main(
id = "js-page-content", role = "main", class = "page-content",
...
)
)
}