lvalnegri

ui.R

May 16th, 2018
332
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
R 1.79 KB | None | 0 0
  1. ###################################
  2. # SHINY Explorer - ui.R
  3. ###################################
  4.  
  5. shinyUI(fluidPage(
  6.    
  7.     includeCSS('styles.css'),
  8.     tags$head(tags$link(rel="shortcut icon", href="favicon.ico")),
  9.    
  10.     navbarPageWithText(
  11.         header = '',
  12.         title = tags$span(HTML(paste0(
  13.             '<img src="logo.png" class="logo">',
  14.             '<b style="font-size:160%;"> ... Explorer</b>'
  15.         ))),
  16.         windowTitle = ' ... Explorer'),
  17.         id = 'mainNav',
  18.         theme = shinytheme('united'), inverse = TRUE,
  19.  
  20.         ### TABLES (tbl) --------------------------------------------------------------------------------------------------------------
  21.         source(file.path("ui", "ui_tbl.R"),  local = TRUE)$value
  22.    
  23.         ### CHARTS (plt) -----------------------------------------------------------------------------------------------------------
  24.         source(file.path("ui", "ui_plt.R"),  local = TRUE)$value
  25.  
  26.         ### MAPS (mps) -------------------------------------------------------------------------------------------------------------
  27.         source(file.path("ui", "ui_mps.R"),  local = TRUE)$value
  28.  
  29.         ### ADVANCED (adv) ---------------------------------------------------------------------------------------------------
  30.         source(file.path("ui", "ui_adv.R"),  local = TRUE)$value,
  31.  
  32.         ### ABOUT + CREDITS----------------------------------------------------------------------------------------------------------
  33.         source(file.path("ui", "ui_about.R"),  local = TRUE)$value,
  34.        
  35.         ### LAST UPDATED AT --------------------------------------------------------------------------------------------------------
  36.         text = paste('Last updated:', format(date.range['max'], '%d %b %Y') )
  37.    
  38.     ),
  39.    
  40.     includeJqueryUI(),
  41.     useShinyjs()
  42.  
  43. ))
Advertisement
Add Comment
Please, Sign In to add comment