R/ui_functions.R

In Tim113/shinyauth: shinyauth adds simple authentication to a shiny app, via a MySQL db table of users

#' @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
    ...

  )
}