ui.R

# Códigos do ui shiny

## Carregando pacotes
library(tidyverse)
library(sf)
library(mapview)
library(lubridate)
library(forecast)
library(tseries)
library(curl)
library(plotly)
library(leaflet)
library(geosphere)
library(shiny)
library(shinyWidgets)
library(shinythemes)
library(DT)
library(tsibble)
library(zoo)
library(xts)
library(rsconnect)
library(dygraphs)

# carregando o codigo com todas configuracoes para o ui
source("Tabs.R")

# ui: interface do usuário (seria como se fosse um front end)
# navbarPage: layout de navegação da pagina por abas, cria abas similares a de um navegador
# fluidPage automaticamente ajusta as dimensões da janela do navegador do usuário
ui <- fluidPage( 
  navbarPage(
  # titulo do app
  title = "Pureco - Serviços de Limpeza",
  # tema escolhido para o site
  theme = shinytheme("flatly"),
  fluid = TRUE,
  Tab1,
  Tab2,
  Tab3,
  Tab4,
  Tab5)
)