inst/template/R/ui-navbarPage.R
In devOpifex/leprechaun: Create Simple 'Shiny' Applications as Packages
#' Shiny UI
#'
#' Core UI of package.
#'
#' @param req The request object.
#'
#' @import shiny
#' @importFrom bslib bs_theme
#'
#' @keywords internal
ui <- function(req){
navbarPage(
theme = bs_theme(version = #BSVERSION#),
header = list(assets()),
title = "#PKGNAME#",
id = "main-menu",
tabPanel(
"First tab",
shiny::h1("First tab")
),
tabPanel(
"Second tab",
shiny::h1("Second tab")
)
)
}
#' Assets
#'
#' Includes all assets.
#' This is a convenience function that wraps
#' [serveAssets] and allows easily adding additional
#' remote dependencies (e.g.: CDN) should there be any.
#'
#' @param ignore A vector of files to ignore.
#' This can be useful for scripts that should not be
#' placed in the `<head>` of the HTML.
#'
#' @importFrom shiny tags
#'
#' @keywords internal
assets <- function(ignore = NULL){
list(
serveAssets(ignore = ignore), # base assets (assets.R)
tags$head(
# Place any additional depdendencies here
# e.g.: CDN
)
)
}
devOpifex/leprechaun documentation built on April 17, 2025, 4:31 a.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
#' Shiny UI
#'
#' Core UI of package.
#'
#' @param req The request object.
#'
#' @import shiny
#' @importFrom bslib bs_theme
#'
#' @keywords internal
ui <- function(req){
navbarPage(
theme = bs_theme(version = #BSVERSION#),
header = list(assets()),
title = "#PKGNAME#",
id = "main-menu",
tabPanel(
"First tab",
shiny::h1("First tab")
),
tabPanel(
"Second tab",
shiny::h1("Second tab")
)
)
}
#' Assets
#'
#' Includes all assets.
#' This is a convenience function that wraps
#' [serveAssets] and allows easily adding additional
#' remote dependencies (e.g.: CDN) should there be any.
#'
#' @param ignore A vector of files to ignore.
#' This can be useful for scripts that should not be
#' placed in the `<head>` of the HTML.
#'
#' @importFrom shiny tags
#'
#' @keywords internal
assets <- function(ignore = NULL){
list(
serveAssets(ignore = ignore), # base assets (assets.R)
tags$head(
# Place any additional depdendencies here
# e.g.: CDN
)
)
}
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.