ui.R

Sys.setenv(lang = "en_US")
options(shiny.sanitize.errors = FALSE, scipen = 999, dplyr.summarise.inform = FALSE)#warn = -1, 
rm(list = ls())
#setwd('C:/Projects/wappapp/')
setwd('/srv/connect/apps/wappapp/')
files_to_exclude <- c('theme.css', 'README.md', 'ui.R', "rsconnect/shinyapps.io/yauheni-se/wappapp.dcf")

for (i in list.files(recursive = TRUE)) {
  if (!i %in% files_to_exclude & !stringr::str_detect(i, 'data\\/|img\\/')) {
    source(i, encoding = 'UTF-8')
  }
}

ui <- tagList(dashboardPage(
  dashboardHeader(
    title = 'Warsaw Apartments Helper',
    titleWidth = 300,
    tags$li(a(href = 'https://www.linkedin.com/in/yauheni-semianiuk', icon("linkedin"), title = "", target = "_blank"), class = "dropdown"),
    tags$li(a(href = 'https://github.com/yauheni-se/wappapp', icon("github"), title = "", target = "_blank"), class = "dropdown")
  ),
  dashboardSidebar(
    sidebarMenu(
      menuItem('Forecast price', tabName = 'forecast', icon = icon('chart-line')),
      menuItem('Compare apartments', tabName = 'comparison', icon = icon('poll'))
    )
  ),
  dashboardBody(
    useShinyjs(),
    shinyDashboardThemes(theme = 'poor_mans_flatly'),
    tags$head(includeCSS('theme.css')),
    tags$head(tags$style(HTML('.content-wrapper {overflow: auto; background-color: #F5F5F5;}'))),
    tabItems(
      ForecastUI('forecast'),
      ComparisonUI('comparison')
    )
  ),
  skin = 'black'
))