#' @export
text_with_linebreaks = function(text) {
# Replace \n line breaks with the <br/> tags
shiny::HTML(gsub(
pattern = "\n",
replacement = "<br/>",
x = (text)))
}
#' @export
page_tile = function(title, text = NULL, main = TRUE){
shiny::fluidRow(
shinydashboard::box(
width = 12,
title = NULL,
if (main) {
shiny::h2(title)
} else {
shiny::h3(title)
},
shiny::p(text)
))
}
#' Deffine the ui for the sidebar of the shiny app using shinyauth
#'
#' @param ... Passed to shinydashboard::dashboardSidebar
#'
#' @export
saSidebar = function(...) {
shinydashboard::dashboardSidebar(
# Users ui
...,
# Requiered for shinyauth
shiny::uiOutput("auth_sidebar")
)
}
#' Deffine the ui for the body of the shiny app using shinyauth
#'
#' @param ... Passed to shinydashboard::dashboardBody
#'
#' @export
saBody = function(...) {
shinydashboard::dashboardBody(
# Requiered for shinyauth
shiny::tags$head(
# Import the Java script for the pop-up error message box
shiny::tags$script(
"Shiny.addCustomMessageHandler('shiny_alert', function(msg){ alert(msg); })")),
shiny::uiOutput("auth_body"),
# Users ui
...
)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.