inst/shinyApps/Are/nakkeStandardInput.R

In Rapporteket/Nakke: Resultattjenester for Degenerativ Nakke

#' Modulised UI for shiny
#'
#' nakkeStandardInput provides common ui uc for shiny Nakke
#'
#' @param id namespace for this module
#' @param label Label for this module
#' @export

nakkeStandardInput <- function(id, label = "Brukervalg") {

  # create namespace
  ns <- NS(id)

  # make values and lables for reshID
  reshList <-
    setNames(as.list(unique(RegData$AvdRESH)), unique(RegData$SykehusNavn))

  tagList(
    selectInput(ns("erMann"),
                label="Kjønn:",
                c("Begge"=2, "Menn"=1, "Kvinner"=0)
    ),
    sliderInput(ns("alder"), label = "Alder", min = 0,
                max = 130, value = c(0, 130)
    ),
    dateRangeInput(ns("periode"), start = "2012-01-01", end = Sys.Date(),
                   label = "Periode", separator="til", language="nb"),
    selectInput(ns("avdeling"), label = "Avdeling", reshList)
  )
}