inst/shinyapp/ui.r

In wrathematics/gmhelper: Random Rolls for Game Masters

library(shiny)


about <- HTML("
  <center>
  <img src='img.jpg'>
  
  <br><br>
  <p>
  Some content, particularly the tables, are used under the
  <a href='http://www.opengamingfoundation.org/ogl.html'>Open Gaming License</a>.
  </p>
  
  </center>
")


shinyUI(
  fluidPage(theme="superhero.min.css",
    # tags$head(
    #   tags$link(rel="stylesheet", type="text/css", href="superhero.min.css")
    # ),
    
    navbarPage(
      title="GM Helper", 
      windowTitle="GM Helper", id="nav_tag", 
      inverse=TRUE, collapsible=FALSE, 
      
      tabPanel("About", helpText(about)),
      tabPanel("Names", uiOutput("main_names")),
      tabPanel("Loot", uiOutput("main_loot")),
      tabPanel("Misc", uiOutput("main_misc")),
      tabPanel("Dice", uiOutput("main_dice")),
      tabPanel("Cards", uiOutput("main_cards")),
      tabPanel("Tables", uiOutput("main_tables"))
      )
    )
  )