inst/app/ui/download.R

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

download <- tabItem(tabName = "download",
  tableOutput('table'),
  fluidRow(
    box(title = "Datensatz auswählen", status = "primary", width = 12,
      selectInput("dl_dataset", "Datensatz auswählen:", choices = list("Daten zur aktuellen Stadt" = "daten", "Städteliste" = "cities")),
      downloadButton('dl_downloadButton', 'Download')
    ),
    box(title = "Datensatz ansehen", status = "success", width = 12,
      dataTableOutput("dl_table")
    )
  )
)