inst/app/ui.R

In jansim/WG-SuchR: Daten von der Website wg-gesucht.de Scrapen und Statistiken Generieren

# Load functions
source("../../init.R", chdir = T)

# Load Tab Contents
source("ui/uebersicht.R")
source("ui/meineWohnung.R")
source("ui/vergleich.R")
source("ui/download.R")

dashboardPage(
  dashboardHeader(title = "WG-SuchR", titleWidth = 230, disable = FALSE),
  dashboardSidebar(
    sidebarMenu(
      selectizeInput("stadt", "Stadt:", staedte.list),
      sliderInput("rows_to_load", "Anzahl an Anzeigen:", 20, 500, 100, 20),
      menuItem("Übersicht", tabName = "uebersicht", icon = icon("bar-chart")),
      menuItem("Meine Wohnung", tabName = "meineWohnung", icon = icon("home")),
      menuItem("Vergleich", tabName = "vergleich", icon = icon("balance-scale")),
      menuItem("Download", tabName = "download", icon = icon("download"))
    )
  ),
  dashboardBody(
    tabItems(
      uebersicht,
      meineWohnung,
      vergleich,
      download
    )
  )
)