inst/source/core/ui/GenTitlePanel.R

In ShinyWizard: An Interactive Wizard to Design, Build, and Deploy R Packages Demo Presentation

#' Generate Title Panel

GenTitlePanel <- function(){
  titlePanel(windowTitle = config$AppTitle,
             fluidRow(
               column(11, 
                      tags$div(id = "AppTitle", config$AppTitle), 
                      tags$h5(id = "AppSubTitle", config$AppSubTitle)), 
               column(1, 
                      img(id ="LogoFilePath", style="height: 60px; wigth:60px; float:right; vertical-align:middle", src = config$LogoFilePath)) 
             ))
}