inst/shiny-examples/uws_app/ui.R

In o1i/UWS: Umwandlungssatz in der zweiten Säule

ui <- shiny::fluidPage(
  shiny::titlePanel("Umwandlungssatz in der 2. Säule"),
  shiny::navbarPage(title = 'Einflussgrössen',
                    shiny::tabPanel("Sterblichkeit und Biometrie",
                                    shiny::sidebarLayout(

                                      shiny::sidebarPanel(
                                        shiny::sliderInput("improvement_force", "Stärke der Sterblichkeitsverbesserung:",
                                                           min = 0, max = 2, value = 1, step = 0.1)
                                      ),

                                      shiny::mainPanel(
                                        shiny::plotOutput("qx"),
                                        shiny::plotOutput("qy"),
                                        shiny::plotOutput("uws1")
                                      )
                                    )),
                    shiny::tabPanel("Zinssatz",
                                    shiny::sidebarLayout(

                                      shiny::sidebarPanel(
                                        shiny::sliderInput("i", "Zins",
                                                           min = 0, max = 3, step = 0.25, value = 2.5),
                                        shiny::checkboxInput("fixed", "Fixer Zins", value = FALSE),
                                        shiny::sliderInput("i_final", "Langfristiger Normalzins",
                                                           min = -1, max = 5, step = 0.25, value = 2.5)
                                      ),
                                      shiny::mainPanel(
                                        shiny::plotOutput("zinsen"),
                                        shiny::plotOutput("uws2")
                                      )
                                    )),
                    shiny::tabPanel("Rentenplan",
                                    shiny::sidebarPanel(
                                      shiny::sliderInput("startalter", "Zeitpunkt Pensionierung",
                                                         min = 60, max = 72, step = 1, value = 65),
                                      shiny::sliderInput("wr_size", "Höhe Witwenrente in % Rente",
                                                         min = 0, max = 100, step = 10, value = 60),
                                      shiny::checkboxInput("witwer", "Witwerrente", value = FALSE),
                                      shiny::sliderInput("kr_size", "Höhe Kinderrente in % Rente",
                                                         min = 0, max = 100, step = 10, value = 20),
                                      shiny::sliderInput("k", "Kosten für Dienstleistungen in %",
                                                         min = 0, max = 5, step = 0.5, value = 2)
                                    ),
                                    shiny::mainPanel(
                                      shiny::plotOutput("uws3")
                                    ))
  )
)